Barplots с процентом различных переменных

Question

следущие Например:

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") 

Как я мог бы создать набор barplots, графический процент 1-values в каждой переменной, что дает хороший обзор эволюции процент 1-х.

До сих пор я пытался создать проценты (которые не удалось, поскольку nrow воспринимается как NULL):

pct_jdgcbrbR <- (sum(jdgcbrbR)/nrow(jdgcbrbR) * 100) 
pct_jdgcbrbR 

И я нашел функцию barplot, которая может быть полезна:

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

Результат должен посмотрите на этот пример, который я сделал в Excel:

Answer 1

следующие работы для меня, предполагая, что ваш data.frame называется "Темп":

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