如何用R填充绘制条形图

Question

我的英语说得不好，所以请理解。我正在尝试创建一个填充的条形图，每次填充的百分比总计为100。很难比较，因为每个类别都有不同的编号。 O中大约有600，Well_Sold中大约有6000。我想使比较容易。 具体来说，关于Well_Sold的O，我希望Publisher_ind中的K和U之和为100％，与X相似。 我找不到填充的方法。所以我想出了 facet_grid 的方法 像这样

library(ggplot2)

ggplot(game,aes(x=Publisher_ind,group=Well_Sold))+
geom_bar(aes(y=..prop..,fill=factor(..x..)),stat="count")+
geom_text(aes(label=scales::percent(..prop..),
              y=..prop..),stat="count",vjust=-.5)+
labs(y="Percent",fill="Publisher_ind")+
facet_grid(~Well_Sold)+
scale_y_continuous(labels=scales::percent)

但是其他变量有10个或更多类别，此方法不方便。 我想要的是：

非常感谢您教我如何操作。

Answer 1

我认为您想要的是一个分组的BarPlot： -https://www.statmethods.net/graphs/bar.html -（ggplot2）https://www.r-graph-gallery.com/48-grouped-barplot-with-ggplot2/