如何从 ggplot2 图例中删除美学答案

【问题标题】：How to remove an aesthetic from a ggplot2 legend如何从 ggplot2 图例中删除美学
【发布时间】：2011-03-24 17:29:30
【问题描述】：

我正在寻找一种方法来隐藏使用以下代码创建的情节中的一个美学图例。要按日期缩放点颜色，我必须将日期转换为数字，并且我宁愿不在绘图上显示日期图例。另一方面，形状图例是要显示的重要信息。我知道legend.position="none" 将完全删除图例，但这给我留下了如何传达形状背后含义的问题。

library(ggplot2)
w<-read.table("data.txt", header=TRUE)
pt.data <- w[w$dt==min(w$dt),]
p <- ggplot(data=w, aes(OAD,RtgValInt,color=dt,shape=Port)) +
     geom_jitter(size=3, alpha=0.75) +
     scale_colour_gradient(limits=c(min(w$dt), 
             max(w$dt)),
         low="#9999FF", high="#000066") +
     geom_point(data=pt.data, 
         color="red", size=3, aes(shape=Port))
print(p)

data.txt 文件包含以下行。

Date          Port    OAD         RtgValInt   dt
12/31/2010  Grp1    1.463771    1.833333    14974
12/31/2010  Grp2    1.193307    2.071429    14974
11/30/2010  Grp1    1.454115    1.833333    14943
11/30/2010  Grp2    1.127755    2.071429    14943
10/29/2010  Grp1    1.434965    2.000000    14911
10/29/2010  Grp2    1.055758    2.071429    14911
09/30/2010  Grp1    1.441773    2.000000    14882
09/30/2010  Grp2    1.077799    2.071429    14882

【问题讨论】：

标签： r ggplot2

【解决方案1】：

您可以在图层级别隐藏图例。如果您将颜色美学从最初调用 ggplot 移动到抖动层，这似乎会产生您所追求的效果。我有点困惑，为什么你要根据日期来着色，而不是提供颜色含义的关键......但这是一个更哲学的问题，需要你去思考。

ggplot(data=w, aes(OAD,RtgValInt,shape=Port)) +
  geom_jitter(size=3, alpha=0.75, color=dt, legend = FALSE) +
  scale_colour_gradient(limits=c(min(w$dt), max(w$dt)),low="#9999FF", high="#000066") +
  geom_point(data=pt.data, color="red", size=3, aes(shape=Port))

【讨论】：

虽然这会删除数据图例，但它也会从点中删除颜色缩放。日期代表固定的历史时期（例如 1 个月），它们的实际值不是进口和随时间变化的趋势。
我想你可能真的想在比例级别压制图例：+ scale_colour_gradient(..., legend = F)
从 0.9.0 开始不推荐使用图例字段，您可以改用 show_guide 字段。
show_guide 字段已弃用。请改用scale_colour_gradient(..., guide = "none")。
@ZoëClark - 随时更新和编辑答案以使其更具相关性...这是四年前回答的问题，从那时起 ggplot2 已经成长了很多！