從整個數據框中刪除一個字符

Question

我有一個包含各種列的 dataframe，某些列中的某些數據包含雙引號，我想刪除這些，例如：

ID    name   value1     value2
"1     x     a,"b,"c     x"
"2     y     d,"r"       z"

我希望它看起來像這樣：

ID    name   value1    value2
1     x      a,b,c      x
2     y      d,r        z

Answer 1

我會使用lapply循環遍歷列，然后使用gsub替換" 。

df1[] <- lapply(df1, gsub, pattern='"', replacement='')
df1
#  ID name value1 value2
#1  1    x  a,b,c      x
#2  2    y    d,r      z

如果需要的class可以被改變type.convert

df1[] <- lapply(df1, type.convert)

數據

df1 <-  structure(list(ID = c("\"1", "\"2"), name = c("x", "y"),
value1 = c("a,\"b,\"c", 
"d,\"r\""), value2 = c("x\"", "z\"")), .Names = c("ID", "name", 
"value1", "value2"), class = "data.frame", row.names = c(NA, -2L))

Answer 2

一種選擇是使用apply()和gsub()函數來刪除所有雙引號：

df <- data.frame(ID=c("\"1", "\"2"),
                 name=c("x", "y"),
                 value1=c("a,\"b,\"c", "d,\"r\""),
                 value2=c("x\"", "z\""))

df <- data.frame(apply(df, 2, function(x) {
                                  x <- gsub("\"", "", x)
                              })

> df
  ID name value1 value2
1  1    x  a,b,c      x
2  2    y    d,r      z

Answer 3

要刪除$你必須轉義它\\\\\\$ 。 嘗試：

df[] <- lapply(df, gsub, pattern="\\\$", replacement="")

Answer 4

dplyr 解決方案（基於@akrun 在其中一條評論中的建議）。

df1 <-  structure(list(ID = c("\"1", "\"2"), name = c("x", "y"),
                       value1 = c("a,\"b,\"c", "d,\"r\""),
                       value2 = c("x\"", "z\"")),
                      .Names = c("ID", "name", "value1", "value2"), class = "data.frame", row.names = c(NA, -2L))

df1 <- df1 %>% dplyr::mutate(across(everything(), stringr::str_remove_all, pattern = '"'))