##直接转 dat_es <- dplyr::mutate_all(dat_e,as.numeric) ## 转换后的数据存入list,再转data.frame data <- as.data.frame(lapply(data_raw[,-c(1:11)],as.numeric))
##直接转 dat_es <- dplyr::mutate_all(dat_e,as.numeric) ## 转换后的数据存入list,再转data.frame data <- as.data.frame(lapply(data_raw[,-c(1:11)],as.numeric))