r - 根据其他行插入缺失值

Question

我有一个类似的数据框（只是更长）。我的目标是将 [2] 的用户名复制到 [8] 和 [5] 到 [7]。我知道制作副本很奇怪，但这是有原因的。

我一直在尝试用 ifelse 解决它：

df$Username <- ifelse(df$Name == df$Name, df$Username, NA)

但它不起作用。我相信这很简单，但在 stackoverlow 的任何地方都找不到函数。提前感谢您的帮助。

# A tibble: 6 x 2
  Name           Username       
  <chr>          <chr>          
1 ZiadAboultaif  ziad_aboultaif 
2 ScottAitchison ScottAAitchison
3 DanAlbas       DanAlbas       
4 JohnAldag      jwaldag        
5 OmarAlghabra   OmarAlghabra   
6 ShafqatAli     Shafqat_Ali_1  
7 OmarAlghabra   NA
8 ScottAitchison NA

# Reproducilbe data:
df <- structure(list(Name = c("ZiadAboultaif", "ScottAitchison", "DanAlbas", 
"JohnAldag", "OmarAlghabra", "ShafqatAli"), Username = c("ziad_aboultaif", 
"ScottAAitchison", "DanAlbas", "jwaldag", "OmarAlghabra", "Shafqat_Ali_1"
)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"
))

标签： rif-statement

Answer 1

我会使用dplyr：

df %>% group_by(Name) %>% 
   mutate(Username=max(Username, na.rm=TRUE))

输出：

  Name           Username       
  <chr>          <chr>          
1 ZiadAboultaif  ziad_aboultaif 
2 ScottAitchison ScottAAitchison
3 DanAlbas       DanAlbas       
4 JohnAldag      jwaldag        
5 OmarAlghabra   OmarAlghabra   
6 ShafqatAli     Shafqat_Ali_1  
7 OmarAlghabra   OmarAlghabra   
8 ScottAitchison ScottAAitchison

NA在没有s( na.rm=TRUE)的情况下获得最大值mutate。