在 ggplot 分面网格中的列上重叠数据

如何解决在 ggplot 分面网格中的列上重叠数据

预先感谢您对 R 的完全新手进行幽默。我正在使用来自 GSS 的一些数据用于在线课程，并且我已经创建了一个 ggplot 分面网格。我敢肯定我已经做了一个超级笨拙的很长的路要走，但我试图让这些数据点不相互重叠，而是以列为中心。

这是我到目前为止所得到的：

我从 GSS 创建了一个新数据集，其中包含变量“conpress”、“sex”和“news”——这些变量指的是对媒体的信心、性别以及某人阅读报纸的频率。我想得到百分比，而不是计数，这就是为什么我做了 ..count..stuff。


gss_press_full <- gss %>% select (conpress,news,sex)

gss_press_clean <-na.omit(gss_press_full)


ggplot(gss_press_clean,aes(x = conpress,y = (..count..)/sum(..count..),fill = sex)) +
    geom_bar(aes(y = (..count..)/sum(..count..)),position = position_dodge()) + facet_grid(news~.) +
    geom_text(aes(y = ((..count..)/sum(..count..)),label = round((..count..)/sum(..count..),2)),stat = "count",vjust = -0.25) +
    labs(title = "Newspaper readership and Press confidence",y = "Percent",x = "Levels of confidence in the Press")

我已经在谷歌上搜索了太久，似乎无法找到一种方法来调整列顶部的这些标签。这似乎特别棘手，因为我的 y 变量是在我的 ggplot 创建中计算的，但同样，就像一个完整的新手，这就是我如何拼凑输出的方式。如果有人在如何简化此过程方面提供帮助，我也将不胜感激！

（我希望我已经包含了足够的代码来提供帮助！）

再次感谢您的帮助！