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 '{for(i = 2; i <= NF; i++) {if($i < $(i - 1)) {$i = $(i - 1)}} {print $NF}}' test.txt ##输出每行数据的最大值 4 9 8 6
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 '{for(i = 2; i <= NF; i++) {if($i > $(i - 1)) {$i = $(i - 1)}} {print $NF}}' test.txt ## 输出每行数据中的最小值 2 1 4 2
4、R语言实现
list.files() dat <- read.table("test.txt", header = F) dat apply(dat, 1, max) apply(dat, 1, min)
> list.files() [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, max) ## 输出每行数据的最大值 [1] 4 9 8 6 > apply(dat, 1, min) ## 输出每行数据的最小值 [1] 2 1 4 2
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。