阅读另一列下面的另一列

时间:2017-08-08 13:57:48

标签: r

我正在使用一些奇特的软件来分析我的一些结果,并决定以这种方式输出数据

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栏以及其他栏目?

1 个答案:

答案 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)

第一列需要正确重命名,因为我必须先删除它。