r - 分类/二进制数据总和的直方图

Question

我想要一种图形化且有吸引力的方式来表示二进制数据的列总和，而不是表格格式。我似乎无法让它发挥作用，尽管有人会认为这将是一次上篮。

数据看起来像这样(我尝试创建一个可重现的示例，但无法让代码填充 0 和 1)。

G1 G2 G3 G4
1  0  0  1
0  1  1  1
1  1  0  0
0  1  0  1

我只想对每列中的 1 进行计数(求和)，沿 x 轴显示组名称，沿 y 轴显示计数(总和)，并使条形颜色漂亮。我已经尝试了这里的所有解决方案，但很多都没有。

Answer 1

由于值是二进制的，只需执行 colSums在 base R然后使用 barplot

barplot(colSums(df1), col = c("red", "blue", "green", "yellow"))

数据

df1 <- structure(list(G1 = c(1L, 0L, 1L, 0L), G2 = c(0L, 1L, 1L, 1L), 
    G3 = c(0L, 1L, 0L, 0L), G4 = c(1L, 1L, 0L, 1L)), class = "data.frame", row.names = c(NA, 
-4L))