R 雨云图-直方图？

我想创建一个雨云图。我已经成功地做到了。但我想知道是否可以用直方图代替密度曲线（这对我的数据集更好）。 这是我的代码，如果可以使用的话

ATSC <- ggplot(data = data, aes(y = atsc, x = numlecteur, fill = numlecteur)) +
  geom_flat_violin(position = position_nudge(x = .2, y = 0), alpha = .5) +
  geom_point(aes(y = atsc, color = numlecteur), position = position_jitter(width = .15), size = .5, alpha = 0.8) +
  geom_point(data = sumld, aes(x = numlecteur, y = mean), position = position_nudge(x = 0.25), size = 2.5) +
  geom_errorbar(data = sumld, aes(ymin = lower, ymax = upper, y = mean), position = position_nudge(x = 0.25), width = 0) +
  guides(fill = FALSE) +
  guides(color = FALSE) +
  scale_color_brewer(palette = "Spectral") +
  scale_y_continuous(breaks=c(0,2,4,6,8,10), labels=c("0","2","4","6","8","10"))+
  scale_fill_brewer(palette = "Spectral") +
  coord_flip() +
  theme_bw() +
  expand_limits(y=c(0, 10))+
  xlab("Lecteur") + ylab("Age total sans check")+
  raincloud_theme

---

这其实并不容易。还有一些挑战

geom_柱状图

是“自然水平的”，而定制的

geom_平面图

是垂直的-盒状图也是如此。因此，在该教程中最后调用

coord\u flip

。为了将两者结合起来，我认为最好是切换x和y，忘记坐标翻转，而是使用

ggstance:：geom\u boxploth

为每个类别创建单独的直方图是另一个挑战。我的解决方法是创建面并“将它们合并在一起”

直方图的缩放方式大于点/箱线图的宽度。我的解决方案通过

after_stat

功能进行缩放

如何将柱状图推到箱线图和点上方的正确位置-我正在将离散比例转换为连续比例，方法是将一个常量数字映射到全局y美学，然后使用镶嵌面标签作为离散标签

库（tidyverse）
我的数据你好，欢迎来到SO。为了帮助我们帮助你，链接到你的资料来源总是很好的-在你的情况下，几乎100%可能很抱歉，当我用英语翻译它时，我忘了放它！我也用过这个：P.S.数据和代码框架是基于