提问人：DSSS 提问时间：4/22/2013 最后编辑：JaapDSSS 更新时间：4/4/2023 访问量：55358
使用所有向量元素的组合粘贴两个向量
Pasting two vectors with combinations of all vectors' elements
问：
我有两个向量：
vars <- c("SR", "PL")
vis <- c(1,2,3)
基于这些向量，我想创建以下向量：
"SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
我有以下结果：paste
paste(vars, vis, sep=".")
[1] "SR.1" "PL.2" "SR.3"
如何创建我需要的载体？
答：
110赞
juba
4/22/2013
#1
您可以使用它，但可能有一个更简单的解决方案：
R> apply(expand.grid(vars, vis), 1, paste, collapse=".")
[1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
expand.grid当与 一起使用时，会将其转换为 .这是不必要的（而且在大数据上效率低下）。 给出一个 AND 也接受函数参数。在处理海量数据时，它也会非常有效。data.frameapplyapplymatrixoutermatrix
用：outer
as.vector(outer(vars, vis, paste, sep="."))
# [1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
评论
2赞
mindlessgreen
3/16/2019
expand.grid返回一个表，如果您希望顺序为 而不是 ，可以对该表进行排序。SR,SR,PL,PL...SR,PL,SR,PL
0赞
lotus
10/27/2023
考虑编辑为矢量化。do.call(paste, c(expand.grid(vars, vis), sep = "."))paste()
9赞
CCID
5/8/2014
#2
若要保持问题中请求字符串的顺序，可以使用这两种方法的以下两种修改：
更改向量的顺序并以相反的顺序组合
apply(expand.grid(vis, vars), 1, function(x) paste(x[2], x[1], sep="."))
[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
或在转换为向量之前转置矩阵：
as.vector(t(outer(vars, vis, paste, sep=".")))
[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
22赞
Jaap
12/16/2016
#3
与以下组合使用的另一种选择：sprintfexpand.grid
eg <- expand.grid(vis, vars)
sprintf('%s.%s', eg[,2], eg[,1])
这给了：
[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
解释：
- 使用创建两个向量的所有组合。
expand.grid sprintf根据指定的格式（）将两个向量粘贴在一起。格式的每个部分都替换为向量的元素。'%s.%s'%s
评论
1赞
JelenaČuklina
8/8/2017
我认为这是所有建议中最优雅的解决方案！
14赞
Uwe
6/4/2017
#4
这个老问题已经有了一个公认的答案。但是由于它被用作复制目标，我认为值得添加一个使用交叉连接功能的解决方案：data.tableCJ()
library(data.table)
options(datatable.CJ.names=FALSE) # required with version version 1.12.0+
CJ(vars, vis)[, paste(V1, V2, sep =".")]
#[1] "PL.1" "PL.2" "PL.3" "SR.1" "SR.2" "SR.3"
如果原始订单很重要：
CJ(vars, vis, sorted = FALSE)[, paste(V1, V2, sep =".")]
#[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
编辑：更改了版本 1.12.0 的默认行为CJ()
正如版本 1.12.0（第 3 点）的发行说明中所宣布的那样，默认选项已更改。 现在自动命名其输入完全正确。options(datatable.CJ.names=TRUE)CJ()as data.table()
因此，必须针对 1.12.0 及更高版本修改上述代码：data.table
library(data.table) ### version 1.12.0+
CJ(vars, vis)[, paste(vars, vis, sep =".")]
和
CJ(vars, vis, sorted = FALSE)[, paste(vars, vis, sep =".")]
回复。
53赞
ewancarr
5/18/2018
#5
另一种选择是使用 ：eachrep
paste(rep(vars, each = length(vis)), vis, sep = ".")
我发现这比基于 或 的解决方案更直接。applyexpand.grid
6赞
Ronak Shah
1/13/2020
#6
其他一些选项：purrr
library(purrr)
cross(list(vars, vis)) %>% map_chr(paste, sep = ".", collapse = ".")
#[1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
我们还可以使用cross2
cross2(vars, vis) %>% map_chr(paste, sep = ".", collapse = ".")
#[1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
1赞
andemexoax
8/25/2021
#7
从此链接复制了带有 dplyr 的选项
fruits <- tibble(
type = c("apple", "orange", "apple", "orange", "orange", "orange"),
year = c(2010, 2010, 2012, 2010, 2010, 2012),
size = factor(
c("XS", "S", "M", "S", "S", "M"),
levels = c("XS", "S", "M", "L")
),
weights = rnorm(6, as.numeric(size) + 2)
)
所有可能的组合，即所有组合都已定义，但不一定存在于数据中
fruits %>% expand(type)
#> # A tibble: 2 x 1
#> type
#> <chr>
#> 1 apple
#> 2 orange
fruits %>% expand(type, size)
#> # A tibble: 8 x 2
#> type size
#> <chr> <fct>
#> 1 apple XS
#> 2 apple S
#> 3 apple M
#> 4 apple L
#> 5 orange XS
#> 6 orange S
#> 7 orange M
#> 8 orange L
b<-fruits %>% expand(type, size, year)
#> # A tibble: 16 x 3
#> type size year
#> <chr> <fct> <dbl>
#> 1 apple XS 2010
#> 2 apple XS 2012
#> 3 apple S 2010
#> 4 apple S 2012
#> 5 apple M 2010
#> 6 apple M 2012
#> 7 apple L 2010
#> 8 apple L 2012
#> 9 orange XS 2010
#> 10 orange XS 2012
#> 11 orange S 2010
#> 12 orange S 2012
#> 13 orange M 2010
#> 14 orange M 2012
#> 15 orange L 2010
#> 16 orange L 2012
然后简单粘贴
b <- fruits %>% expand(type, size, year) %>%
mutate(., pasted=paste(type, size, year, sep="."))
-2赞
Yongchao Ge
6/29/2022
#8
最简单的解决方案就是
paste0(vars,".", vis)
[1] "SR.1" "PL.2" "SR.3"
0赞
fjesser
4/4/2023
#9
这是使用 base 的另一种选择R
vars <- c("SR", "PL"); vis <- c(1,2,3)
c(sapply(vars, \(x) paste(x, vis, sep = ".")))
[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
评论