即使手动覆盖，ggplot2 图例也不匹配

Question

我似乎无法让图例与我的图表相匹配。我已将形状和填充移至 aes 外部、aes 内部。手动覆盖时出现堆栈溢出，但似乎没有任何效果。

所以，我有四点（视觉上只出现三点：这对我的目的来说很好）。两个点是一个菱形，一个是绿色，一个是蓝色；然后两个是圆圈，一个是绿色的，另一个是蓝色的。所以我希望图例上有四个点充满颜色 - 所以两颗钻石：一颗绿色，一颗蓝色。然后是两个圆圈：一绿一蓝。

颜色和形状就在此图表上。有人可以帮忙解决一下传说吗？ （我不想要线条的颜色，只想要形状和填充）。

可重现的代码

colours <- data.frame(purple = '#411D64',
                  blue = '#486C8B',
                  green = '#70B87B')

library(ggplot2)
library(latex2exp)

size_y_s0 <- data.frame(
  name = 'Size Anchor',
  shape = 'size0',
  x = 0,
  y = 1,
  colour = colours$blue
)

size_y_sn <- data.frame(
  name = 'Size Response',
  shape = 'size*',
  x = 0.4,
  y = 0.9,
  colour = colours$blue
)

income_x_s0 <- data.frame(
  name = 'Income Anchor',
  shape = 'income0',
  x = 1,
  y = 0,
  colour = colours$green
)

income_x_sn <- data.frame(
  name = 'Income Response',
  shape = 'income*',
  x = 0.9,
  y = 0.4,
  colour = colours$green
)

size_y_dcc <- data.frame(
  name = "$D^{c}_{c}$",
  x = c(0,0.4),
  y = c(1,0.9),
  colour = colours$blue
)
size_y_dcc_text <- data.frame(
  name = "$D^{c}_{c}$",
  text_x = 0.38,
  text_y = 0.99,
  angle = 352
)
size_y_dcp <- data.frame(
  name = "$D^{c'}_{c}$",
  x = c(0,0.9),
  y = c(1,0.4),
  colour = colours$green
)

size_y_dcp_text <- data.frame(
  name = "$D^{c'}_{c}$",
  text_x = 0.8,
  text_y = 0.56,
  angle = 340
)

data_plot1 <- list(
  size_y_s0,
  size_y_sn,
  income_x_s0,
  income_x_sn,
  size_y_dcc,
  size_y_dcp,
  size_y_dcp_text,
  size_y_dcc_text
)

ggplot() +
  geom_line(data = data_plot1[[5]],
            aes(x = x, y = y), colour = data_plot1[[5]]$colour, size = 5, show.legend = FALSE
  ) +
  geom_line(data = data_plot1[[6]],
            aes(x = x, y = y), colour = data_plot1[[6]]$colour, size = 5, show.legend = FALSE
  ) +
  geom_point(data = data_plot1[[1]],
             aes(x = x, y = y, fill = colour, shape = shape),fill = data_plot1[[1]]$colour, shape = 21, size = 5, show.legend = TRUE
             ) +
  geom_point(data = data_plot1[[2]],
             aes(x = x, y = y, fill = colour, shape = shape), fill = data_plot1[[2]]$colour, shape = 23, size = 5, show.legend = TRUE
  ) +
  geom_point(data = data_plot1[[3]],
             aes(x = x, y = y, fill = colour, shape = shape), fill = data_plot1[[3]]$colour, shape = 21, size = 5, show.legend = TRUE
  ) +
  geom_point(data = data_plot1[[4]],
             aes(x = x, y = y, fill = colour, shape = shape), fill = data_plot1[[4]]$colour, shape = 23, size = 5, show.legend = TRUE
  ) +
  annotate(
    geom = "text", 
           x = data_plot1[[7]]$text_x, 
           y = data_plot1[[7]]$text_y, 
           label = TeX(data_plot1[[7]]$name), 
           size = 15,
           angle = data_plot1[[7]]$angle)+
  annotate(
    geom = "text", 
    x = data_plot1[[8]]$text_x, 
    y = data_plot1[[8]]$text_y, 
    label = TeX(data_plot1[[8]]$name), 
    size = 15,
    angle = data_plot1[[8]]$angle) +
  scale_fill_manual(
    name = 'Legend',
    guide = 'legend',
    labels = c(
      data_plot1[[1]]$name,
      data_plot1[[2]]$name,
      data_plot1[[3]]$name,
      data_plot1[[4]]$name
    ),
    values = c(
      data_plot1[[1]]$colour,
      data_plot1[[2]]$colour,
      data_plot1[[3]]$colour,
      data_plot1[[4]]$colour
    )
  ) +
  scale_shape_manual(
    name = 'Legend',
    guide = 'legend',
    labels = c(
      data_plot1[[1]]$name,
      data_plot1[[2]]$name,
      data_plot1[[3]]$name,
      data_plot1[[4]]$name
    ),
    values = c(
      23,
      21,
      23,
      21
    )
  )

Answer 1

我认为列表data_plot1用作数据帧列表不是绘制目的的好选择。您可以在几个数据帧（点，文本等）上拆分Geoms，并可以更好地控制AES。请参阅一个示例

colours <- data.frame(
  purple = "#411D64",
  blue = "#486C8B",
  green = "#70B87B"
)

library(ggplot2)
library(latex2exp)

size_y_s0 <- data.frame(
  name = "Size Anchor",
  shape = "size0",
  x = 0,
  y = 1,
  colour = colours$blue
)

size_y_sn <- data.frame(
  name = "Size Response",
  shape = "size*",
  x = 0.4,
  y = 0.9,
  colour = colours$blue
)

income_x_s0 <- data.frame(
  name = "Income Anchor",
  shape = "income0",
  x = 1,
  y = 0,
  colour = colours$green
)

income_x_sn <- data.frame(
  name = "Income Response",
  shape = "income*",
  x = 0.9,
  y = 0.4,
  colour = colours$green
)

size_y_dcc <- data.frame(
  name = "$D^{c}_{c}$",
  x = c(0, 0.4),
  y = c(1, 0.9),
  colour = colours$blue
)
size_y_dcc_text <- data.frame(
  name = "$D^{c}_{c}$",
  text_x = 0.38,
  text_y = 0.99,
  angle = 352
)
size_y_dcp <- data.frame(
  name = "$D^{c'}_{c}$",
  x = c(0, 0.9),
  y = c(1, 0.4),
  colour = colours$green
)

size_y_dcp_text <- data.frame(
  name = "$D^{c'}_{c}$",
  text_x = 0.8,
  text_y = 0.56,
  angle = 340
)

# data frames for the plot
df_points <- rbind(
  size_y_s0,
  size_y_sn,
  income_x_s0,
  income_x_sn
)
df_tex <- rbind(size_y_dcp_text, size_y_dcc_text)

ggplot() +
  # Lines
  geom_line(
    data = size_y_dcc,
    aes(x = x, y = y), colour = size_y_dcc$colour, size = 5, show.legend = FALSE
  ) +
  geom_line(
    data = size_y_dcp,
    aes(x = x, y = y), colour = size_y_dcp$colour, size = 5, show.legend = FALSE
  ) +
  # Points
  geom_point(data = df_points, aes(x, y, shape = shape, fill = shape), size = 5) +
  scale_shape_manual(
    name = "Legend",
    guide = "legend",
    values = c(23, 21, 23, 21), labels = df_points$name
  ) +
  scale_fill_manual(
    values = rev(df_points$colour), labels = df_points$name,
    name = "Legend", guide = "legend"
  ) +
  annotate(
    geom = "text",
    x = df_tex$text_x,
    y = df_tex$text_y,
    label = TeX(df_tex$name),
    size = 10,
    angle = df_tex$angle
  )

Answer 2

我没有足够的代表将其作为评论，但也许这有帮助：

在我看来，您的传奇甚至没有出现在此代码示例中。这可能是因为GGPLOT仅为美学映射创建传说（在AES函数内）。但是，您的geom_point（）每一个都只使用一个数据框架，其中一个行和变量级别。这是因为Geoms不会互相传达其数据，因为它是在每个Geom中本地定义的。您可以考虑一种将所有数据帧绑定到兼容“长”格式（例如使用Pivot_longer（）和bind_rows（））的方法，因此您只需要一个geom_line（）和一个geom_point（）和一个是映射颜色和绘制颜色和绘制颜色的geom_point（）填写数据中的某种组。

您想要提供GGPLOT的数据形状，以表现出您的期望，即以下样式：

p1 = data.frame(group = c('income','income'), x = c(0, 0.5), y = c(1,0.8))
p2 = data.frame(group = c('size','size'), x = c(0, 0.8), y = c(1,0.25))

dat <- rbind(p1,p2)
ggplot(dat) + geom_point(aes(x = x, y = y, fill = group, shape = group, col = group)) + 
  geom_line(aes(x=x,y=y, col = group))