r - 在 ggplot2 中指定图例中的形状

Question

我想更改我的图例，使其显示颜色但不区分形状。

这是一些数据:

 exampledata <- tribble(~subject, ~group, ~PC, ~condition,
    "1", "A", .8, "cond1",
    "1", "A", .4, "cond2",
    "2", "B", .45, "cond1",
    "2", "B", .4, "cond2",
    "3", "A", .6, "cond1",
    "3", "A", .3, "cond2",
    "4", "B", .5, "cond1",
    "4", "B", .34, "cond2",
    "5", "A", .86, "cond1",
    "5", "A", .34, "cond2",
    "6", "B", .45, "cond1",
    "6", "B", .64, "cond2",
    "7", "A", .36, "cond1",
    "7", "A", .23, "cond2",
    "8", "B", .59, "cond1",
    "8", "B", .24, "cond2",
    "9", "A", .8, "cond1",
    "9", "A", .14, "cond2",
    "10", "B", .42, "cond1",
    "10", "B", .74, "cond2",
    "11", "A", .56, "cond1",
    "11", "A", .32, "cond2",
    "12", "B", .65, "cond1",
    "12", "B", .14, "cond2",
    "13", "A", .76, "cond1",
    "13", "A", .63, "cond2",
    "14", "B", .56, "cond1",
    "14", "B", .14, "cond2",
    "15", "A", .66, "cond1",
    "15", "A", .33, "cond2",
    "16", "B", .65, "cond1",
    "16", "B", .24, "cond2",
    "17", "A", .16, "cond1",
    "17", "A", .73, "cond2",
    "18", "B", .29, "cond1",
    "18", "B", .22, "cond2"
    )

到目前为止我一直在使用的代码:

 ggplot(exampledata, aes(x=condition, y=PC, shape = condition, color = group))+
   geom_point(aes(group=group), size = 5, position=position_dodge(-.2)) +
   stat_summary(fun.data=mean_cl_boot, geom = "pointrange", aes(shape=condition, fill = group), 
           size=1.5, position = position_dodge(-.2), colour = "grey32") +
   stat_summary(fun.y = mean, aes(group=group, colour=group), geom='line', size=.8, position = position_dodge(-.2)) +
   scale_shape_manual(name = "group",
                 labels = c("A", "B"),
                 values=c(21,24)) +
   scale_colour_manual(name = "group",
                  labels = c("A", "B"),
                  values = c("#F8766D","#00BFC4")) +
   xlab("condition") +
   ylab('%') +
   theme_bw(base_size=15) +
   theme(axis.text = element_text(size = 20),
    axis.title = element_text(size=20),
    legend.title = element_blank(),
    legend.justification=c(1,1), legend.position=c(1,.99))

这会生成附加图，这几乎是我想要的。然而，正如您所看到的，图例中的形状也有所不同。我希望形状是相同的，理想情况下是填充的正方形。我尝试了 this post 的建议，并将 guides(colour = Guide_legend(override.aes = list(shape = 15))) 添加到我的代码中，但这给了我带有彩色线条的灰色方 block -我想要指定颜色的填充方 block 。我想我已经快到了，但我不太明白] 2

Answer 1

以下代码将图例绘制为简单的彩色圆圈:

ggplot(exampledata, aes(x=condition, y=PC, shape = condition, color = group)) +
  geom_point(aes(group=group), size = 5, position=position_dodge(-.2)) +
  stat_summary(fun.data=mean_cl_boot, geom = "pointrange", aes(shape=condition, fill = group), 
               size = 1.5, position = position_dodge(-.2), colour = "grey32", show.legend = FALSE) +
  stat_summary(fun.y = mean, geom='line', aes(group=group, colour=group),
               size=.8, position = position_dodge(-.2), show.legend = FALSE) +
  scale_shape_manual(name = "group",
                     labels = c("A", "B"),
                     values=c(21,24)) +
  scale_colour_manual(name = "group",
                      labels = c("A", "B"),
                      values = c("#F8766D","#00BFC4")) +
  xlab("condition") +
  ylab('%') +
  theme_bw(base_size=15) +
  theme(axis.text = element_text(size = 20),
        axis.title = element_text(size=20),
        legend.title = element_blank(),
        legend.justification=c(1,1), legend.position=c(1,.99)) +
  guides(shape = FALSE)

这里有两个更改:首先，我将 show.legend = FALSE 添加到 stat_summary 函数中，因此它们不再包含在图例中(否则他们会添加小线几何图形)。其次，我添加了guides(shape = FALSE)，以便形状美观不会映射到图例。