从 colnames 中删除引号？

Question

我有一个如下形式的数据框

"column1"	"column2"
1	5
2	6
3	7

如何从列名中删除引号？我试过使用 gsub 但我不能引用引号哈哈。还需要一种方法来做到这一点，而不仅仅是names(data) <- c("column1", "column2")。谢谢大家！

Answer 1

您可以将gsub 与单引号一起使用，以便引用双引号字符进行替换：

names(df) = gsub('"', "", names(df))

测试：

# Set up data
d = mtcars[1:3, 1:4]
names(d)[1:2] = c('"column1"', '"column2"')

names(d)
#> [1] "\"column1\"" "\"column2\"" "disp"        "hp"

d
#>               "column1" "column2" disp  hp
#> Mazda RX4          21.0         6  160 110
#> Mazda RX4 Wag      21.0         6  160 110
#> Datsun 710         22.8         4  108  93

# Remove quotation marks from column names
names(d) = gsub('"', "", names(d))
names(d)
#> [1] "column1" "column2" "disp"    "hp"

d
#>               column1 column2 disp  hp
#> Mazda RX4        21.0       6  160 110
#> Mazda RX4 Wag    21.0       6  160 110
#> Datsun 710       22.8       4  108  93

^{由reprex package (v0.3.0) 于 2021-01-19 创建}