根据“几个因素”斜率更改 ggplot 中的线条颜色

更新： 我有以下数据，我想根据 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()

这是一个非常相似的问题根据斜率更改 ggplot 中的线条颜色 https://stackoverflow.com/questions/34113989/changing-line-color-in-ggplot-based-on-slope

我希望我能够解释我的问题。

我们可以拆分数据，得到你想要的：

#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计算坡度。