R數據幀的所有列（因子）列都轉換為十進制

Question

它的問題很簡單，但看起來似乎不存在於stackoverflow中

我有一個數據框，其中所有列都是要轉換為小數的因子。

  Var1 Var2 Var3 Var4
1 0.76 0.84 0.76 0.73
2 0.76 0.84 0.76 0.73
3 0.76 0.84 0.76 0.73
4 0.76 0.84 0.76 0.73
5 0.76 0.84 0.76 0.73
6 0.76 0.84 0.76 0.73

我想在不損失小數位的情況下進行轉換。

df <- sapply(df, as.numeric)

這不保留小數。

Answer 1

如果它們確實是因素，則需要執行另一步驟：

as.numeric無法直接工作的原因是因為每個因素在內部as.numeric其levels存儲。 您可以通過levels(factor_var) 。 因此，當您直接將as.numeric應用於因子時，返回的是它們的levels 。 因此，首先使其成為一個字符，然后將其應用為as.numeric

df <- sapply(df, as.character)
df <- sapply(df, as.numeric)

或者您可以將它們嵌套在一個函數中：

convert_func<-function(x){  as.numeric(as.character(x))}

然后： df <- sapply(df, convert_func)

我從未嘗試過在沒有功能的情況下將它們嵌套在apply / lapply / sapply中，但是它也可能起作用。 或者你可以做一個循環：

for (col in 1:ncol(df){ 
     df[col]<-as.numeric(as.character(df[col]))
     }

Answer 2

這也應該起作用：

df[] <- lapply(df, function(x) ifelse(is.numeric(x), as.numeric(x), x))

Answer 3

我們可以使用dplyr將factor列轉換為numeric

library(dplyr)
library(magrittr)
df %<>%
   mutate_if(is.factor, funs(as.numeric(as.character(.))))

---

使用base R ，我們可以做

df[] <- lapply(df, function(x) if(is.factor(x)) as.numeric(as.character(x)) else x)

數據

df <- structure(list(Var1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), 
.Label = "0.76", class = "factor"), 
Var2 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "0.84", class = "factor"), 
Var3 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "0.76", class = "factor"), 
Var4 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "0.73", class = "factor")),
 .Names = c("Var1", "Var2", "Var3", "Var4"), row.names = c("1", "2", "3", "4", "5", 
"6"), class = "data.frame")