并行 gsub：如何删除向量的每个元素中的不同字符串

Question

我有一个客人名单，其中一列中有姓氏，然后在另一列中有家庭中每个人的名字或全名（第一个空格最后）。我想让另一列只包含名字。

gsub(guest.w$Last.Name,"",guest.w$Party.Name.s.)

如果我只有一行，那将非常有效，但是如何为数据框中的每一行执行此操作。我必须写一个for循环吗？有没有一种方法可以并行执行，类似于 pmax() 与 max() 的关系。

我的问题在某种程度上类似于 之前由 JD Long 提出的问题，但与我的相比，这个问题只是小菜一碟。

例子

：

史密斯；乔·史密斯、凯文·史密斯、简·史密斯
改变;罗伯特·阿尔特、玛丽·阿尔特、罗纳德·阿尔特

成为

史密斯；乔、凯文、简
改变;罗伯特、玛丽、罗纳德

Answer 1

使用 hadleys adply：

library(plyr)
df <- data.frame(rbind(c('Smith', 'Joe Smith, Kevin Smith, Jane Smith'), c('Alter', 'Robert Alter, Mary Alter, Ronald Alter')))
names(df) <- c("last", "name")
adply(df,1,transform, name=gsub(last, '', name))

您可能需要清理新向量中的空间。

Answer 2

您可能需要对表达式进行一些“包装”以使 apply() 函数正常工作：

• 如果您在 data.frame 上工作，您应该使用 apply() （而不是 sapply()），
• 您必须为apply （带有 return 子句）
• 在 data.frame 行上作为函数输入有点棘手 - 它们被转换为向量并丢失一些属性（您不能使用 $ 符号来调用命名字段），因此最好将其转换首先进入列表

最终结果如下所示：

df <- rbind(c('Smith', 'Joe Smith, Kevin Smith, Jane Smith'), c('Alter', 'Robert Alter, Mary Alter, Ronald Alter'))
colnames(df) = c('Last.Name', 'Party.Name.s.')
apply(df,1,function(y) {y = as.list(y);return(gsub(y$Last.Name, "", y$Party.Name.s.))}) 

Answer 3

我不确定它是否适用于数据框，但您可以尝试其中一种应用功能：

`y1 <- sapply(dataframe, gsub(guest.w$Last.Name,"",guest.w$Party.Name.s.))`