如何分隔R中的數據列

Question

我有數據結構4464行和1列。 數據應該在4464行和8列中。

數據包含： 每個文件都有一個兩線 頭，後跟data.The列有：儒略日，10分鐘 間隔標記，溫度，壓力，風速和風向。十分鐘間隔標記是代表時間的1和144之間的數字。 數據來自here

總共有12個這樣的數據文件，我的目標是把它們放在一個3D數組中。 但我堅持要修復此數據表單。數據

Jan 13 Station : 8900 Harry    
    Lat : 83.00S Long : 121.40W Elev : 957 M 
    1 1 -7.8 879.0 5.6 360.0 444.0 9.1 
    1 2 -7.9 879.1 4.6 360.0 444.0 9.1 
    1 3 -7.6 879.2 4.1 345.0 444.0 9.1 
    1 4 -7.6 879.3 4.1 339.0 444.0 9.1 
    1 5 -7.6 879.4 4.8 340.0 444.0 9.1 
    1 6 -7.9 879.4 3.6 340.0 444.0 9.1 
    1 7 -8.0 879.3 4.6 340.0 444.0 9.1 
    1 8 -8.0 879.4 4.1 340.0 444.0 9.1 
    1 9 -8.2 879.4 5.8 338.0 444.0 9.1 
    1 10 -8.4 879.5 4.6 339.0 444.0 9.1 

的

例子我試圖和研究一些東西，但我不知道最好的方法是什麼。

我的代碼是（無法與data.frame代碼...）：

setwd("/Users/Gizmo/Documents/Henry") 
    dir() 
    h13<-dir() 
    henry<-read.csv(h13[1],skip=2,header=FALSE) 
    colnames(c("J-Day","MinInter","Temp","Pressure","WindSpeed","WindDir","Ext1","Ext2")) 

我看了看其他的問題，引導和data.frame似乎是最好的方式，但我不能代碼。 （結束與數據維NULL。）

請給我這方面的意見。謝謝。

Answer 1

你的問題好像是用的，而不是read.csvread.table：

henry <- read.table(text='Jan 13 Station : 8900 Harry    
    Lat : 83.00S Long : 121.40W Elev : 957 M 
    1 1 -7.8 879.0 5.6 360.0 444.0 9.1 
    1 2 -7.9 879.1 4.6 360.0 444.0 9.1 
    1 3 -7.6 879.2 4.1 345.0 444.0 9.1 
    1 4 -7.6 879.3 4.1 339.0 444.0 9.1 
    1 5 -7.6 879.4 4.8 340.0 444.0 9.1 
    1 6 -7.9 879.4 3.6 340.0 444.0 9.1 
    1 7 -8.0 879.3 4.6 340.0 444.0 9.1 
    1 8 -8.0 879.4 4.1 340.0 444.0 9.1 
    1 9 -8.2 879.4 5.8 338.0 444.0 9.1 
    1 10 -8.4 879.5 4.6 339.0 444.0 9.1', header=FALSE, skip=2) 
names(henry) <- c("J-Day","MinInter","Temp","Pressure","WindSpeed","WindDir","Ext1","Ext2") 

結果：

> henry 
    J-Day MinInter Temp Pressure WindSpeed WindDir Ext1 Ext2 
1  1  1 -7.8 879.0  5.6  360 444 9.1 
2  1  2 -7.9 879.1  4.6  360 444 9.1 
3  1  3 -7.6 879.2  4.1  345 444 9.1 
4  1  4 -7.6 879.3  4.1  339 444 9.1 
5  1  5 -7.6 879.4  4.8  340 444 9.1 
6  1  6 -7.9 879.4  3.6  340 444 9.1 
7  1  7 -8.0 879.3  4.6  340 444 9.1 
8  1  8 -8.0 879.4  4.1  340 444 9.1 
9  1  9 -8.2 879.4  5.8  338 444 9.1 
10  1  10 -8.4 879.5  4.6  339 444 9.1 

> str(henry) 
'data.frame': 10 obs. of 8 variables: 
$ J-Day : int 1 1 1 1 1 1 1 1 1 1 
$ MinInter : int 1 2 3 4 5 6 7 8 9 10 
$ Temp  : num -7.8 -7.9 -7.6 -7.6 -7.6 -7.9 -8 -8 -8.2 -8.4 
$ Pressure : num 879 879 879 879 879 ... 
$ WindSpeed: num 5.6 4.6 4.1 4.1 4.8 3.6 4.6 4.1 5.8 4.6 
$ WindDir : num 360 360 345 339 340 340 340 340 338 339 
$ Ext1  : num 444 444 444 444 444 444 444 444 444 444 
$ Ext2  : num 9.1 9.1 9.1 9.1 9.1 9.1 9.1 9.1 9.1 9.1