web-dev-qa-db-ja.com

ggplot2を使用してスタックエリアプロットを作成する

次のデータ構造を使用して、積み上げ面グラフを作成しています。

df <- data.frame(PopDen = c( 0.002279892, 0.002885407, 0.004291351, 0.002457731, 0.006631572, 0.007578882, 0.004465446, 0.007436628, 0.009001456, 0.006951703, 0.003602076, 0.005695585, 0.005819783, 0.007412274, 0.004931548, 0.006257411, 0.008635908, 0.005438558, 0.002251421,0.006438558), DomArea = c( 253500, 135270, 197180, 131590, 142210, 166920, 125640, 184600, 139940, 126280, 127760, 190940, 133440, 143510, 117260, 69340, 143620, 127480, 181970,164180), PR_Cat = c( "High", "High", "Low", "Low", "Low", "Low", "Low", "Low", "High", "High", "Medium", "Medium", "Medium", "Low", "Low", "Medium", "Medium", "Low", "Low","Low") )

p <- ggplot(df, aes(PopDen, order(DomArea), colour = PR_Cat))  
p + geom_area(aes(colour = PR_Cat, fill= PR_Cat), position = 'stack')

ただし、領域を積み重ねる方法がわかりません。現時点では、それらは重複しています。ここではposition = 'stack'引数が必要だと思いますが、プロットは含まれているかどうかに関係なく同じように見えます。

また、PR_Catのカテゴリの1つでDomAreaを注文することは可能ですか、それともデータを再編成する必要がありますか？

rggplot2
12
djq

ここで何をプロットしているのかわかりませんが、y軸に沿ってPopDenをプロットしたくありません。 x軸？ DomAreaパッケージのddplyを使用して、各PR_Catカテゴリごとにplyrを注文できます。その後、スタッキングは次のように機能します。[〜＃〜] edit [〜＃〜]プロットをLow, Medium Highの順序で積み重ねたいと思ったので、最初に、次のようにしてPR_Catファクターにこの順序を強制する必要があります。

df$PR_Cat <- ordered( df$PR_Cat, levels = c('Low', 'Medium', 'High'))

そして、DomAreaByCatを使用してddply列を作成します。

df <- ddply(df, .(PR_Cat), transform, DomAreaByCat = order(DomArea))

dfは次のようになります。

> df
        PopDen DomArea PR_Cat DomAreaByCat
1  0.004291351  197180    Low            8
2  0.002457731  131590    Low            5
3  0.006631572  142210    Low            9
4  0.007578882  166920    Low            2
5  0.004465446  125640    Low            3
6  0.007436628  184600    Low            7
7  0.007412274  143510    Low           11
8  0.004931548  117260    Low            4
9  0.005438558  127480    Low           10
10 0.002251421  181970    Low            6
11 0.006438558  164180    Low            1
12 0.003602076  127760 Medium            4
13 0.005695585  190940 Medium            1
14 0.005819783  133440 Medium            3
15 0.006257411   69340 Medium            5
16 0.008635908  143620 Medium            2
17 0.002279892  253500   High            4
18 0.002885407  135270   High            2
19 0.009001456  139940   High            3
20 0.006951703  126280   High            1

そして、次のようにスタック領域プロットを実行できます。

p <- ggplot(df, aes( DomAreaByCat, PopDen))

p + geom_area(aes(colour = PR_Cat, fill= PR_Cat), position = 'stack')

alt text

23
Prasad Chalasani