[R/SAS/Python]エリアグラフ

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

ada

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

データ

VAR1	VAR2
1	10
2	13
3	14
4	11
5	12
6	9
7	8
8	12
9	15

プログラム

RSASPythom

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

#################################
#データ作成
DATA <- data.frame(VAR1 = c(1,2,3,4,5,6,7,8,9),
                   VAR2 = c(10,13,14,11,12,9,8,12,15))

#折れ線グラフ(エリア)作成
g <- ggplot(DATA, aes(x = VAR1, y = VAR2))
g <- g + geom_area()
plot(g)

/* データセットの作成 */
data DATA;
  input VAR1 VAR2;
  cards;
  1 10
  2 13
  3 14
  4 11
  5 12
  6 9
  7 8
  8 12
  9 15
  ;
run;

/* エリアグラフ作成 */
proc sgplot data = DATA;
  band x = VAR1 lower = 0 upper = VAR2;
run;

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

#データフレームの作成
DATA = pd.DataFrame({ 'VAR1' : ([1,2,3,4,5,6,7,8,9]),
                      'VAR2' : ([10,13,14,11,12,9,8,12,15])
                      })

#折れ線グラフ作成
DATA.plot(kind = "area",x = "VAR1", y = "VAR2")