基于颜色图向量的

Question

我有一个像这样的向量z

z <- as.numeric(as.factor(c("A","B","C","D","E","F","G","H")))

在不同的日子里，像这样的数据帧df

df[[1]]

    ID     LON     LAT

    A     1        1
    B     10        14
    C     12        13

df[[2]]

    ID     LON     LAT

    A     2         3
    B     11        18
    D     12        13

df[[3]]

    ID     LON     LAT

    A     13        1
    E     10        14
    D     12        13

其中，ID是z中的，但每天都可能有所不同。

我给向量的每个元素指定了颜色。

range01 <- function(x)(x-min(x))/diff(range(x))
rainbow(7)
cRamp <- function(x){
  cols <- colorRamp(rainbow(7))(range01(x))
  apply(cols, 1, function(xt)rgb(xt[1], xt[2], xt[3], maxColorValue=255))
} 

我想要做的是每天用cRamp(z)的颜色来绘制我的ID，但是我无法将每个df中的ID值与z中的那个联系起来。

这是我的密码

for (i in 1:length(myfiles)){

  plot(df[[i]]$LON,df[[i]]$LAT, col = cRamp(z))
  map(add=T,col="saddlebrown",interior = FALSE)
  legend("topleft", legend=c(unique(df[[i]]$ID)), col=cRamp(z))
}

但是ID A的颜色并不是每天都一样！

非常感谢

Answer 1

也许是这样的：

z <- LETTERS[1:7]

df <- list(
  data.frame(ID=LETTERS[1:3],
             LON=c(1,10,12),
             LAT=c(1,14,13)),
  data.frame(ID=LETTERS[3:5],
             LON=c(2,11,18),
             LAT=c(2,9,20))
  )


layout(t(1:2))
for (i in 1:2){  
  plot(df[[i]]$LON, df[[i]]$LAT, 
       col = rainbow(length(z))[match(df[[i]]$ID,z)], 
       pch=16)
  legend("topleft", 
         legend=z, 
         col=rainbow(length(z)),
         pch=16)
}

​

​