我试图找到一种简单的方法(最好是一行),将字符向量中元素的独特组合组合组合并连接到一个新的字符串向量中.
我还希望能够在插入向量组合之前、之间或之后,在新向量中包含任何文本行.组合不应按相反顺序重复(例如,'x1_x2'
而不是'x2_x1'
),也不应将一个元素与自身组合(不是'x1_x1'
).
是否存在快速解决方案?
预期结果的等效代码示例:
vec <- paste0("X", 1:5)
# The underscore signifies any arbitrary line of text
c(
paste0("_", vec[1], "_", vec[2:5], "_"),
paste0("_", vec[2], "_", vec[3:5], "_"),
paste0("_", vec[3], "_", vec[4:5], "_"),
paste0("_", vec[4], "_", vec[5], "_")
)
'_X1_X2_''_X1_X3_''_X1_X4_''_X1_X5_''_X2_X3_''_X2_X4_''_X2_X5_'
'_X3_X4_''_X3_X5_''_X4_X5_'