r - 更改循环中多个图的颜色

Question

我想使用 R cookbook 函数 multiplot 生成一张图片，其中包含多个图表，这些图表通过配色方案可视化表格中的值(离散)。为此，我想在一个循环中制作一个 ggplot 对象列表。我通过 color=as.factor(unlist(colors2[i,]))[sort.cd34] 设置颜色，但这导致所有图中的颜色编码相同，显然是因为相同每次都使用 colors2 行，而不是依赖于循环中的 i 。

nr.plot <- 9
colors2 <- Table1[1:nr.plot,11:38]
snp.plot <- list()
for (i in 1:nr.plot){
  p1 <- ggplot(scan,aes(x=c(1:28),y=cd34,color=as.factor(unlist(colors2[i,]))[sort.cd34])) +geom_point() + scale_color_manual(breaks=c("0","1","2"),values=c("yellow","orange","red")) 
  snp.plot[[i]] <- p1
}

我怎样才能避免这种情况并从 colors2 中为每个绘图对象获取不同的因子列表？我不知道它是否相关，但是p1$mapping 给出输出:

* x      -> c(1:28)
* y      -> cd34
* colour -> as.factor(unlist(colors2[i, ]))[sort.cd34]

变量 colour 不应该包含我的来自 colors2 的因子向量以使整个事情起作用吗？感谢您的帮助!

Answer 1

您将颜色美学 与颜色比例 混淆了。设置 aes(color = some.factor) 只是告诉 ggplot 颜色应该随着 some.factor 的水平而改变。仅此一项不会设置使用的颜色，并且 ggplot 将在循环的每次迭代中使用相同的默认值。要更改用于不同级别的实际颜色，您需要在 scale_color_manual() 中设置它们。现在，您正在设置:

scale_color_manual(breaks=c("0","1","2"),values=c("yellow","orange","red")) 

在循环的每次迭代中，当然所有颜色都是相同的。

在您的示例中，以下内容可能有效:

scale_color_manual(values = unlist(colors2[i, ]))