sar コマンドの出力結果

# sar
Linux 3.10.0-957.1.3.el7.x86_64 (my.web.server) 	2018年12月24日 	_x86_64_	(3 CPU)

00時00分01秒     CPU     %user     %nice   %system   %iowait    %steal     %idle
00時10分01秒     all      0.01      0.00      0.01      0.00      0.00     99.97
00時20分01秒     all      2.03      0.00      0.36      0.09      0.00     97.51
00時30分01秒     all      1.09      0.00      0.23      0.05      0.00     98.63
00時40分01秒     all      0.55      0.00      0.13      0.03      0.00     99.29
00時50分01秒     all      0.34      0.00      0.10      0.02      0.00     99.55
(以下略)

から、時間と %iowait の値を抽出して、R へ渡す。
「0時00分01秒」と、漢字が邪魔なので、
LANG を変更する。

# LANG=C; sar
Linux 3.10.0-957.1.3.el7.x86_64 (my.web.server) 	12/24/18 	_x86_64_	(3 CPU)

00:00:01        CPU     %user     %nice   %system   %iowait    %steal     %idle
00:10:01        all      0.01      0.00      0.01      0.00      0.00     99.97
00:20:01        all      2.03      0.00      0.36      0.09      0.00     97.51
00:30:01        all      1.09      0.00      0.23      0.05      0.00     98.63
00:40:01        all      0.55      0.00      0.13      0.03      0.00     99.29
00:50:01        all      0.34      0.00      0.10      0.02      0.00     99.55

1行目から年月日情報を取得し、1列目に加える。
時分秒列(1列目)と%iowait列(6列目)が、数値から始まる行から、時分秒列と%iowait列を、2列目・3列目として抽出する。
csvとしてファイルへ記入する。

# LANG=C;sar | awk 'BEGIN{OFS=","}NR==1{DAY=$4}$1~/^[0-2]/&&$6~/^[0-9]/{print DAY,$1,$6}' > sar_iowait
# head sar_iowait
12/24/18,00:10:01,0.00
12/24/18,00:20:01,0.09
12/24/18,00:30:01,0.05
12/24/18,00:40:01,0.03
12/24/18,00:50:01,0.02
12/24/18,01:00:01,0.02
12/24/18,01:10:01,0.02
12/24/18,01:20:01,0.02
12/24/18,01:30:01,0.01
12/24/18,01:40:01,0.02

今日のデータだと24時間分ないので、前日のデータを取得することにする。

# LANG=C;sar -f /var/log/sa/sa$(date +"%d" --date "1 day ago")| awk 'BEGIN{OFS=","}NR==1{DAY=$4}$1~/^[0-2]/&&$6~/^[0-9]/{print DAY,$1,$6}'  > sar_iowait
# head sar_iowait 
12/23/18,00:10:01,0.00
12/23/18,00:20:01,0.00
12/23/18,00:30:01,0.02
12/23/18,00:40:01,0.01
12/23/18,00:50:01,0.00
12/23/18,01:00:01,0.00
12/23/18,01:10:01,0.00
12/23/18,01:20:01,0.09
12/23/18,01:30:01,0.02
12/23/18,01:40:01,0.01

R でデータファイルを読み込む。

> library(readr)
> sar_iowait <- read_csv("~/ssh/sar_iowait", 
+                        col_names = c("年月日", "時分秒", "%iowait"),
+                        col_types = cols(年月日 = col_date(format = "%m/%d/%y"), 
+                                         時分秒 = col_time(format = "%H:%M:%S")))
> sar_iowait
# A tibble: 143 x 3
   年月日     時分秒 `%iowait`
   <date>     <time>     <dbl>
 1 2018-12-23 00:10       0   
 2 2018-12-23 00:20       0   
 3 2018-12-23 00:30       0.02
 4 2018-12-23 00:40       0.01
 5 2018-12-23 00:50       0   
 6 2018-12-23 01:00       0   
 7 2018-12-23 01:10       0   
 8 2018-12-23 01:20       0.09
 9 2018-12-23 01:30       0.02
10 2018-12-23 01:40       0.01
# ... with 133 more rows

グラフを描く。
そのままだとX軸目盛りが時分秒にならないので、axis() で追加している。

> plot(sar_iowait[,2:3], type="o", pch =19, xaxt = "n", ylab = "%iowait", main = sar_iowait$年月日[1])
> axis(1, at = sar_iowait$時分秒, labels = sar_iowait$時分秒)

基本統計量

> summary(sar_iowait$`%iowait`)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
0.00000 0.00000 0.01000 0.02028 0.03000 0.09000