棒グラフと積み上げ棒グラフ

棒グラフはつくれたけど、積み上げ棒グラフの凡例表示がうまくできない。

グラフの幅をうまく調整できないのもあり、グラフに凡例が重なってしまう。

 

以下、工程のログです。

# dataにデータを読み込ませる。

 

data<- cbind(

自治体数 = c(45,73,122,129,188,202,215,266,501)

)

# 凡例を用意（データの順序に対応させる）

labels<- c("全て実施","7つ実施","6つ実施","5つ実施","4つ実施","3つ実施","2つ実施","1つ実施","実施なし")

 

 

# 棒グラフの描写

barplot(

data, # 行列型データ

beside=T, # これを入れなければ、もしくは"=F"で積み上げ棒グラフに。  

col=heat.colors(nrow(data)), # 色の指定

legend.text = labels,

args.legend = list(x =4, y= 550) # 凡例の位置を調整

)

 

 

# 今度は積み上げ棒グラフ。

 

# 不要な工程と思うけど、もう一度dataにデータを読み込ませる。

 

data<- cbind(

自治体数 = c(45,73,122,129,188,202,215,266,501)

)

# 凡例を用意（データの順序に対応させる）

labels<- c("全て実施","7つ実施","6つ実施","5つ実施","4つ実施","3つ実施","2つ実施","1つ実施","実施なし")

 

 

# 積み上げ棒グラフの描写

barplot(

data, # 行列型データ

width=0.3, 

col=heat.colors(nrow(data)), # 色の指定

legend.text = labels,

args.legend = list(x =0.42, y= 2000)　# 凡例の位置を調整

)

 

 

# 凡例の表示場所は（http://symfoware.blog68.fc2.com/blog-entry-1503.html）が参考になる。

# こちらも参考に。（http://stat.biopapyrus.net/graph/legend.html）