0

次の例を考えます。

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(percentages, main="INR", 
        xlab="varnames")

結果は、Excelで作成した次の例のようになります。

グラフ

4

1 に答える 1

4

data.frameの名前が「temp」であると仮定すると、次のように機能します。

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

ここに画像の説明を入力してください

于 2013-02-26T16:29:54.420 に答える