2017-08-08 2 views
1
私は私の結果のいくつかを分析するために、いくつかのエキゾチックなソフトウェアを使用してい

BELOW異なるコラムを読んで、そしてそれは私が一緒にFitコラムを読むことができますどのようにこのファッション別の列

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 

にデータを出力することを決定残り?

+2

2つの 'read.csv'関数を実行できます。最初の関数は' nrow'引数を持ち、2つ目は 'skip'引数を持ちます。 – lmo

+0

タブ区切りですか?なぜ、 'read.csv(" file "、sep =" \ t "、header = T)'なのですか? – CPak

+2

@lmoそれを考えなかった! 2回目の読み込みを終了し、最初の700行をスキップして元のデータに戻し、その後最初の行に 'cbind 'します。 –

答えて

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) 

最初の列は正しく名前を変更する必要があります、早くそれをスキップしなければならなかったので。