我有两个文本文件,A.txt和B.txt(将来可能更多)。每个文本文件都是这样的(但具有不同的值):
1
2
5
6
7
我想绘制文本文件中每行的平均值,例如,将文本文件合并为一个如下所示的矩阵:
1 5
2 7
5 5
6 9
7 7
然后制作5个条形图,每个条形图代表每行的平均值(1 + 5 / 2,2 + 7/2等)。我还想绘制表示每个条形图标准误差的误差条(假设我有多个文本文件)。
我可以为单个文本文件执行以下操作:
my.data <- read.table('A.txt')
barplot(t(my.data))
将绘制一个文本文件。但不确定如何获取两个文本文件,组合它们,绘制平均值,并生成错误栏。有关资源的任何建议或链接吗?
答案 0 :(得分:1)
也许是这样的:
my.data <- do.call("cbind", lapply(list.files(pattern="*.txt"), read.table))
my.data <- rowMeans(my.data)
barplot(t(my.data))
注意,这是未经测试的。