[R/SAS/Python]エラーバー付き折れ線グラフ

2021年11月23日 2021年11月25日

ada

目的
以下のデータを用いて平均値±標準偏差のエラーバー付き折れ線グラフを作成する

データ

TIME	MEAN	SD
1	10	1.0
2	13	1.3
3	14	1.4
4	11	1.1
5	12	1.2
6	9	0.9
7	8	0.8
8	12	1.2
9	15	1.5

プログラム

RSASPythom

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

#データ作成
DATA <- data.frame(TIME = c(1,2,3,4,5,6,7,8,9),
                   MEAN = c(10,13,14,11,12,9,8,12,15),
                   SD = c(1.0,1.3,1.4,1.1,1.2,0.9,0.8,1.2,1.5))

#エラーバー付き折れ線グラフの作成
g <- ggplot(DATA, aes(x = TIME, y = MEAN))
g <- g + geom_line()
g <- g + geom_errorbar(aes(ymin = MEAN - SD, ymax = MEAN + SD), width = 0.1)
plot(g)

/* データセットの作成 */
data DATA;
  input TIME MEAN SD;
  cards;
  1 10 1.0
  2 13 1.3
  3 14 1.4
  4 11 1.1
  5 12 1.2
  6 9 0.9
  7 8 0.8
  8 12 1.2
  9 15 1.5
  ;
run;
data DATA;
  set DATA;
  LOWER = MEAN - SD;
  UPPER = MEAN + SD;
run;

/* エラーバー付き折れ線グラフの作成 */
proc sgplot data = DATA;
  series x = TIME y = MEAN;
  scatter x = TIME y = MEAN /yerrorlower = LOWER
                             yerrorupper = UPPER;
run;