R 不同变量百分比的条形图

举以下例子：

structure(list(jdgcbrbR = c(0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L), 
    ctprpwrR = c(0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L), hrshsntaR = c(0L, 
    0L, 1L, 0L, 0L, 0L, 0L, 0L), dbctvrdR = c(0L, 0L, 1L, 1L, 
    0L, 0L, 0L, 0L), lwstrobR = c(0L, 0L, 1L, 0L, 0L, 0L, 0L, 
    0L), rgbrklwR = c(0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L), ctinpltR = c(0L, 
    0L, 1L, 1L, 0L, 0L, 0L, 0L), stcbg2tR = c(0L, 0L, 0L, 0L, 
    0L, 0L, 0L, 0L), tmprsR = c(NA, NA, NA, 0L, 0L, NA, NA, NA
    ), caplcstR = c(0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L), widprsnR = c(0L, 
    0L, 1L, 0L, 0L, 0L, 0L, 0L), wevdctR = c(0L, 0L, 1L, 0L, 
    0L, 0L, 0L, 0L)), .Names = c("jdgcbrbR", "ctprpwrR", "hrshsntaR", 
"dbctvrdR", "lwstrobR", "rgbrklwR", "ctinpltR", "stcbg2tR", "tmprsR", 
"caplcstR", "widprsnR", "wevdctR"), row.names = 747:754, class = "data.frame")

如何创建一组

条形图

，将每个变量中

1-值的百分比绘制成图形，从而对1-值百分比的演变给出一个很好的概述

到目前为止，我尝试创建百分比（失败的原因是
nrow
被视为
NULL
）：

结果应该类似于我在Excel中创建的示例：

假设您的data.frame名为“temp”，以下内容对我来说很有用：

假设您的data.frame名为“temp”，以下内容对我来说很有用：

谢谢，它很管用。如果我只想要，比如说，图表中的最后5个变量，我可以添加一个参数吗？@kwanti，当然可以。您可以只使用基本子集。例如，要仅绘制第一个、第三个和第七个变量，可以使用类似于
temp[c（1，3，7）]
的方法，而不仅仅是
temp
。谢谢，它可以工作。如果我只想要，比如说，图表中的最后5个变量，我可以添加一个参数吗？@kwanti，当然可以。您可以只使用基本子集。例如，要仅绘制第一个、第三个和第七个变量，您可以使用类似于
temp[c（1，3，7）]
的内容，而不仅仅是
temp
。
pct_jdgcbrbR <- (sum(jdgcbrbR) / nrow(jdgcbrbR) * 100)
pct_jdgcbrbR

barplot(percentages, main="INR", 
        xlab="varnames")

barplot((colSums(temp, na.rm=TRUE)/nrow(temp))*100)