多行R中使用rep

Question

我在CSV文件中有以下内容，我希望它们的格式与下面的R格式相同

01:00:00 02:00:00 03:00:00
15       80       67
30       44       2

我能把它们放在一个变量中

textus="01:00:00 02:00:00 03:00:00 

15 80 67 

30 44 2"

然后

data <- unname(as.matrix(read.table(text = textus)))

之后，我尝试将它们与以下命令行放在一起：

data1 <- rep(data[1,],data[2,],data[3,])

但它一直给我以下错误行：

Message d'avis :
In rep(dat[1, ], dat[2, ], dat[3, ]) :
seul le premier élément de l'argument 'length.out' est utilisé

更糟的是，这个错误是用法语写的。

我尝试了以下方法，即使它只完成了我希望R做的一半的工作：

data1<-rep(dat[1,],dat[2,]) 

# results
01:00:00 02:00:00 03:00:00
15       80       67

data2<-rep(dat[1,],dat[3,])

# results
01:00:00 02:00:00 03:00:00
30       44       2

如果你对我缺少的东西有任何意见，我很乐意听。

最好的。

Answer 1

如果您不介意在中间写入文件，这将是最简单的方法：

tmp <- read.table(text=textus)

write.table(t(tmp), "tmp.csv", row.names = FALSE, col.names = FALSE, sep = ",")

read.table("tmp.csv", sep = ",")
#         V1 V2 V3
# 1 01:00:00 15 30
# 2 02:00:00 80 44
# 3 03:00:00 67  2

没有理由在R.R.的data.frame结构中进行这个转换(如在输入文件中)，因为它设计为在列中有变量和行中的观察，并且大多数函数都为此进行了优化。如果您只想以转置形式打印它，您应该修改print.data.frame。