ggplot2：使图例中的符号匹配图中的符号

Question

我正在尝试绘制一个大多数数据点正常绘制的图，但一组数据点具有不同大小的符号。我希望图例显示相同：大多数点正常显示，但用不同大小的符号绘制的例外。下面是一小段代码：

library(ggplot2)
x = c(1,2,1,2,3)
y = c(1,2,3,4,3)
vendor = c("x", "x", "y", "y", "z")
df = data.frame(x,y,vendor)

p <- ggplot(df) +
     aes_string(x="x", y="y", color="vendor") +
     geom_point(size=3, data=subset(df, vendor!="z")) +
     geom_point(size=5, data=subset(df, vendor=="z"))
ggsave("foo.pdf")

问题在于，在生成的图例中，所有 点都是用较大的 (size=5) 符号绘制的，而不仅仅是带有供应商 z 的那些。我希望供应商 z 用图例中较大的点绘制，而其他供应商用 size=3 绘制。

（奖励问题：我真正想要的是一个更大的粗轮廓符号：我想要一个甜甜圈而不是圆圈。我意识到shape=2 会画一个轮廓圆圈，但它很薄。我宁愿有一个更粗的轮廓圆圈。我想对三角形做同样的事情。有什么简单的方法吗？）

也许我应用错了，但遵循以下建议：

ggplot2: Making changes to symbols in the legend

添加“指南”行没有帮助：

guides(size = guide_legend(override.aes = list(shape = 1)))

即相同的输出，图例中的所有三个供应商都有size=5 符号。

已编辑：很棒的答案，我很快就实现了。现在我添加了几行：

library(ggplot2)
x = c(1,2,1,2,3)
y = c(1,2,3,4,3)
vendor = c("x", "x", "y", "y", "z")
df = data.frame(x,y,vendor)

df$vendor_z <- df$vendor=="z"     # create a new column 

ggplot(df) +
  aes_string(x = "x", y = "y", color = "vendor", size = "vendor_z") +
  geom_point() +
  geom_line(size=1.5) +   # this is the only difference
  scale_size_manual(values = c(3, 5), guide = FALSE) 
  guides(colour = guide_legend(override.aes = list(size = c(3, 3, 5))))

ggsave("foo.pdf")

现在所有点的图例大小又回到了 3，包括供应商 z 的点。有关如何解决此问题的任何想法？

Answer 1

大小不适用于图例，因为size 在aes_string 之外。此外，如果您创建一个额外的列来指示是否为vendor == "z"，使用ggplot 会更容易。

这是第 1 部分的解决方案：

df$vendor_z <- df$vendor=="z"     # create a new column 

ggplot(df) +
  aes_string(x = "x", y = "y", color = "vendor", size = "vendor_z") +
  geom_point() +
  scale_size_manual(values = c(3, 5), guide = FALSE) + 
  guides(colour = guide_legend(override.aes = list(size = c(3, 3, 5))))

注意vendor_z 是aes_string 的参数。这将告诉ggplot 为size 特性创建一个图例。在函数scale_size_manual 中，设置了size 的值。此外，guide = FALSE 避免了仅用于size 的第二个图例。最后，size 值应用于color 图例。

第 2 部分：一个“甜甜圈”符号

在ggplot 中不能修改圆圈的线条大小。这是一个解决方法：

ggplot(df) +
  aes_string(x = "x", y = "y", color = "vendor", size = "vendor_z") +
  geom_point() +
  geom_point(data = df[df$vendor_z, ], aes(x = x, y = y),
             size = 3, shape = 21, fill = "white", show_guide = FALSE) +
  scale_size_manual(values = c(3, 5), guide = FALSE) + 
  guides(colour = guide_legend(override.aes = list(size = c(3, 3, 5))))

在这里，使用geom_point 和数据子集 (df[df$vendor_z, ]) 绘制单个点。我选择了size 或3，因为这是较小圆圈的值。 shape 21 是一个可以指定fill 颜色的圆圈。最后，show_guide = FALSE 避免了图例特征被新的shape 覆盖。

编辑：第 3 部分：添加行

您可以使用参数 show_guide = FALSE 隐藏 geom_line 的图例：

ggplot(df) +
  aes_string(x = "x", y = "y", color = "vendor", size = "vendor_z") +
  geom_point() +
  geom_line(size=1.5, show_guide = FALSE) +   # this is the only difference
  scale_size_manual(values = c(3, 5), guide = FALSE) +
  guides(colour = guide_legend(override.aes = list(size = c(3, 3, 5))))