[R/SAS/Python]折れ線グラフ（複数）

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

ada

目的
以下のデータを用いて複数の折れ線グラフを作成する。

データ

CATE	VAR1	VAR2
A	1	10
A	2	13
A	3	13
A	4	14
B	1	11
B	2	12
B	3	9
B	4	8
C	1	8
C	2	12
C	3	15
C	4	16

プログラム

RSASPythom

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

#データ作成
DATA <- data.frame(CATE = c("A","A","A","A","B","B","B","B","C","C","C","C"),
                   VAR1 = c(1,2,3,4,1,2,3,4,1,2,3,4),
                   VAR2 = c(10,13,14,14,11,12,9,8,8,12,15,16))

#折れ線グラフ作成
g <- ggplot(DATA, aes(x = VAR1, y = VAR2, group = CATE, color = CATE))
g <- g + geom_line()
plot(g)

/* データセットの作成 */
data DATA;
  input CATE $ VAR1 VAR2;
  cards;
  A 1 10
  A 2 13
  A 3 13
  A 4 14
  B 1 11
  B 2 12
  B 3 9
  B 4 8
  C 1 8
  C 2 12
  C 3 15
  C 4 16  
  ;
run;

/* 折れ線グラフ作成 */
proc sgplot data = DATA;
  vline VAR1 / response = VAR2
               group = CATE;
run;

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

#データフレームの作成
DATA = pd.DataFrame({ 'VAR' : ([1,2,3,4]),
                      'A' : ([10,13,14,14]),
                      'B' : ([11,12,9,8]),
                      'C' : ([8,12,15,16])
                      })

#折れ線グラフ作成
DATA.plot(kind = "line",x = "VAR", y = ["A","B","C"])