1

A.txtとB.txtの2つのテキストファイルがあります(おそらく将来的にはもっと多くなります)。各テキストファイルは次のようになります(ただし、値は異なります)。

1
2
5
6
7

テキストファイルの各行の平均をプロットしたいと思います。たとえば、テキストファイルを次のようなマトリックスに結合します。

1 5
2 7
5 5
6 9
7 7

次に、各行の平均(1 + 5 / 2、2 + 7/2など)を表す5本の棒の棒グラフを作成します。また、各棒グラフの標準誤差を表すエラーバーをプロットしたいと思います(複数のテキストファイルがあると仮定します)。

1つのテキストファイルに対して次のことができます。

my.data <- read.table('A.txt')
barplot(t(my.data))

これにより、1つのテキストファイルがグラフ化されます。しかし、2つのテキストファイルを取得し、それらを組み合わせ、平均をグラフ化し、エラーバーを生成する方法がわかりません。リソースへの提案やリンクはありますか?

4

1 に答える 1

1

多分このようなもの:

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

これはテストされていないことに注意してください。

于 2012-07-31T15:44:26.740 に答える