在R中串联多个值的字符串

根据我的数据集，有3个部门，每个部门有4个不同的小组，每个小组有3名员工

Division <- c("Marketing", "Business Analytics", "Accounting")
Group <- 1:4
ID <- 1:3

---

部门基本R

apply( expand.grid(Division, Group, ID), 1, paste0, collapse = "" )

数据表

library( data.table )
CJ( Division, Group, ID)[, do.call(paste0, c(.SD))]

输出

# [1] "Accounting11"         "Accounting12"         "Accounting13"         "Accounting21"         "Accounting22"        
# [6] "Accounting23"         "Accounting31"         "Accounting32"         "Accounting33"         "Accounting41"        
# [11] "Accounting42"         "Accounting43"         "Business Analytics11" "Business Analytics12" "Business Analytics13"
# [16] "Business Analytics21" "Business Analytics22" "Business Analytics23" "Business Analytics31" "Business Analytics32"
# [21] "Business Analytics33" "Business Analytics41" "Business Analytics42" "Business Analytics43" "Marketing11"         
# [26] "Marketing12"          "Marketing13"          "Marketing21"          "Marketing22"          "Marketing23"         
# [31] "Marketing31"          "Marketing32"          "Marketing33"          "Marketing41"          "Marketing42"         
# [36] "Marketing43"     

基本R

apply( expand.grid(Division, Group, ID), 1, paste0, collapse = "" )

数据表

library( data.table )
CJ( Division, Group, ID)[, do.call(paste0, c(.SD))]

输出

# [1] "Accounting11"         "Accounting12"         "Accounting13"         "Accounting21"         "Accounting22"        
# [6] "Accounting23"         "Accounting31"         "Accounting32"         "Accounting33"         "Accounting41"        
# [11] "Accounting42"         "Accounting43"         "Business Analytics11" "Business Analytics12" "Business Analytics13"
# [16] "Business Analytics21" "Business Analytics22" "Business Analytics23" "Business Analytics31" "Business Analytics32"
# [21] "Business Analytics33" "Business Analytics41" "Business Analytics42" "Business Analytics43" "Marketing11"         
# [26] "Marketing12"          "Marketing13"          "Marketing21"          "Marketing22"          "Marketing23"         
# [31] "Marketing31"          "Marketing32"          "Marketing33"          "Marketing41"          "Marketing42"         
# [36] "Marketing43"     

Division
Division另一个基本变量：
do.call（粘贴0，展开.grid（分区，组，ID））
do.call（粘贴0.SD）
。应该足够了。或者直接：
do.call（粘贴0，CJ（部门，组，ID））
。另一个基本变量：
do.call（粘贴0，展开.grid（部门，组，ID））
do.call（粘贴0，SD）
。应该足够了。或者直接：
do.call（粘贴0、CJ（部门、组、ID））
。