[R/SAS/Python]横棒グラフ

2021年11月21日 2021年11月25日

ada

目的
以下のデータを用いて横棒グラフを作成する。

データ

CATE	VAR
A	5
B	7
C	10
D	15

プログラム

RSASPythom

#ライブラリ呼び出し
library(ggplot2)

#データ作成
DATA <- data.frame(CATE = c("A","B","C","D"),
                   VAR = c(5,7,10,15))

#横棒グラフ作成
g <- ggplot(DATA, aes(x = CATE, y = VAR))
g <- g + geom_bar(stat = "identity")
g <- g + coord_flip()
plot(g)

/* データセットの作成 */
data DATA;
  input CATE $ VAR;
  cards;
  A 5
  B 7
  C 10
  D 15
  ;
run;

/* 横棒グラフ作成 */
proc sgplot data = DATA;
  hbar CATE / response = VAR;
run;

#ライブラリ呼び出し
import pandas as pd

#データフレームの作成
DATA = pd.DataFrame({ 'CATE' : (["A","B","C","D"]),
                      'VAR' : ([5,7,10,15])
                           })

#横棒グラフ作成
DATA.plot(kind = "barh", x = "CATE", y = "VAR")