根據「多種因素」斜率改變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」 - 「三」：

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

我們可能會斷裂的數據，並得到你想要的東西：

#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() 

由於dat數據走過來t排序，我以前diff計算斜率。