R函数在一个向量中连接两个连续的名字答案

【问题标题】：R function to join two consecutive names in a vectorR函数在一个向量中连接两个连续的名字
【发布时间】：2021-10-05 05:29:34
【问题描述】：

我有一个包含名称和数字的字符向量，我想将所有连续的名称连接在一起，同时保持数字不变。数据如下：

names_scores <- c("Jake", "Jacobson", "33", "Tim", "Blake", "45", "Muhammad Kamil", "41")

我基本上想将“拆分”名称加入一个字符串，所以向量看起来像这样：

names_scores_joined <- c("Jake Jacobson", "33", "Tim Blake", "45", "Muhammad Kamil", "41")

请注意，有些名称已经加入，因此不需要触摸（如最后一个）。

【问题讨论】：

@RonakShah 不，名称的长度从 1 到 4 不等。

标签： r loops vector

【解决方案1】：

我们可以用grepl 识别数字，并从结果逻辑向量中推导出组号：

names_scores <- c("Jake", "Jacobson", "33", "Tim", "Blake", "45", "Muhammad Kamil", "41")
g <- cumsum(c(TRUE, diff(grepl("^\\d+$", names_scores)) != 0L))
#[1] 1 1 2 3 3 4 5 6

然后我们使用 group-by 函数将 paste 字符串组合在一起：

unname(tapply(names_scores, g, paste, collapse = " "))
#[1] "Jake Jacobson"  "33"             "Tim Blake"      "45"             "Muhammad Kamil" "41"

如果你的向量很长，你应该使用更有效的分组函数（例如，包 dplyr 或 data.table）。

【讨论】：

谢谢，这行得通！附加问题：