2012-07-31 5 views
1

두 개의 텍스트 파일 인 A.txt와 B.txt (향후 더 많은 파일이 있음)가 있습니다. 각 텍스트 파일 (하지만 서로 다른 값)이 다음과 같습니다두 개 이상의 파일에서 막대 그래프 의미 R

1 
2 
5 
6 
7 

내가, 예를 들어, 텍스트 파일의 각 행의 평균을 플롯이 같은 형태의 매트릭스에 텍스트 파일을 결합하고 싶습니다 :

1 5 
2 7 
5 5 
6 9 
7 7 

그리고 5 개 바의 막대 그래프를 만들어, 각 행에 대한 평균을 나타내는 각 (+ 1/2 5 2 + 7/2 등). 나는 또한 각 막대 그래프에 대한 표준 오류를 나타내는 오류 막대를 그려보고 싶습니다 (하나 이상의 텍스트 파일이 있다고 가정).

는 나는 하나의 텍스트 파일에 대해 다음을 수행 할 수있어 :

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

하나 개의 텍스트 파일을 그래프는 어느 것 일 것. 그러나 두 텍스트 파일을 가져 와서 결합하고 평균을 그래프로 표시하고 오류 막대를 생성하는 방법을 모릅니다. 자원에 대한 제안이나 링크? 이 같은

답변

1

아마 뭔가 :

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

참고이 검증되지 않은.

+0

테스트되지 않았지만 작동합니다 ... (+1). 오류 막대를 추가하려면 OP가 두 번째 줄의 원래 데이터를 덮어 쓰지 않아야하므로 막대를 만드는 데 필요한 계산을 수행 할 수 있습니다. – A5C1D2H2I1M1N2O1R2T1

+0

그게 효과가! 정말 고맙습니다. – user1566200

+0

추가 의견을 보지 못했습니다. 그래서 rowMeans를 수행하고 다른 변수에 저장할 수 있습니다. 그런 다음 R (R)에서 일종의 rowStd (my.data)/sqrt (길이 (데이터))를 말할 수 있습니까? – user1566200

관련 문제