一个条中的多个变量 R 中的 plot

Question

我的数据结构类似于以下数据：

a <- c(sample(c(0,1), replace=TRUE, size=10))
b <- c(sample(c(0,1), replace=TRUE, size=10))
c <- c(sample(c(0,1), replace=TRUE, size=10))
d <- c(sample(c(0,1), replace=TRUE, size=10))
e <- c(sample(c(0,1), replace=TRUE, size=10))
f <- c(sample(c(0,1), replace=TRUE, size=10))
df <- data.frame(a,b,c,d,e,f)

我现在想在一个条形图中 plot 数据，以便每个变量显示 0 和 1 的数量。 任何帮助将不胜感激！

Answer 1

如果我理解正确，您只需要获取一列元素的总和并将其绘制成条形图。

这是解决方案：

# barplot of the number of 1
barplot(colSums(df))

# barplot of the number of 0
barplot(nrow(df) - colSums(df))

# combined plot with stacked bars
barplot(rbind(colSums(df),nrow(df) - colSums(df))) 

Answer 2

您还可以将数据集转换为长格式并使用新数据集创建绘图：

library(tidyverse)

df %>%
  pivot_longer(cols = everything()) %>%
  ggplot() +
  geom_bar(aes(x = name,  
               fill = factor(value))) +
  labs(fill = "Group")

如果要显示相邻的条，可以将 position 设置为dodge ：

df %>%
  pivot_longer(cols = everything()) %>%
  ggplot() +
  geom_bar(aes(x = name,  
               fill = factor(value)),
           position  = "dodge") +
  labs(fill = "Group")