编辑*
我需要创建一个循环或函数,以便在没有dobbelt工作的情况下使代码更快更容易。
d1<-cbind(c("Age","Height","Weight"), c("Age","Weight","Score"),
c("Height","Score","Income"))
d2<-cbind(c(24,187,75), c(46,172,10),c(177,7,50000))
c1d1<-t(d1[,1])
c1d2<-t(d2[,1])
colnames(c1d2)<-c1d1
c2d1<-t(d1[,2])
c2d2<-t(d2[,2])
colnames(c2d2)<-c2d1
c3d1<-t(d1[,3])
c3d2<-t(d2[,3])
colnames(c3d2)<-c3d1
dataset<-smartbind(data.frame(c1d2),data.frame(c2d2),data.frame(c3d2))
答案 0 :(得分:0)
我很难理解你正在寻求完成的事情;正如@MrFlick建议的那样,一些带代码的例子会有很大帮助。不过,我认为您可以从调查map_df
库中的purrr
函数中受益。