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

列和其他列一起阅读呢？

所以我想我应该把它作为完整的答案发布（感谢lmo）

完整数据可在此处找到：

库（readr）
Top所以我想我会把它作为一个完整的答案发布（感谢lmo）

完整数据可在此处找到：

库（readr）
顶部您可以执行两个
read.csv
函数，第一个带有
nrow
参数，第二个带有
skip
参数。它是否由制表符分隔？为什么不
read.csv（“file”，sep=“\t”，header=t）
？@lmo没有想到这一点！最后读取了两次，第二次跳过了前700行（原始数据中），然后
cbind
将其复制到第一行。您可以执行两个
read.csv
函数，第一个函数使用
nrow
参数，第二个函数使用
skip
参数。是否用制表符分隔？为什么不
read.csv（“file”，sep=“\t”，header=t）
？@lmo没有想到这一点！最后读了两次，第二次跳过了前700行（在原始数据中），然后
cbind
。
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)