使用aes_string时ggplot2中两个geom_point（）的颜色

Question

我想从数据框中生成两个系列“Pos”和“Neg”（y值）的图。 x值位于“平均值”列中。我希望这个系列有不同的颜色。

搜索stackoverflow给了我一个类似的问题：change color for two geom_point() in ggplot2，但是我想使用aes_string来避免在检查包时注意。

我使用aes和'自动'颜色让它工作，如下面的第一个例子。但是，我无法弄清楚如何使用aes_string生成相同的绘图，仍然让ggplot决定颜色。我觉得这应该是一件简单的事......

可重现的例子：

exData <- data.frame(Marker = rep("TH01", 10),
                 Mean = seq(1:10),
                 Neg = -1*runif(10,0.1,1),
                 Pos = runif(10,0.1,1))

# Produce the correct plot, with 'automatic' colours.
gp <- ggplot(exData, aes_string(x="Mean"),
             shape=val_shape, alpha=val_alpha)
gp <- gp + geom_point(aes(y=Pos, colour="Max"))
gp <- gp + geom_point(aes(y=Neg, colour="Min"))
gp <- gp + scale_colour_discrete(name = "Legend")
print(gp)

# Produce the correct plot, but not with 'automatic' colours.
gp <- ggplot(exData, aes_string(x="Mean"),
             shape=val_shape, alpha=val_alpha)
gp <- gp + geom_point(aes_string(y="Pos"), colour=1)
gp <- gp + geom_point(aes_string(y="Neg"), colour=2)
gp <- gp + scale_colour_discrete(name = "Legend")
print(gp)

Answer 1

格式化数据的方式不适合ggplot2。首先将其转换为“长”格式：

library(reshape2)
exData.m <- melt(exData, id.vars=c("Marker", "Mean"))

ggplot(exData.m, aes(x=Mean, y=value, color=variable)) + geom_point()

根据经验，每个美学（x，y，颜色，形状，alpha，......）都需要绘制数据框中的列。 reshape2库在这里很有帮助。

Answer 2

要直接回答您的问题，请在第一个情节中ggplot汇总所有颜色标识（此处为“最大”和“最小”）并将其视为一个因素。然后，它使用默认调色板，在this question的响应中以及Cookbook for R中对其进行了精美描述。因此，“Max”被视为具有两种颜色的默认调色板中的第一种颜色。

在第二个图中，您指定了颜色编号（整数）。在这种情况下，ggplot将恢复为默认的R调色板，可以看作如下：

y <- 1:6
barplot(y,col=y)

要使用aes_string(...)获取默认颜色，请使用@krlmlr描述的方法。