我刚开始使用R,所以请宽容...
目前我正在尝试可视化 SAR 在 Linux 服务器上收集的一些磁盘性能数据。CSV 数据的标题如下所示:
timestamp; DEV; tps; rd_sec/s; wr_sec/s; avgrq-sz; avgqu-sz; await, svctm; %util
DEV 代表我用来分组数据的设备名称:
disks <- split(x = dkstbl, f = dsktbl[, "DEV"])
使用带有操作库的 RStudio,我绘制了以下图:
manipulate(
plot(disks[disk][[1]]$tps[time],
disks[disk][[1]]$await[time],
xlim = c(0,max(disks[disk][[1]]['tps'])),
ylim = c(0,max(disks[disk][[1]]['await'])),
main = paste(disk,disks[disk][[1]]$X00.00.01[time]),
xlab = 'IOPS',
ylab = 'AWAIT'
),
time = slider(1, 1000),
disk = picker(as.list(names(disks)))
)
这几乎是我想要的,但仍然不完全是。我想要的应该包含一个图上所有磁盘的数据,并且可能看起来像这样:
manipulate(
plot(disks[*][[1]]$tps[time],
disks[*][[1]]$await[time],
xlim = c(0,max(disks[*][[1]]['tps'])),
ylim = c(0,max(disks[*][[1]]['await'])),
main = paste(disks[*][[1]]$X00.00.01[time]),
xlab = 'IOPS',
ylab = 'AWAIT'
),
time = slider(1, 1000)
)
...其中星号 (*) 需要替换为可以一次绘制所有磁盘的东西。我该如何做到这一点?
谢谢和干杯,丹尼尔