如何用ggplot2绘制多维度分类调研数据，替代杂乱柱状图展示方案

项目背景 #

针对两款清洁产品（Product A、Product B）开展消费者满意度市场调研，调研数据按三个维度拆分：

• 使用房间：Kitchen、Bathroom、Bedroom
• 使用频率：Daily、Weekly、Monthly
• 产品瓶身尺寸：Small、Medium、Large

现有方案问题 #

最初选择柱状图作为结果展示方式，但呈现效果未达预期：最小可复现示例（MWE）中的数据为升序排列，而真实数据中不同柱子尺寸差异大，导致图表视觉效果非常杂乱，需要寻求更合适的可视化呈现方案。

最小可复现代码（MWE） #

library(ggplot2)

Product <- c("Product A", "Product B")
Place <- c("Kitchen", "Bathroom", "Bedroom")
Bottle_size <- c("Small", "Medium", "Large")
Frequency <- c("Daily", "Weekly", "Monthly")

DF <- expand.grid(Bottle_size = Bottle_size,
                  Place = Place,
                  Frequency = Frequency,
                  Product = Product)

DF$Consumer_Approval <- seq(from = 10,
                            to = 100,
                            by = (100-10)/53)

ggplot(data = DF,
       aes(x = Frequency,
           y = Consumer_Approval)) +
  geom_col(aes(fill = Bottle_size),
           position = "dodge") +
  facet_grid(Product ~ Place)

效果参考 #

MWE效果图、真实数据效果图见原提问附带素材

内容的提问来源于stack exchange，提问作者DVCar