扩大可变数量的列在一个数据帧

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)]