几个分类变量的条形图

如何解决几个分类变量的条形图

我有一个包含 50 个因子的子集 data3，我想制作所有这些因子的条形图。我知道如何一个一个地做，但我想知道是否有办法一次性为整个数据集做：

barplot(prop.table(table(data3$factor1)))

解决方法

一种选择是遍历列，获取 proportions 并从 list 中绘制它，将其保存在 pdf 中

pdf("testing.pdf")
lst1 <- lapply(data3,function(x) barplot(proportions(table(x))))
dev.off()

---

或者另一种选择是使用 pivot_longer 转换为“长”格式并使用 ggplot 进行绘图

library(dplyr)
library(tidyr)
library(ggplot2)
data3 %>%
    pivot_longer(cols = everything()) %>%
    count(name,value = factor(value)) %>%
    group_by(name) %>%
    mutate(prop = n/sum(n)) %>%
    ungroup %>%
    ggplot(aes(x = name,y = prop,fill = value)) + 
        geom_col()