扩展数据框中的可变列数

Question

我有一个数据框可以有不同数量的列，我需要在下一个列之前自动扩展每列两次：

示例：

df <- data.frame(a=1:10,b=2:11,c=3:12)
df

我试过

dfexpand <- df[,rep(colnames(df),3)]
dfexpand

但是在这种情况下，这会按顺序给出列：

a  b  c a.1 b.1 c.1 a.2 b.2 c.2

但我需要在这种情况下的顺序为：

a a.1 a.2 b b.1 b.2 c c.1 c.2

Answer 1

将each参数用于rep()：

dfexpand <- df[,rep(colnames(df),each=3)]