问题描述
我有一个包含几个二进制变量的数据框。我想计算每一列的百分比，然后绘制这些值。
我的数据框看起来像这样：
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)
这会导致一个非常丑陋的图形，而我通常不喜欢它的笨拙。
如果不清楚，请告知我。谢谢！
解决方法
由于您只有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))