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