R中两个或多个文件的条形图平均值

Question

我有两个文本文件，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))

这将绘制一个文本文件。但不确定如何获取两个文本文件，将它们组合起来，绘制平均值并生成误差线。有任何建议或资源链接吗？

Answer 1

可能是这样的：

my.data <- do.call("cbind", lapply(list.files(pattern="*.txt"), read.table))
my.data <- rowMeans(my.data)
barplot(t(my.data))

注意，这未经测试。