我的数据集如下所示:
| V1 | V2 | V3 | V4 |
|---|---|---|---|
| 1 | 0 | 0 | 1 |
| 0 | 1 | 0 | 0 |
| 0 | 1 | 1 | 0 |
| 1 | 0 | 1 | 1 |
| 0 | 0 | 0 | 0 |
| 1 | 0 | 1 | 1 |
我想要在一个条形图(4个条形图)上绘制每个变量出现1的次数.我可以使用ggploy for each 单独的变量绘制以下内容:
ggplot(df,aes(x = v1)) +
geom_bar(stat = 'count')
，但要将它们全部绘制在一个图形上，我似乎需要将数据框横放，但这样我就不知道如何计算1的计数了.
任何帮助都将不胜感激！
我们用ASMERISE/Cross得到sum by列，用pivot_longerreshape 为Long，然后使用ggplot
library(dplyr)
library(tidyr)
library(ggplot2)
df %>%
summarise(across(everything(), sum)) %>%
pivot_longer(cols = everything()) %>%
ggplot(aes(x = name, y = value, fill = name)) +
geom_col() +
coord_flip()
df <- structure(list(V1 = c(1L, 0L, 0L, 1L, 0L, 1L), V2 = c(0L, 1L,
1L, 0L, 0L, 0L), V3 = c(0L, 0L, 1L, 1L, 0L, 1L), V4 = c(1L, 0L,
0L, 1L, 0L, 1L)), class = "数据.frame", row.names = c(NA, -6L
))