r - 使用 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图书馆在这里很有帮助。