r - ggplot2 条形图，条内有线条

Question

我正在制作一个绘图，其中我有一个从 facet_wrap 获得的 3x3 网格。九个绘图中的八个使用 geom_violin，而其余绘图使用 geom_bar 制作。在网站上找到一些有用的答案后，我就可以正常工作了。我遇到的问题是，当我为条形图使用 fill = "white, color = "black" 时，它会在条形图内部绘制这些线。

这里是一些示例代码和图表。

library(tidyverse)
n <- 100
tib <- tibble(value = c(rnorm(n, mean = 100, sd = 10), rbinom(n, size = 1, prob = (1:4)/4)),
              variable = rep(c("IQ", "Sex"), each = n),
              year = factor(rep(2012:2015, n/2)))
ggplot(tib, aes(x = year, y = value)) + 
  facet_wrap(~variable, scales = "free_y") +
  geom_violin(data = filter(tib, variable == "IQ")) +
  geom_bar(data = filter(tib, variable == "Sex"), stat = "identity", 
           color = "black", fill = "white")

现在回答我的问题:如何去除条形图内的这些线条？我只希望它是白色的，带有黑色边框。我一直在尝试各种配置，我可以设法摆脱线条，但代价是把小平面搞砸了。我相当确定它与统计数据有关，但我在尝试修复它时不知所措。有什么建议吗？

Answer 1

我建议在条形图中总结数据:

ggplot(tib, aes(x = year, y = value)) + 
  facet_wrap(~variable, scales = "free_y") +
  geom_violin(data = filter(tib, variable == "IQ")) +
  geom_bar(data = tib %>%
             group_by(year,variable) %>%
             summarise(value=sum(value)) %>%
             filter(variable == "Sex"),
           stat = "identity", 
           color = "black",
           fill = "white")