防止将数字转换为因子

Question

我正在从CSV文件构建表格。 最初加载文件时，我需要加载为字符。

datset <- read.csv("outcome-of-care-measures.csv", colClasses = "character")

我具有转换包含数字的因子的功能（从其他堆栈q）

as.numeric.factor <- function(x) {as.numeric(levels(x))[x]}

我用清理文件

i<-17
datset[datset=="Not Available"]<-NA
datset<-datset[complete.cases(datset[,i]),]
x<- as.numeric.factor(datset[, i])

datset表包含许多我不需要的列，因此我建立了一个新表：

dat <- data.frame(cbind("HospitalName"= datset[,2], "State"= datset[,7],"Rating" = x))                        

我的问题是，即使x是数字，但在加载到数据框时也会变成一个因素。 我可以使用以下方式从调试模式验证这一点：

class(x)
"Numeric"

class(dat[,3])
"Factor"

在以后的代码中，我试图对“评级”列进行排序，但是由于这是一个因素，因此无法通过-我猜。

我什至尝试将stringsAsFactors = FALSE附加到read.csv但这没有效果。

加载到DF时如何防止x转换为因子？

Answer 1

正如Henrik在评论中解释的那样：

dat <- data.frame(cbind("HospitalName"= datset[,2], "State"= datset[,7],"Rating" = x))

这是构造数据帧的不良方法。 cbind将所有内容转换为一个矩阵，该矩阵只能容纳一个数据类型。 因此，强制。

最好这样做：

dat <- data.frame(HospitalName = dataset[,2],state = dataset[,7],rating = x)

但是，正如Roland提到的那样，当通过以下方式读取数据时，您应该能够将这一列指定为数字，这也是对的：

colclasses <- rep("character", 40)
colclasses[7] <- "numeric"

然后将其传递给read.csv 。