0

1 つの変数 (DX_2_CD) のみを使用して、データフレーム (no.out) からテーブルを作成しました。

> counts <- table(no.out$DX_2_CD)
> counts

             Blood CirculatorySystems         Congenital          Digestive      Genitourinary 
                 7                133                  0                  7                 35 
        Illdefined           Immunity         Infectious             Injury             Mental 
               126                 98                  0                 84                  7 
          Muscular          Neoplasms            Nervous          Perinatal          Pregnancy 
               119                  7                  0                  0                  7 
       Respiratory              Sense               Skin 
                63                 35                 63

ここで、最小値が最初で最大値が最後になるように、カウントを昇順に並べ替えたいと思います。同じ値が 2 つある場合は、どちらが先でも構いません。

4

2 に答える 2

3

最も簡単な解決策は order() を使用することだと思います:

ordered_counts <- counts[order(counts)]

または、さらに良いのは、sort():

ordered_counts <- sort(counts)
于 2014-11-30T15:33:41.377 に答える
0

OK、次を使用して、さまざまな色のバーを取得できました。

    x<-barplot(sort(counts),col=rainbow(length(sort(counts))))#, main="DX_2_CD Distribution", 
           lablist <- as.vector(names(sort(counts)))      
text(cex=1, x=x-.50, y=-1.25, lablist, xpd=TRUE, srt=45)

これにより、両方の問題が解決します。

ただし、45 度の傾斜ラベルに加えて、元の x 軸ラベルも残ります。どうすればそれらを取り除くことができますか?

十分な評判がないため、スクリーンショットを添付できません

于 2014-11-30T16:14:35.390 に答える