ggplotの増減に基づくライン

Question

ラインセグメントの色を、その前のポイントよりも大きいかどうかに基づいて変更しようとしています。私はここで間違って何をしていますか？

例：

from [1,4] to [2,5] would be green because the y value is increasing. 
from [1,4] to [2,1] would be red because the y value is decreasing. 

マイコード：

set.seed(42) 
df<-NULL 
df$x<-rnorm(10,0,10) 
df$y<-rnorm(10,0,10) 
df$colors<-cbind(lapply(1:length(df$x),function(i){ 
    ifelse(df$x[i]>df$x[i-1],"#CC6666","#9999CC") 
})) 
df<-data.frame(df) 


ggplot()+ 
    geom_line(aes(x=df$x,y=df$y),size=1.5,colour=df$color)+ 
    scale_color_manual(values=df$color) 

Answer 1

でしょうあなたのために、この作品のようなもの、私は再配置されたあなたの例のデータビットが、我々は得るためにgeom_segment()とdplyr::lead()を使用することができます色が正しく一致し、少しのggplotがハックしてラベルを再びうまく作り、NAを捨てます：

set.seed(42) 
df <- data.frame(x = rnorm(10,0,10), 
        y = rnorm(10,0,10)) 

# base R 
df <- df[order(df$x),] 
df$color <- sapply(1:nrow(df), function(i) df$y[i] > df$y[i+1]) 
df$group <- "1" 

library(tidyverse) 
df <- arrange(df, x) %>% 
    mutate(color = y > lead(y), 
      group = "1") # group everything togther or else we get two lines 

ggplot()+ 
    geom_path(data = df, 
       aes(x=x, y=y, color = color, group = group),size=1.5) + 
    scale_color_manual(values = c("#CC6666","#9999CC"), na.value = "white", 
         labels = c("increase", "decrease", ""))