假设我有两个向量:
a <- c("george", "harry", "harry", "chris", "steve", "steve", "steve", "harry")
b <- c("harry", "steve", "chris", "harry", "harry", "george", "chris", "george")
我想做的是将第一对、第二对等粘贴在一起......但是,我想按字母顺序粘贴每对的两个元素。在上面的示例中,前 2 对已经按字母顺序排列,但第三对“harry”和“chris”则不是。我想为这双鞋返回“chris harry”。
我已经弄清楚如何通过两步过程来做到这一点,但想知道是否有一种快速的方法(单行方式)可以仅使用paste
?
我的解决方案:
x <- apply(mapply(c, a, b, USE.NAMES = FALSE), 2, sort)
paste(x[1,], x[2,])
它按字母顺序给出了对...但是有 1 行的方式吗?
[1] "george harry" "harry steve" "chris harry" "chris harry" "harry steve" "george steve" "chris steve" "george harry"