r - 删除千位分隔符

Question

我导入了一个 Excel 文件并得到了这样的数据框

structure(list(A = structure(1:3, .Label = c("1.100", "2.300", 
"5.400"), class = "factor"), B = structure(c(3L, 2L, 1L), .Label = c("1.000.000", 
"500", "7.800"), class = "factor"), C = structure(1:3, .Label = c("200", 
"3.100", "4.500"), class = "factor")), .Names = c("A", "B", "C"
), row.names = c(NA, -3L), class = "data.frame")

我现在想将这些转换chars为numeric甚至integer. 但是，点字符 ( .) 不是十进制符号，而是“千位分隔符”（它是德语）。

我将如何正确转换数据框？

我试过这个：

df2 <- as.data.frame(apply(df1, 2, gsub, pattern = "([0-9])\\.([0-9])", replacement= "\\1\\2"))

df3 <- as.data.frame(data.matrix(df2))

但是，apply似乎将每一列转换为因素列表。我可以阻止apply这样做吗？

Answer 1

你可以使用这个：

sapply(df, function(v) {as.numeric(gsub("\\.","", as.character(v)))})

这使 ：

        A       B    C
[1,] 1100    7800  200
[2,] 2300     500 3100
[3,] 5400 1000000 4500

这会给你一个对象，但如果你愿意matrix ，你可以把它包装进去。data.frame()

请注意，原始数据中的列不是字符而是因子。

---

编辑：或者，data.frame()您可以这样做以直接将结果作为data.frame：

# the as.character(.) is just in case it's loaded as a factor
df[] <- lapply(df, function(x) as.numeric(gsub("\\.", "", as.character(x))))

Answer 2

我想我刚刚找到了另一个解决方案：

有必要使用stringsAsFactors = FALSE.

像这样：

df2 <- as.data.frame(apply(df1, 2, gsub, pattern = "([0-9])\\.([0-9])", replacement= "\\1\\2"), stringsAsFactors = FALSE)

df3 <- as.data.frame(data.matrix(df2))