横向き積み上げ棒グラフ

横向きで積み上げ棒グラフをつくってみた。

今度は凡例の位置も割と良いかと。

 

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

)

 

 

barplotっていろんなやり方あるよね。

思うように作図するのはできないなー

習うより慣れろで、倣いながら、徐々に身についていけばと思います。