如何在堆叠的条形图上叠加条形图？

Question

我正在尝试将条形图覆盖在堆积条形图上，如下图所示。虽然这运作良好，但虚线类型并未在图例中显示。

Dotted bar plot on top of stacked barplot

这是我的数据：

data = data.frame(treat=c("min","plus","min","plus"),
                  obs=c(8,7,121,98),
                  type=c("Tare","Tare","Net","Net"))

data2 = data.frame(treat=c("min","plus"),
                   obs=c(20,15),
                   type=c("Sugar","Sugar"))

以及我用来制作图表的代码：

ggplot(data = data, aes(x=treat, y=obs, fill = type)) + 
  theme_classic() + 
  geom_bar(stat="identity", col = "black", width = .75) +
  geom_bar(data = data2, stat="identity", fill = "transparent", col = "black", size = .8, linetype = "dotted", width = .75, show.legend = F) +
  scale_fill_manual(values = c("#F8766D", "#00BFC4", NA),
         limits = c("Tare", "Net", "Sugar"))

如何使第二个条在图例中显示为虚线？

Answer 1

这就是你要找的吗？

library(tidyverse)
data = data.frame(treat=c("min","plus","min","plus"),
                  obs=c(8,7,121,98),
                  type=c("Tare","Tare","Net","Net"))

data2 = data.frame(treat=c("min","plus"),
                   obs=c(20,15),
                   type=c("Sugar","Sugar"))

ggplot(data = data, aes(x=treat, y=obs, fill = type)) + 
  theme_classic() + 
  geom_bar(stat="identity", col = "black", width = .75) +
  geom_bar(data = data2, stat="identity", 
           fill = "transparent", col = "black", size = .8, 
           aes(linetype = "dotted"), 
           width = .75, 
           show.legend = T) +
  scale_fill_manual(values = c("#F8766D", "#00BFC4", NA),
                    limits = c("Tare", "Net", "Sugar"),
                    name="type")+
  scale_linetype_manual(name="Sugar", values="dotted")+
  guides(fill = guide_legend(keywidth = 1, keyheight = 1),
         linetype=guide_legend(keywidth = 3, keyheight = 1))

^{由reprex package (v0.3.0) 于 2020 年 12 月 10 日创建}