如何在 R 中创建多变量堆积柱形图 (ggplot2)

Question

目前，我有一个如下所示的数据框：

Month   Total Revenue    Dues   Total Retail    Other Revenue
8/31/2020   36615.00     30825  1200            4590
9/30/2020   38096.69     34322  2779.4          995.29
10/31/2020  43594.15     35936  2074.68         5583.47
11/30/2020  51856.9      43432  993.5           7431.4

我想在 ggplot 中创建一个图（我想应该是一个堆积柱）来显示每个月按类型划分的收入组合。对于我的数据，总收入是会费、零售总额和其他收入的总和。会费、零售总额和其他收入应该相互叠加，每个都有自己的颜色。我还希望柱形图上的标签描述每个收入来源占总收入的百分比。

我可以毫无问题地绘制总收入，但我似乎无法全神贯注地拆分列。我目前唯一成功的例子如下。

# Create Column Plot of Total Revenue
library(tidyverse)
plot1 <- ggplot(August_Data, aes(Month_End, `Total Revenue`)) + geom_col()

这个例子显然没有将收入分成正确的子类别。我认为使用 fill 命令可能有效，但我遇到了错误。

plot1 <- ggplot(August_Data, aes(Month_End, `Total Revenue`)) + geom_col(aes(fill = C(Dues, `Total Retail`, `Other Revenue`)))

非常感谢您的帮助

Answer 1

澄清后更新：

library(tidyverse)
library(lubridate)
df %>% 
    mutate(Month = mdy(Month)) %>% # this line is not necessary in OPs original code (not the one presented here)
    pivot_longer(
        cols = c("Dues", "TotalRetail", "OtherRevenue"),
        # cols = -c(Month_End, SID) in OPs original code
        names_to = "names", 
        values_to = "values"
    ) %>% 
    mutate(percent = values/TotalRevenue*100) %>% 
    ggplot(aes(x = Month, y= values, fill= names))+
    geom_col() +
    geom_text(aes(label = paste0(round(percent,1),"%")), 
              position = position_stack(vjust = 0.5), size = 5)

第一个回答： 你快到了。旋转更长的时间并添加 fill.

library(tidyverse)
library(lubridate)

df %>% 
    mutate(Month = mdy(Month)) %>% 
    pivot_longer(
        -Month, 
        names_to = "names", 
        values_to = "values"
    ) %>% 
    ggplot(aes(x = Month, y= values, fill= names))+
    geom_col()

如何在 R 中创建多变量堆积柱形图 (ggplot2)

How to Create A Stacked Column Plot of Multiple Variables in R (ggplot2)

r

data-visualization

ggplot2