linux中将矩阵数据转换为一行数据

1、测试数据

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt  ## 测试数据
i u k f
2 3 8 7
s j 9 4

 

 

形式一、按行排列

2、xargs实现

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | xargs
i u k f 2 3 8 7 s j 9 4

 

3、awk实现

（1）、

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | awk '{printf("%s ", $0)} END {printf("\n")}'
i u k f 2 3 8 7 s j 9 4

 

（2）、

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | awk '{ORS = " "} {print $0} END {printf("\n")}'
i u k f 2 3 8 7 s j 9 4

 

（3）、

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | awk 'BEGIN{RS = EOF} {gsub("\n", " "); print}'
i u k f 2 3 8 7 s j 9 4

 

4、paste实现

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | paste -s
i u k f 2 3 8 7 s j 9 4

 

5、sed实现

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | sed ':a; N; s/\n/ /; ta'
i u k f 2 3 8 7 s j 9 4

 

6、tr实现

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# cat a.txt | tr "\n" " " | sed 's/$/\n/'
i u k f 2 3 8 7 s j 9 4

 

R实现：

（1）、

> dir()
[1] "a.txt"
> dat <- read.table("a.txt", header = F)
> dat
  V1 V2 V3 V4
1  i  u  k  f
2  2  3  8  7
3  s  j  9  4
> res <- data.frame("x")
> dim(res)
[1] 1 1
> for (i in 1:nrow(dat)) {
+   res <- cbind(res, dat[i,])
+ }
> res <- res[,-1]
> res
  V1 V2 V3 V4 V1.1 V2.1 V3.1 V4.1 V1.2 V2.2 V3.2 V4.2
1  i  u  k  f    2    3    8    7    s    j    9    4

 

(2)、

> dir()
[1] "a.txt"
> dat <- read.table("a.txt", header = F)
> dat
  V1 V2 V3 V4
1  i  u  k  f
2  2  3  8  7
3  s  j  9  4
> res <- as.matrix(dat)[1:(nrow(dat) * ncol(dat))]
> res
 [1] "i" "2" "s" "u" "3" "j" "k" "8" "9" "f" "7" "4"
> res <- t(as.data.frame(res))
> res
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
res "i"  "2"  "s"  "u"  "3"  "j"  "k"  "8"  "9"  "f"   "7"   "4"  

 

形式二、按列排列

shell实现

root@PC1:/home/test# ls
a.txt
root@PC1:/home/test# cat a.txt
i u k f
2 3 8 7
s j 9 4
root@PC1:/home/test# for i in `seq $(head -n 1 a.txt | awk '{print NF}')`; do cut -d " " -f $i a.txt >> b.txt; done
root@PC1:/home/test# cat b.txt
i
2
s
u
3
j
k
8
9
f
7
4
root@PC1:/home/test# cat b.txt | paste -s -d " "
i 2 s u 3 j k 8 9 f 7 4

 

R实现：

> dir()
[1] "a.txt"
> dat <- read.table("a.txt", header = F)
> dat
  V1 V2 V3 V4
1  i  u  k  f
2  2  3  8  7
3  s  j  9  4
> res <- vector()
> for (i in 1:ncol(dat)) {
+   res <- c(res, dat[,i])
+ }
> res
 [1] "i" "2" "s" "u" "3" "j" "k" "8" "9" "f" "7" "4"
> res <- t(as.data.frame(res))
> res
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
res "i"  "2"  "s"  "u"  "3"  "j"  "k"  "8"  "9"  "f"   "7"   "4"