从字符串的一部分中删除多余的分隔符

Question

我有一个数据框，其中包含 NA 列的剩余分隔符，例如:

df <- data.frame("row" = c(1:5), "values" = c("A,B,C,,,,,,", "D,E,F,,,,", "A,C,,,,", "B,E,F,,", "G,E,A,,,,,,,,,"))

如何删除每个值末尾的可变数量的逗号？ stringr 里有东西吗？

Answer 1

我们可以使用base R中的trimws

df$values <- trimws(df$values, whitespace = ",+")
df$values
#[1] "A,B,C" "D,E,F" "A,C"   "B,E,F" "G,E,A"

---

或使用base R中的sub

df$values <- sub(",+$", "", df$values)

---

在stringr中，我们可以使用str_remove

library(stringr)
df$values <- str_remove(df$values, ",+$")