动态连接R中的列

Posted 2021-05-06

我在动态连接列时遇到问题。我正在构建一个区域计算器，它总结了一些措施，但希望它足够灵活，以适应各种输入。

使用mtcars和一个例子：

                ColA <- "mpg"
                ColB <- "cyl"
                ColC <- "disp"

mtcars$lookup <-paste0(mtcars[[ColA]],mtcars[[ColB]],mtcars[[ColC]])

（我知道上面的例子连接了没有意义的数字！ - 在我的版本中使用了包含字符串的列）

这会给我一个我需要的查阅列。但是，我想要做的是动态填充我的查阅列。有时会有2列，有时它们可​​能是5列，列名称将从一个项目更改为下一个项目。

我想我可以使用List和For循环填充ColA> ColX中的字符串。但我不确定如何使用paste0动态解决查找创建....

mtcars$lookup <-paste0(mtcars[[ColA]],......mtcars[[ColX]])

任何想法如何解决这个问题？谢谢！

答案

你可以使用do.call(paste0, ...)成语：

mtcars$lookup <- do.call(paste0, mtcars[c(ColA, ColB, ColC)])
mtcars$lookup
##  [1] "216160"     "216160"     "22.84108"   "21.46258"   "18.78360"   "18.16225"   "14.38360"  
##  [8] "24.44146.7" "22.84140.8" "19.26167.6" "17.86167.6" "16.48275.8" "17.38275.8" "15.28275.8"
## [15] "10.48472"   "10.48460"   "14.78440"   "32.4478.7"  "30.4475.7"  "33.9471.1"  "21.54120.1"
## [22] "15.58318"   "15.28304"   "13.38350"   "19.28400"   "27.3479"    "264120.3"   "30.4495.1" 
## [29] "15.88351"   "19.76145"   "158301"     "21.44121"  

将c(ColA, ColB, ColC)替换为列名称的向量甚至列位置。

---

在“tidyverse”中，您也可以使用unite。请尝试以下操作以查看其功能：

library(tidyverse) ## `unite` comes from the tidyr package, FYI
mtcars %>% unite(output, mpg, cyl, disp, sep = "")