的R - GSUB功能

Question

编辑我有一个输入数据帧是这样的：

我所要的输出是这样的：

请找我的解释下面。我真的不知道该给一个详细的解释超过了这个:(

让我解释一下....在输入数据集，对于具有COL1值“10”行，我想扫描COL2价值观，以“*” ......同样的逻辑也适用于具有重复COL1值的所有COL2值.. 我想使用GSUB功能的..

我更换任何重复的文本模式尝试gsub连同粘贴几次，我没有得到所需的输出，因为我不知道如何匹配里面的所有模式重复。

我已经问过这个问题。但由于我没有收到答复，我正在重新发布。

附加以下输入数据框的dput：

structure(list(COL1 = c(10L, 10L, 10L, 20L, 20L, 30L, 30L, 40L, 
40L, 40L, 50L, 50L, 50L), COL2 = c("mary has life", "Don mary has life", 
"Britto mary has life", "push them fur", "push them ", "yell at this", 
"this is yell at this", "Year", "Doggy", "Horse", "This is great job", 
"great job", "Donkey")), .Names = c("COL1", "COL2"), row.names = c(NA, 
-13L), class = "data.frame") 

Answer 1

您可以编写运行gsub一组中的每个项目，并选择最短的更换功能（从本身不谈，当然）：

fun <- function(col){ 
    matches <- sapply(col, function(x){gsub(x, '\\*', col)}); 
    diag(matches) <- NA; 
    apply(matches, 1, function(x){x[which.min(nchar(x))]}) 
} 

现在，在你最喜欢的语法实现：

library(dplyr) 

df %>% group_by(COL1) %>% mutate(COL3 = fun(COL2)) 

## Source: local data frame [13 x 3] 
## Groups: COL1 [5] 
## 
##  COL1     COL2   COL3 
## <int>    <chr>   <chr> 
## 1  10  mary has life mary has life 
## 2  10 Don mary has life   Don * 
## 3  10 Britto mary has life  Britto * 
## 4  20  push them fur   *fur 
## 5  20   push them  push them 
## 6  30   yell at this yell at this 
## 7  30 this is yell at this  this is * 
## 8  40     Year   Year 
## 9  40    Doggy   Doggy 
## 10 40    Horse   Horse 
## 11 50 This is great job  This is * 
## 12 50   great job  great job 
## 13 50    Donkey  Donkey 

或全部保留在底座R：

df$COL3 <- ave(df$COL2, df$COL1, FUN = fun) 

df 

## COL1     COL2   COL3 
## 1 10  mary has life mary has life 
## 2 10 Don mary has life   Don * 
## 3 10 Britto mary has life  Britto * 
## 4 20  push them fur   *fur 
## 5 20   push them  push them 
## 6 30   yell at this yell at this 
## 7 30 this is yell at this  this is * 
## 8 40     Year   Year 
## 9 40    Doggy   Doggy 
## 10 40    Horse   Horse 
## 11 50 This is great job  This is * 
## 12 50   great job  great job 
## 13 50    Donkey  Donkey