1、測試資料

root@PC1:/home/test# ls
test.txt
root@PC1:/home/test# cat test.txt
3 4 2 2
1 9 5 7
5 7 8 4
2 3 4 6

2、實現計算每行的和

root@PC1:/home/test# ls
test.txt
root@PC1:/home/test# cat test.txt
3 4 2 2
1 9 5 7
5 7 8 4
2 3 4 6
root@PC1:/home/test# awk 'BEGIN{sum = 0}{for(i = 1; i <= NF; i++) {sum += $i} {print sum; sum = 0}}
 
' test.txt > sum.txt
root@PC1:/home/test# ls
sum.txt  test.txt
root@PC1:/home/test# cat sum.txt  ## 每行資料的和
11
22
24
15

3、實現計算每行資料的平均數

root@PC1:/home/test# ls
test.txt
root@PC1:/home/test# cat test.txt
3 4 2 2
1 9 5 7
5 7 8 4
2 3 4 6
root@PC1:/home/test# awk 'BEGIN{sum = 0} {for(i = 1; i <= NF; i++) {sum += $i} {print sum/NF; sum = 0}}
 
' test.txt > mean.txt
root@PC1:/home/test# ls
mean.txt  test.txt
root@PC1:/home/test# cat mean.txt  每行資料的平均數
2.75
5.5
6
3.75

4、R實現

dir()
dat <- read.table("test.txt", header = F)
dat
apply(dat, 1, sum)
apply(dat, 1, mean)

> dir()
[1] "test.txt"
> dat <- read.table("test.txt", header = F)  ## 讀取測試資料
 
> dat
  V1 V2 V3 V4
1  3  4  2  2
2  1  9  5  7
3  5  7  8  4
4  2  3  4  6
> apply(dat, 1, sum)   ## 每行的和
[1] 11 22 24 15
> apply(dat, 1, mean)  ## 每行的平均數
[1] 2.75 5.50 6.00 3.75