On Feb 12, 2013, at 2:56 AM, Niklas Larson wrote:
> Hi R users,
> Wonder if somebody could give me help on how to reshape this type of data:
>
#Adding a bit of code to read this into R:
Lines <- readLines(textConnection("Date:10.09.19 Time:21:39:05 Lat:N62.37.18
Long:E018.07.32
0000-0010 | 28| 28
0010-0020| 302| 302
0020-0030| 42| 42
0030-0040| 2| 2
0040-0050| 1| 1
0060-0070| 1| 1
_
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07
0000-0010| 32| 32
0010-0020| 334| 334
0020-0030| 27| 27
0030-0040| 2| 2
0070-0080| 1| 1
0080-0090| 1| 1
0090-0100| 1| 1
0100-0110| 1| 1
_
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40
0000-0010| 63| 63
0010-0020| 303| 303
0020-0030| 85| 85
0030-0040| 12| 12
0040-0050| 4| 4
0050-0060| 1| 1
0060-0070| 4| 4
0070-0080| 1| 1"))
>
> ----------------------------------------------------------------------------------------------
>
> into this:
>
> -------------------------------------------------------------------------------------------------
> Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0000-0010| 28|
> 28
> Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0010-0020| 302|
> 302
> Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0020-0030| 42|
> 42
>
> Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0070-0080| 1|
> 1
>
Snipped
This should get you started along one possible path. Still to be done would be
removing the lines that only had dashes and perhaps parsing the headers.
data.frame(dattimeLatlon = Lines[rep( grep("Date", Lines), each=diff(numdt))] ,
vals=Lines[ grep("^[^D]", Lines) ] )
#----------
dattimeLatlon
vals
1 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0000-0010 | 28|
28
2 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0010-0020| 302|
302
3 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0020-0030| 42|
42
4 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0030-0040| 2|
2
5 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0040-0050| 1|
1
6 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0060-0070| 1|
1
7 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32
_
8 Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0000-0010| 32|
32
9 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0010-0020| 334|
334
10 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0020-0030| 27|
27
11 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0030-0040| 2|
2
12 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0070-0080| 1|
1
13 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0080-0090| 1|
1
14 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0090-0100| 1|
1
15 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0100-0110| 1|
1
16 Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07
_
17 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0000-0010| 63|
63
18 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0010-0020| 303|
303
19 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0020-0030| 85|
85
20 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0030-0040| 12|
12
21 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0040-0050| 4|
4
22 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0050-0060| 1|
1
23 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0060-0070| 4|
4
24 Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0070-0080| 1|
1
David Winsemius
Alameda, CA, USA
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
