"여러 요인"기울기를 기반으로 ggplot의 선 색상을 변경하십시오.

Question

업데이트 : 3 가지 요소의 기울기를 기반으로 그룹간에 선을 그릴 다음 데이터가 있습니다. ("I", "II ","III ").

set.seed(205) 
dat = data.frame(t=rep(c("I","II","III"), each=10), 
      pairs=rep(1:10,3), 
      value=rnorm(30), 
      group=rep(c("A","B"), 15)) 

나는 다음 시도했다, 그러나 나는 "I"연결 라인의 색상 변경 연결을 관리 할 수 ​​없습니다 - "III"와 "II"- "III"를 :

ggplot(dat %>% group_by(pairs) %>% 
    mutate(slope = (value[t=="II"] - value[t=="I"])/(value[t=="II"])- value[t=="I"]), 
    aes(t, value, group=pairs, linetype=group, colour=slope > 0)) + 
geom_point() + 
geom_line() 

이를 Changing line color in ggplot based on slope

나는 내 문제를 설명 할 수 있었으면 좋겠다.

Answer 1

우리는 데이터를 갈라, 당신이 원하는 것을 얻을 수 있습니다 dat의 데이터가 t으로 분류되어왔다

#calculate slopes for I and II 
dat %>% 
    filter(t != "III") %>% 
    group_by(pairs) %>% 
    # use diff to calculate slope 
    mutate(slope = diff(value)) -> dat12 

#calculate slopes for II and III 
dat %>% 
    filter(t != "I") %>% 
    group_by(pairs) %>% 
    # use diff to calculate slope 
    mutate(slope = diff(value)) -> dat23 

ggplot()+ 
    geom_line(data = dat12, aes(x = t, y = value, group = pairs, colour = slope > 0, 
           linetype = group))+ 
    geom_line(data = dat23, aes(x = t, y = value, group = pairs, colour = slope > 0, 
           linetype = group))+ 
    theme_bw() 

때문에, 나는 기울기를 계산하는 diff을 사용했다.