频率乘销售条形图

Question

我的数据有一个订单列表，包括订单号，产品类别，销售数量。

每个订单可以包含多个销售数量。

我需要创建一个按产品类别销售的条形图，而不是仅仅计算每个产品类别的订单数量。我需要数一下订单的数量乘以它们各自的销售数量。我该怎么写代码？谢谢

Answer 1

让我们从一个可复制的例子开始。

library(tidyverrse)

d <- data.frame(category = c(rep("Produt1", 5),rep("Produt2", 5), rep("Produt3", 5)),
                order = round(rnorm(15, 10, 5)),
                sales = round(rnorm(15, 5, 4)))

category order sales

Produt1 13  12      
Produt1 10  7       
Produt1 3   8       
Produt1 12  7       
Produt1 11  1       
Produt2 22  7       
Produt2 9   8       
Produt2 0   3       
Produt2 15  5       
Produt2 13  5

我们可以按组进行聚合，并在一个名为total的新变量中总结结果。

d1 <- d |>
  group_by(category) |>
  summarise(total = sum(order * sales))
  
ggplot() +
 geom_col(data = d1, 
          aes(y = total,
              x = category,
              fill = category)) +
  theme_bw()

你就是这么想的吗？

​

​