我有一些数据有点不方便。它保存为矩阵,所有列向量都是字符。
datamatrix <- structure(c("1", "2", "3", "4", "0.9301", "0.93", "0.9286", "0.9209",
"0.9", "0.8064", "0.7947", "0.7607", "0.8042", "0.7847", "0.7832",
"0.7578", "0.7487", "0.7105", "0.6566", "0.5951", "0.6951", "0.677",
"0.6588", "0.5922", "0.6889", "0.6471", "0.6524", "0.5932"), .Dim = c(4L,
7L))
我的目标是将此矩阵转换为数据帧,将列向量转换为数字类。
我尝试过以下程序:
1)
datamatrix2 <- as.data.frame(datamatrix)
datamatrix2 <- as.numeric(datamatrix2)
这给出了错误:
"Error: (list) object cannot be coerced to type 'double'"
2)所以我尝试用sapply:
datamatrix3 <- as.data.frame(sapply(datamatrix, as.numeric))
这将我之前拥有的所有列都放在长列中。
3)当我使用2)中的apply函数对已经转换为数据帧的数据(但仍然是字符向量)时,它采用第一列(1,2,3,4)中的值并将其放入所有其他列(但按降序排列)。
datamatrix4 <- as.data.frame(sapply(datamatrix2, as.numeric))
答案 0 :(得分:3)
转换矩阵的最佳方法是更改mode
。通过这种方式,您可以制作矩阵numeric
,然后您可以轻松转换为数据框:
mode(datamatrix) = "numeric"
data.frame(datamatrix)
# X1 X2 X3 X4 X5 X6 X7
# 1 1 0.9301 0.9000 0.8042 0.7487 0.6951 0.6889
# 2 2 0.9300 0.8064 0.7847 0.7105 0.6770 0.6471
# 3 3 0.9286 0.7947 0.7832 0.6566 0.6588 0.6524
# 4 4 0.9209 0.7607 0.7578 0.5951 0.5922 0.5932
答案 1 :(得分:1)
有几种方法可以做到这一点。最简单的可能是managername
:
select
e.empname , m.empname as managerName
from
employees e inner join
departments d on
e.deptID = d.deptID inner join
employees m on
d.managerID = m.empID
where e.empname ='arwa'
这明确要求返回数据框。
基本purrr::map_df()
方式将是:
library("purrr")
datamatrix = as.data.frame(datamatrix, stringsAsFactors = FALSE)
datamatrix = map_df(datamatrix, as.numeric)
datamatrix
# A tibble: 4 x 7
# V1 V2 V3 V4 V5 V6 V7
# <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
# 1 1 0.9301 0.9000 0.8042 0.7487 0.6951 0.6889
# 2 2 0.9300 0.8064 0.7847 0.7105 0.6770 0.6471
# 3 3 0.9286 0.7947 0.7832 0.6566 0.6588 0.6524
# 4 4 0.9209 0.7607 0.7578 0.5951 0.5922 0.5932