在 ggplot2 中自定义图例文本和颜色

Question

我正在尝试绘制一个图（使用ggplot）来绘制geom_point和geom_line，其中不同的变量以不同的颜色绘制（根据scale_colour_manual(value = color） )，其中 color 是自定义颜色数组）以及两条水平黑线 (geom_hline)。

当我尝试自定义水平线的图例文本时，我的麻烦出现了。看来我只能选择两者之一：

1. 水平线的颜色为黑色，但该行的图例文本不正确
2. 该行的图例文本是正确的，但水平线的颜色由上述 < 确定代码>scale_colour_manual颜色。

plot <- ggplot(data, aes(x = factor(Month), y = avgLoss, colour = type, order = -as.numeric(type)))
         + geom_line() + geom_point()

meanplus2sd <- mean(data$avgLoss) + 2*sd(data$avgLoss)

plot <- plot + geom_hline(aes(yintercept = meanplus2sd), colour = "black")

生成图例中显示“黑色”的黑线

plot <- plot + geom_hline(aes(yintercept = meanplus2sd, colour = "Mean + 2 Stdev."))

生成一条线，该线是我定义的 scale_colour_manual 数组中的下一个颜色，但图例文本是“Mean + 2 Stdev”。

除了标准的 geom_point + geom_line 绘图之外，任何有关获取水平线的自定义颜色和图例文本的帮助都会非常好。谢谢。

Answer 1

获得所需内容的一种方法是将水平黑线的数据包含在原始数据框中。您的示例并不完全可重现，因此这可能不完全是您想要的代码，但这是总体思路：

将行添加到“数据”，每个“月”级别一个，其中“avgLoss”的值在每行等于“meanplus2sd”。您可能希望所有其他列都包含 NA。所以，

newData <- head(data,length(unique(data$Month)))
newData$Month <- unique(data$Month) 
newData$avgLoss <- rep(meanplus2sd,length(unique(data$Month)
newData$type <- rep('Mean + 2sd',length(unique(data$Month)))
#Then set all other values in newData to NA...and,
data <- rbind(data,newData)

这应该可以帮助你开始，你只需要确保颜色“黑色”位于scale_colour_manual中的正确位置，这可能需要一些调整。

Answer 2

注释可能是一个不错的选择

x <- baseball
tmp <- subset(x, team == c("CHN","NYA"))
cols <- c("8" = "red","4" = "blue","6" = "darkgreen")
meanplus2sd <- mean(tmp$rbi) + 2*sd(tmp$rbi)

plot <- ggplot(tmp, aes(x = year, y = rbi, color = factor(team), order = -as.numeric(team))) + 
geom_line() + geom_point() + geom_hline(aes(yintercept = meanplus2sd)) + 
annotate("text",label="Mean + 2sd",x=min(tmp$year)+10, y=meanplus2sd+10)