如何在ggplot2中获取堆叠的geom_bar和geom_point的通用图例？

索兰

因此，我正在使用以下信息构建图：

以堆叠的geom_bar图表显示并按国家/地区划分的单个家庭的收入组成部分（工资，社会转移，税收）；
该纯收入每户型国家的税收和转移支付后，一个geom_point图表中显示。

这被安排在以下数据框中：

example <- data.frame(country = c("Arcadia", "Asgard", "Atlantis", "Avalon"),
            wage = c(80, 70, 55, 40),
            transfers = c(15, 15, 5, 20),
            tax = c(-10, -5, -5, 0),
            net = c(85, 80, 65, 60)) %>% gather(icom, euro, wage:net)

然后将其绘制成图：

income_graph <- ggplot(filter(example, icom != "net"), aes(x = country, y = euro, fill = factor(icom, levels = c("transfers", "wage", "tax")))) +
  geom_bar(stat = "identity", colour = "black") +
  geom_point(data = filter(example, icom == "net"), colour = "black", shape = 5) +
  labs(fill = "Income components") +
  scale_fill_brewer(palette = "Greys", labels=(c("Social transfers", "Wage", "Tax"))) 
income_graph

结果如下图所示。

这是我需要帮助的地方：图形完成了我需要做的事情，但是我一生都无法弄清楚如何让geom_bar和geom_point图形使用组合图例（即圆形“净”指标）在相同的“收入成分”标题下）。从我发现阅读其他条目的发现来看，一种解决方案可能是将geom_bar和geom_point都映射到“填充”，但这似乎最终是将“净”菱形与其他icom条目重叠。[*]

在此先感谢您，希望问题不会重复出现-我在StackOverflow上找不到适用的解决方案，但是如果答案很明显，它将很高兴地重定向到一个解决方案。

[*] =（单独地并且以较小的比例，是否有可能使“净”指标用白色填充并用黑色轮廓填充？这可能是合乎逻辑的解决方案，但我发现自己对此有些挠头。）

Senzeybek

geom_point(shape=21) + scale_color_manual 在这种情况下可以挽救生命

income_graph <- ggplot(filter(example, icom != "net"), aes(x = country,
 y = euro, fill = factor(icom, levels = c("transfers", "wage", "tax",'net')))) +
  geom_bar(stat = "identity", colour = "black") +
  geom_point(data = filter(example, icom == "net"),aes(color=icom), 
  shape = 21, size = 1.5, stroke = 1,fill='white') +
  labs(fill = "Income components") +
  scale_fill_brewer(palette = "Greys", labels=(c("Social transfers", "Wage", "Tax"))) +
  scale_colour_manual("", values='black', label='Net')
income_graph