如何强制列表对象键入“ double”

编码：

a <- structure(list(`X$Days` = c("10", "38", "66", "101", "129", "185", "283", 
                                 "374")), .Names = "X$Days")

然后a就像

$`X$Days`
[1] "10"  "38"  "66"  "101" "129" "185" "283" "374"

我想强制a转换为数值数组，但是强制函数返回我

Error: (list) object cannot be coerced to type 'double'

谢谢，

如果要将的所有元素都a转换为单个数字矢量并且length(a)大于1（确定，即使它的长度为1），则可以unlist先将对象转换为对象。

as.numeric(unlist(a))
# [1]  10  38  66 101 129 185 283 374

请记住，这里没有任何质量控制。另外，X$Days一个强大的奇怪的名字。

如果您需要将多个元素转换为数字列表，则可以使用来实现lapply(a, as.numeric)。

您还可以使用列表子设置来选择要转换的元素。如果您的列表包含多个元素，这将很有用。

as.numeric(a[[1]])

某些数据有问题。考虑：

as.double(as.character("2.e")) # This results in 2

另一个解决方案：

get_numbers <- function(X) {
    X[toupper(X) != tolower(X)] <- NA
    return(as.double(as.character(X)))
}

在这种情况下，循环也可以完成工作（通常足够快）。

a <- array(0, dim=dim(X))
for (i in 1:ncol(X)) {a[,i] <- X[,i]}