我有兩個向量：vars <- c("SR", "PL")vis <- c(1,2,3)基于這些向量，我想創(chuàng)建以下向量："SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"與paste我有以下結(jié)果：paste(vars, vis, sep=".") [1] "SR.1" "PL.2" "SR.3"如何創(chuàng)建所需的向量？
3 回答
喵喵時光機(jī)
TA貢獻(xiàn)1846條經(jīng)驗(yàn) 獲得超7個贊
您可以使用它，但是可能有一個更簡單的解決方案：
R> apply(expand.grid(vars, vis), 1, paste, collapse=".")
[1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
expand.grid還給一個data.frame與使用時apply，apply將其轉(zhuǎn)換為matrix。這只是不必要的（并且在大數(shù)據(jù)上效率低下）。outer給出一個matrix并且也接受函數(shù)參數(shù)。在海量數(shù)據(jù)上也將非常有效。
使用outer：
as.vector(outer(vars, vis, paste, sep="."))
# [1] "SR.1" "PL.1" "SR.2" "PL.2" "SR.3" "PL.3"
夢里花落0921
TA貢獻(xiàn)1772條經(jīng)驗(yàn) 獲得超6個贊
要保持問題中請求的字符串的順序，可以對這兩種方法使用以下兩種修改：
更改向量的順序并以相反的順序合并
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"
或在轉(zhuǎn)換為向量之前轉(zhuǎn)置矩陣：
as.vector(t(outer(vars, vis, paste, sep=".")))
[1] "SR.1" "SR.2" "SR.3" "PL.1" "PL.2" "PL.3"
- 3 回答
- 0 關(guān)注
- 655 瀏覽
添加回答
舉報
0/150
提交
取消