R - 將 dataframe 列轉換為數字 - 強制錯誤引入的 NA

Question

我正在嘗試從這里執行代碼：

將 class 從因子更改為數據框中多列的數字

在具有 140 列的 dataframe 中

cols = c(1:140);    
merged_dataset[,cols] = apply(merged_dataset[,cols], 2, function(x) as.numeric(as.character(x)));

問題在於我得到 NA 的某些列。 有沒有辦法以某種方式從代碼中排除這些列，以便我保留數據並且它們不會轉換為 NA？ 如果有幫助，我看到這些列的類型是字符。

Answer 1

如果您已經知道要刪除的列的索引，那么您可以對數據框進行子集化以僅針對某些列：

cols <- c(1:140)         # all columns
cols.skip <- c(1,3,5,21) # columns which CAN'T be converted to numeric
cols.keep <- cols[!cols %in% cols.skip]
merged_dataset[,cols.keep] <- apply(merged_dataset[,cols.keep], 2, function(x) {
    as.numeric(as.character(x))
})

要使用列名而不是索引來實現類似的邏輯：

cols.skip <- c("a", "b", "c")
cols.keep <- !(names(merged_dataset) %in% cols.skip)
merged_dataset[,cols.keep] <- apply(merged_dataset[,cols.keep], 2, function(x) {
    as.numeric(as.character(x))
})

Answer 2

也可以在因子級別內替換任何不正確的字符以更好地提取任何數字：

convert_factors_to_numeric <- function(df) {

  as.data.frame(lapply(df,
                       function(x) {

                         if (is.factor(x)) {

                           as.numeric(as.character(trimws(x),
                                        which = "both"))

                         } else{

                           x

                         }
                       }
                     ),

                stringsAsFactors = FALSE)

}

df_converted <- convert_factors_to_numeric(df)