> 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
R语言与数据模型(2)-读写数据文件
最新推荐文章于 2021-09-08 15:37:47 发布