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

JIKOKENNJIYOKU-NIKKI【21st Century】

明日から本気出すわ。

横向き積み上げ棒グラフ

横向きで積み上げ棒グラフをつくってみた。
今度は凡例の位置も割と良いかと。
 

# dataにデータを読み込ませる。
 
data<- cbind(
   ア = c(699,375,667),
   イ = c(736,247,758),
   ウ = c(1229,179,333),
   エ = c(1093,214,434),
   オ = c(1276,80,384),
   カ = c(851,218,672),
   キ = c(979,246,516),
   ク = c(1085,118,538)
)
 
# 凡例を用意(データの順序に対応させる)
labels<- c("実施なし","年度内に実施予定","実施している")
 
 
# 事業ごとの積み上げ棒グラフの描写
barplot(
data, # 行列型データ
horiz=T, # 横向きにする  
col=heat.colors(nrow(data)), # 色の指定
legend.text = labels,
args.legend = list(x =595, y= 13.5) # 凡例の位置を調整
)
 
 
f:id:at251:20151023173548j:image

barplotっていろんなやり方あるよね。
思うように作図するのはできないなー
習うより慣れろで、倣いながら、徐々に身についていけばと思います。