我在一个数据帧中有几个名称相似的列,它们之间有一个数字区别。我正试图把数据分成更小的块。我的代码看起来像这样:
num <- c(5,10,15,20,30,40,50,60, 100)
a <- data.frame(df$T5, df$Vf5, df$Im5)
b <- data.frame(df$T10, df$Vf10, df$Im10)
c <- data.frame(df$T15, df$Vf15, df$Im15)
我不想手动写出数字。我尝试将paste0("out$T",5)
和as.name()
与它一起使用,但似乎不起作用。
我试过这里的解决方案,但没有成功。
尝试lapply(letters, function(.x) df[as.vector(outer(.x, num, FUN = paste0))])
其中letters = c('T', 'Vf', 'Im')
请参见如何交叉粘贴两个矢量的所有组合(每个矢量对应一个矢量(?