読者です 読者をやめる 読者になる 読者になる

JIKOKENNJIYOKU-NIKKI【21st Century】

明日から本気出すわ。

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

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

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

# 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) # 凡例の位置を調整
)
 

f:id:at251:20151022205050j:image
 
# 今度は積み上げ棒グラフ。
 
# 不要な工程と思うけど、もう一度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) # 凡例の位置を調整
)
 
f:id:at251:20151022205101j:image
 
# 凡例の表示場所は(http://symfoware.blog68.fc2.com/blog-entry-1503.html)が参考になる。
# こちらも参考に。(http://stat.biopapyrus.net/graph/legend.html