Динамическая окраска в R

Question

У меня есть следующий код R, который я использую для построения набора временных рядов, которые нормализованы [0,1]. Я хочу, чтобы каждая из линий имела интенсивность цвета, так что все значения <= 0.5 имеют оттенки синего и > 0.5 имеют оттенки оранжевого/желтого. Это то, что я имею прямо сейчас:

data <- SOME_DATA 

for(i in 1:length(data)){ 
    y <- data[[paste("I",i,sep = "")]] 
    x <- 1:length(y) 
    lo <- loess(y~x) 
    ylim <- range(seq(-1,1,by=0.5)) 
    if(i==1){ 
    plot(x,y,ylim = ylim,main = "Some title",col = ifelse(y[1] < 0,'red','green'),ylab = "intensity",xlab = "time steps") 
    } 
    lines(predict(lo),lwd=2,ylim = ylim,col = ifelse(y[1] < 0,rgb(1,0,0,0.2),rgb(0,1,0,0.2))) 
} 

Как я могу достичь того, что я описал выше?

Благодаря

Answer 1

Используя this решение, которое вы можете сделать следующее:

data <- data.frame(x= runif(100), y = runif(100)) 
color.gradient <- function(x, colors=c("blue","white","red"), colsteps=100) { 
    return(colorRampPalette(colors) (colsteps) [ findInterval(x, seq(min(x),max(x), length.out=colsteps)) ]) 
} 
plot(data$x, data$y, col= color.gradient(data$x)) 

Answer 2

Чуть более настраиваемым изображение может быть возможно с ggplot. Использование данных и color.gradient из @jakobr:

ggplot(data, aes(x, y))+ geom_point(col=color.gradient(data$x))+ theme_bw()