计算多列二进制变量的百分比并在r中绘制条形图

Question

我有一个包含多个二进制变量的数据框。我想计算每列的百分比，然后绘制这些值。

我的数据框看起来像这样：

name   bin1  bin2
a       1     0
b       0     1
c       0     1

我想计算 bin1、bin2 的百分比，然后只在条形图中绘制 bin1 和 bin2 的 1（或是）的百分比。

我有一个非常笨拙的代码，我想要一些可以迭代的东西来计算每个变量的百分比。我基本上是手动计算百分比并绘制出来的：

n <- length(df$bin1)
plot(c(sum(df$bin1)/n, sum(df$bin2)/n,main="My Title", ylab="Percentage",type = "h",width=5)

这导致了一个非常丑陋的图表，我通常不喜欢它的笨拙。

如果不清楚，请告诉我。谢谢！

Answer 1

由于您只有 1/0 值，我们可以对列取平均值以获得 1 的百分比。使用barplot绘制它。

barplot(colMeans(df[-1]) * 100, ylim = c(0, 100), ylab='Percentage',
         xlab = 'bins', main = 'Percentage of yes')

数据

df <- structure(list(name = c("a", "b", "c"), bin1 = c(1L, 0L, 0L), 
    bin2 = c(0L, 1L, 1L)), class = "data.frame", row.names = c(NA, -3L))

Calculating percentage of multiple columns of binary variables and plotting bar graph in r