将单行转换为R中的多列

我已经从NOAA下载了一年的数据。问题是下载的数据中也有文本。所以，我找到了数据线的模式并将其提取出来。我使用的代码如下：将单行转换为R中的多列

url <- "http://tidesandcurrents.noaa.gov/data_menu.shtml?bdate=20080101&edate=20081231&wl_sensor_hist=W2&relative=&datum=6&unit=0&shift=s&stn=8737048+Mobile+State+Docks%2C+AL&type=Historic+Tide+Data&format=View+Data" 
download.file(url,destfile="data/mobile-docks-2008.dat") 

mob2008 <- readLines("data/mobile-docks-2008.dat") 
head(mob2008) 

# Find pattern to separate data 
pat <- grep(pattern="([0-9]+)\\s[0-9]",mob2008) 

jd1 <- data.frame(mob2008[pat]) 
head(jd1) 
> head(jd1) 
          mob2008.pat. 
1 8737048 20080101 00:00 0.125 0.270 
2 8737048 20080101 01:00 0.090 0.220 
3 8737048 20080101 02:00 0.070 0.167 
4 8737048 20080101 03:00 0.061 0.093 
5 8737048 20080101 04:00 0.057 0.002 
6 8737048 20080101 05:00 0.052 -0.108

如何将单行更改为R中的多列？似乎是一个微不足道的问题，但我坚持这一点。

问题是数据帧jd1只有一列。我需要每行有5列。

来源

2013-07-13 Janesh Devkota

'data'是我的工作目录的文件夹。您只需要替换数据 –

如果您定期从网页上抓取数据，则可能需要查看“XML”包。它有一个函数'htmlTreeParse'，可以用来解决你的例子中的正则表达式搜索问题。如果你只是不时地下载数据，使用'htmlTreeParse'是有点矫枉过正的。 :) – cryo111

@ cryo111：谢谢你的建议。我会研究'XML'包 –

无需reshape2或strsplit。

刚：

> jd1 <- read.table(text=mob2008[pat]) 
> head(jd1) 
     V1  V2 V3 V4  V5 
1 8737048 20080101 00:00 0.125 0.270 
2 8737048 20080101 01:00 0.090 0.220 
3 8737048 20080101 02:00 0.070 0.167 
4 8737048 20080101 03:00 0.061 0.093 
5 8737048 20080101 04:00 0.057 0.002 
6 8737048 20080101 05:00 0.052 -0.108

来源

2013-07-13 23:56:43

太棒了，非常感谢你。 –

R> jd1 = readLines(textConnection("1 8737048 20080101 00:00 0.125 0.270 
+ 2 8737048 20080101 01:00 0.090 0.220 
+ 3 8737048 20080101 02:00 0.070 0.167 
+ 4 8737048 20080101 03:00 0.061 0.093 
+ 5 8737048 20080101 04:00 0.057 0.002 
+ 6 8737048 20080101 05:00 0.052 -0.108")) 
R> jd1 = data.frame(mob2008.pat. = jd1, stringsAsFactors = FALSE) 
R> jd1 
           mob2008.pat. 
1 1 8737048 20080101 00:00 0.125 0.270 
2 2 8737048 20080101 01:00 0.090 0.220 
3 3 8737048 20080101 02:00 0.070 0.167 
4 4 8737048 20080101 03:00 0.061 0.093 
5 5 8737048 20080101 04:00 0.057 0.002 
6 6 8737048 20080101 05:00 0.052 -0.108 
R> dim(jd1) 
[1] 6 1 
R> jd2 = strsplit(jd1[[1]], " ") 
R> jd2 = lapply(jd2, function(x) x[x != ""]) 
R> jd2 = do.call(rbind, jd2) 
R> data.frame(jd2) 
    X1  X2  X3 X4 X5  X6 
1 1 8737048 20080101 00:00 0.125 0.270 
2 2 8737048 20080101 01:00 0.090 0.220 
3 3 8737048 20080101 02:00 0.070 0.167 
4 4 8737048 20080101 03:00 0.061 0.093 
5 5 8737048 20080101 04:00 0.057 0.002 
6 6 8737048 20080101 05:00 0.052 -0.108

这有6列，但删除行号列很容易，并会给你所需的5列。

来源

2013-07-13 22:58:54

谢谢你的解决方案。 –

@Jdbaba没问题。给自己一个复选标记！你的解决方案比我的好得多 –

我发现使用包reshape2和功能colsplit

我的问题解决方案中的解决方案如下：

library(reshape2) 
> jd1<- colsplit(mob2008[pat],pattern="\\s+" ,names=c("V1","V2","V3","V4","V5")) 
> head(jd1) 
     V1  V2 V3 V4  V5 
1 8737048 20080101 00:00 0.125 0.270 
2 8737048 20080101 01:00 0.090 0.220 
3 8737048 20080101 02:00 0.070 0.167 
4 8737048 20080101 03:00 0.061 0.093 
5 8737048 20080101 04:00 0.057 0.002 
6 8737048 20080101 05:00 0.052 -0.108

来源

2013-07-13 23:03:25

将单行转换为R中的多列

回答

相关问题