问题描述
我有一个包含 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()