我正在使用一些奇特的软件来分析我的一些结果,并决定以这种方式输出数据
Dem-Dexc Aem-Dexc Aem-Aexc S E
3380.4193 581.2386 -141.1475 1.0369 0.1467
3236.4193 1608.2386 570.8525 0.8946 0.3320
1057.4193 557.2386 4533.8525 0.2626 0.3451
3098.4193 4928.2386 1524.8525 0.8404 0.6140
3716.4193 2427.2386 6633.8525 0.4808 0.3951
Fit
0.4693
0.4693
0.4693
0.4693
0.4693
如何阅读Fit
栏以及其他栏目?
答案 0 :(得分:0)
所以我认为我将其作为完整答案发布(感谢lmo)
可在此处找到完整数据: https://pastebin.com/HrBSVCZP
library(readr)
Top <- read_delim("~/Desktop/File.txt",
"\t",
escape_double = FALSE,
col_names = FALSE, # Need to get rid of the weird multi-whitespace separation
trim_ws = TRUE,
skip = 6)
Top <- na.omit(Top) # Removes bottom column entirely because of adjacent NA rows
Btm <- read_delim("~/Desktop/File.txt",
"\t", escape_double = FALSE,
col_names = TRUE,
trim_ws = TRUE,
skip = 708)
df <- cbind(Top, Btm)
第一列需要正确重命名,因为我必须先删除它。