用 gsub 替换，如果列元素为空，则用反斜杠填充

Question

我有这个数据框作为玩具示例

dfl=data.frame(x=c("1","2","3","4"),event=c("wrestle/mania","wrestle/mercy","wrestle","wrestle/mercy"))

现在我想删除事件中的所有 "wrestle" 字符串 col.So 我正在使用此代码：

dfl$event = gsub("wrestle","",df$event)

但是如果整个字符串被替换为事件 col 的第 3 个元素，我想要一个反斜杠

Answer 1

dfl %>%
  mutate(event = ifelse(event == "wrestle", 
                        "/", 
                        gsub("wrestle", "", event)))

那会给你：

  x  event
1 1 /mania
2 2 /mercy
3 3      /
4 4 /mercy

Replacing with gsub and if column element gets empty fill with it a backslash