几个分类变量的条形图

Question

我有一个包含 50 个因子的子集 data3，我想绘制所有这些因子的条形图。我知道如何一个一个地做，但我想知道是否有一种方法可以一次对整个数据集进行：

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

Answer 1

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

中

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

或者另一种选择是使用 pivot_longer 转换为 'long' 格式并使用 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()

几个分类变量的条形图

Barplot of several categorical variables

plot

r

categorical-data