> data<-as.numeric(as.matrix(data))
Warning message:
NAs introduced by coercion
用了各种方法都没能把矩阵转换成数值型的解决方案。

.png
一开始数据内容里有科学计数法的“e”,用
options(scipen = 200)设置默认不用科学计数法。然后通过
# 去除name列里面的引号
data= gsub('["]', '', data)
# 去除name列里面的逗号
data= gsub('[,]', '', data)
去除可能有的非数值内容,以上均无效
发现转完后的data是这样的:

一开始是这样的:

于是想到是行名和列名的问题。将第一行和第一列作为行名和列名,再将其删除
data<-data[c(-2,-3,-6,-7,-8,-9,-10)]
rownames(data)<-data[,1]
colnames(data)<-data[1,]
data<-data[,-1]
data<-data[-1,]
转换完是这样的

如果直接
data<-apply(data,2,as.numeric)会丢失行名,使用
data<-apply(data, c(1,2),as.numeric)就不会丢失。