连接R中的字符串以获得多个值

Question

从我的数据集中，有3个部门，每个部门有4个不同的组，每个组有3个员工

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

输出: Marketing11 Marketing12 Marketing13 Business Analtics11....

Answer 1

base R

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

data.table

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"     

Answer 2

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

sort(as.vector(outer(Division, outer(Group, ID, FUN = "paste0"), FUN = "paste0")))

 [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"