R语言与数据模型(2)-读写数据文件

> cat("my data", "20180101-20180331","2 3 5 7", "11 13 17", file = "my1.data", sep = "\n")
> x<-scan("my1.data",skip=2)
Read 7 items
> x
[1]  2  3  5  7 11 13 17
>  x <- matrix(1:10, ncol = 5)
> x
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    3    5    7    9
[2,]    2    4    6    8   10
> t(x)
     [,1] [,2]
[1,]    1    2
[2,]    3    4
[3,]    5    6
[4,]    7    8
[5,]    9   10
> write(x, "my2.data", sep = "\t")
> x1<-read.table("my2.data")
> x1
  V1 V2 V3 V4 V5
1  1  2  3  4  5
2  6  7  8  9 10
> x2<-scan("my2.data")
Read 10 items
> x2
 [1]  1  2  3  4  5  6  7  8  9 10
> write.table(x,file="my3.data")
> x3<-read.table("my3.data")
> x3
  V1 V2 V3 V4 V5
1  1  3  5  7  9
2  2  4  6  8 10
> write.csv(x, file = "my4.csv")
> x4<-read.csv("my4.csv",row.names=1)
> x4
  V1 V2 V3 V4 V5
1  1  3  5  7  9
2  2  4  6  8 10

> write.csv(x, file = "my4.csv",row.names = FALSE)
> x4<-read.csv("my4.csv")
> x4
  V1 V2 V3 V4 V5
1  1  3  5  7  9
2  2  4  6  8 10

> x
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    3    5    7    9
[2,]    2    4    6    8   10
> t(x)
     [,1] [,2]
[1,]    1    2
[2,]    3    4
[3,]    5    6
[4,]    7    8
[5,]    9   10
> write.csv(t(x), file = "my4.csv",row.names = FALSE)
> x4<-read.csv("my4.csv")
> x4
  V1 V2
1  1  2
2  3  4
3  5  6
4  7  8
5  9 10
> write.table(t(x),file="my5.data")
> x5<-read.table("my5.data")
> x5
  V1 V2
1  1  2
2  3  4
3  5  6
4  7  8
5  9 10
> write(x, "", sep = "\t")
1       3       5       7       9
2       4       6       8       10
> write(t(x), "", sep = "\t")
1       3       5       7       9
2       4       6       8       10