抱歉,如果我遗漏了colorRampPalette
和brewer.pal
如何工作的基本信息,但是如何根据多个变量创建定性颜色渐变?我的目标是创建一个多维定性梯度,如下图所示(红色到绿色,红色到黄色,红色到蓝色和不红色到黄色到绿色-to-蓝色)。
最小可重现的例子:
# example data set
mydata <-
data.frame(
v = runif( 100 ) ,
w = runif( 100 ) ,
x = runif( 100 ) ,
y = runif( 100 ) ,
z = runif( 100 )
)
# five columns of random values between zero and one
# use three columns with the `rgb` function to find
# the color between red, green, and blue using all three values
three.dimensions <- rgb( mydata$x , mydata$y , mydata$z )
# between zero and one, this gives black and white
plot( 0:1 , 0:1 , col = rgb( 0:1 , 0:1 , 0:1 ) , pch = 16 , cex = 3 )
# using the three sets of values, color on an rgb gradient
plot( rnorm( 100 ) , rnorm( 100 ) , col = three.dimensions , pch = 16 , cex = 3 )
# how is this multi-dimensionality
# supposed to be implemented in RColorBrewer?
library(RColorBrewer)
# create two colorRampPalette functions,
# for three- and five-category qualitative data
mypal3 <- brewer.pal( 3 , "Set1" )
mypal5 <- brewer.pal( 5 , "Set1" )
crp3 <- colorRampPalette( mypal3 )
crp5 <- colorRampPalette( mypal5 )
# this is just linear.. red, slowly to blue, slowly to green.
plot( rep( 1:10 , 10 ) , rep( 1:10 , each = 10 ) , col = crp3(100)[1:100] , pch = 16 , cex = 3 )
# how would i use RColorBrewer to get a three-way gradient
# with shades between red and green, as opposed to just red-to-blue-to-green?
# this is also linear across five colors.
plot( rep( 1:10 , 10 ) , rep( 1:10 , each = 10 ) , col = crp5(100)[1:100] , pch = 16 , cex = 3 )
# how would i use RColorBrewer to get a five-way gradient
# with shades between
# red and blue
# red and green
# red and purple
# red and orange
# and every other combo, depending on the values in `mydata`?
答案 0 :(得分:2)
如果我理解了这个问题,您需要将不同的色阶映射到不同的组。这是一种可能的策略,
x <- seq(0,6*pi-0.01, length=100)
y <- sin(x)
i <- x%/%pi + 1 # groups in the data
d <- data.frame(x=x,y=y,i=i)
cols <- RColorBrewer::brewer.pal(length(unique(i)),"Set1")
library(plyr)
# for each group, map to a specific colorRamp
d2 <- ddply(d, "i", function(.d){
id <- as.numeric(as.character(unique(.d$i)))
pal <- colorRamp(c(cols[id], "white"), )
cols <- pal(scales::rescale(.d$y))
mutate(.d, col=rgb(cols[,1],cols[,2],cols[,3], maxColorValue = 255))
})
ggplot(d2, aes(x,y,colour=col,group=i))+
geom_line(lwd=5) + scale_colour_identity() +
theme_minimal()
同样的想法适用于地图。
答案 1 :(得分:0)
我相信像这样的东西是解决方案,虽然我无法相信没有更聪明的方法来做到这一点。