16

假设我不需要“适当的”变量映射，但仍然希望有图例键来帮助理解图表。我的实际数据类似于以下df

df <- data.frame(id = 1:10, line = rnorm(10), points = rnorm(10))

library(ggplot2)

ggplot(df) +
  geom_line(aes(id, line, colour = "line")) +
  geom_point(aes(id, points, colour = "points"))

在此处输入图像描述

基本上，我希望相对于的图例键points是.. 只是一个点，中间没有线。我接近了这个：

library(reshape2)

df <- melt(df, id.vars="id")

ggplot() +
  geom_point(aes(id, value, shape = variable), df[df$variable=="points",]) +
  geom_line(aes(id, value, colour = variable), df[df$variable=="line",])

但它定义了两个独立的图例。修复第二个代码（并且必须重塑我的数据）也可以，但我更喜欢手动更改任何图例键（并继续使用第一个方法）的方法（如果有的话）。谢谢！

编辑 ：

谢谢@alexwhan，你刷新了我对变量映射的记忆。但是，到目前为止，我最简单的方法仍然是以下（非常糟糕的 hack！）：

df <- data.frame(id = 1:10, line = rnorm(10), points = rnorm(10))

ggplot(df) +
  geom_line(aes(id, line, colour = "line")) +
  geom_point(aes(id, points, shape = "points")) +
  theme(legend.title=element_blank())

这只是隐藏了两个不同传说的标题。

在此处输入图像描述

其他想法更受欢迎！！！

4

2 回答 2

31

您可以使用override.aes=内部guides()函数来更改图例的默认外观。在这种情况下，您的指南是color=，然后您应该设置shape=c(NA,16)为删除线的形状，然后linetype=c(1,0)从点中删除线。

ggplot(df) +
  geom_line(aes(id, line, colour = "line")) +
  geom_point(aes(id, points, colour = "points"))+
  guides(color=guide_legend(override.aes=list(shape=c(NA,16),linetype=c(1,0))))

在此处输入图像描述

于 2013-05-13T19:29:01.943 回答
6

我不知道有什么方法可以轻松做到这一点，但你可以做一个这样的黑客版本（使用你融化的数据框）：

p <- ggplot(df.m, aes(id, value)) +
  geom_line(aes(colour = variable, linetype = variable)) + scale_linetype_manual(values = c(1,0)) +
  geom_point(aes(colour = variable, alpha = variable)) + scale_alpha_manual(values = c(0,1))

在此处输入图像描述

关键是您需要获得正确的映射才能使其在图例中正确显示。在这种情况下，让它“正确”意味着欺骗它以使其看起来像你想要的那样。可能值得指出的是，这只有效，因为您可以设置linetype为空白 (0)，然后使用alpha点的比例。你不能同时使用alpha两者，因为它只需要一个刻度。

于 2013-05-01T02:12:14.303 回答