从数据框中的因子中删除双引号

Question

我有一个数据框可以处理，我有一堆变量作为引号中的因素，例如""x1""。

str(df) 给了我这样的东西：

$ x : Factor w/ 10 Levels "\"\"x1\"\"",..: 1 7 9 ...

我试图用gsub() 函数去掉引号，但是没有用。可能是因为我不知道要插入什么作为模式？如果有人能解决这个难题，如果"\"\"x1\"\"" 是解决这个问题的方法，也许可以向我解释一下？

数据框的示例如下所示：

structure(list(Sent = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c("\"\"Opted out\"\"", 
"\"\"Yes\"\""), class = "factor"), Responded = structure(c(2L, 
2L, 2L, 2L, 2L), .Label = c("\"\"Complete\"\"", "\"\"No\"\"", 
"\"\"Partial\"\""), class = "factor")), row.names = c(NA, -5L
), class = c("tbl_df", "tbl", "data.frame"), .Names = c("Sent", 
"Responded"))

提前致谢！

Answer 1

vec = c('""x1""', '""x2""', '""x3""')
vec =  factor(vec)

levels(vec) <- gsub('["\\]', "", levels(vec))

#> vec
#[1] x1 x2 x3
#Levels: x1 x2 x3

---

• 当我想在字符串中使用" 时，看看如何使用' 作为包装器。

• 它对您不起作用的另一个问题可能是因为您没有使用级别属性，而是使用因子变量本身。

• 因子变量在内部存储为1, 2, 3,... 数字。

---

由于您现在已经提供了数据，您可以使用：（df1 是您的带有因子列的数据）

df1[] <- lapply(df1, function(vec){ levels(vec) <- gsub('["\\]',"",levels(vec)); vec})