Message-ID: <1360705891.71815.YahooMailNeo@web142602.mail.bf1.yahoo.com>
Date: 2013-02-12T21:51:31Z
From: arun
Subject: reorganize data
In-Reply-To: <CAKOGStrAgA3TjMBR-z8K3kwsj366ZO8O-Uw_xVbmts3pJYH=vg@mail.gmail.com>
Hi,
Sorry, in my previous reply, I omitted one of the columns.
Lines1 <- 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"))
Lines2<- Lines1[Lines1!="_"]?
indx<- grep("Date",Lines2)
#If you need the `values` as separate columns
dat1<-data.frame(Lines2[rep(indx,diff(c(indx,length(Lines2)+1))-1)],read.table(text=Lines2[-indx],sep="|",stringsAsFactors=FALSE),stringsAsFactors=FALSE)
?names(dat1)[1]<- "Date_Lat_Long"
head(dat1,3)
#?????????????????????????????????????????????? Date_Lat_Long???????? V1? V2? V3
#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
#Or? need it in the format as specified by you:
dat2<- data.frame(Date_Lat_Long=Lines2[rep(indx,diff(c(indx,length(Lines2)+1))-1)],val=Lines2[-indx],stringsAsFactors=FALSE)
head(dat2,3)
#?????????????????????????????????????????????? Date_Lat_Long
#1 Date:10.09.19 Time:21:39:05? Lat:N62.37.18 Long:E018.07.32
#2 Date:10.09.19 Time:21:39:05? Lat:N62.37.18 Long:E018.07.32
#3 Date:10.09.19 Time:21:39:05? Lat:N62.37.18 Long:E018.07.32
#???????????????????? val
#1 0000-0010 |?? 28|?? 28
#2? 0010-0020|? 302|? 302
#3? 0020-0030|?? 42|?? 42
A.K.
----- Original Message -----
From: Niklas Larson <niklar at gmail.com>
To: r-help at r-project.org
Cc:
Sent: Tuesday, February 12, 2013 5:56 AM
Subject: [R] reorganize data
Hi R users,
Wonder if somebody could give me help on how to reshape this type of data:
-----------------------------------------------------------------------------------------------------------------------
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:39:05 Lat:N62.37.18 Long:E018.07.32 0030-0040|? ? 2|
? 2
Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0040-0050|? ? 1|
? 1
Date:10.09.19 Time:21:39:05 Lat:N62.37.18 Long:E018.07.32 0060-0070|? ? 1|
? 1
_
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0000-0010|? 32|
? 32
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0010-0020|? 334|
334
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0020-0030|? 27|
? 27
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0030-0040|? ? 2|
? 2
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0070-0080|? ? 1|
? 1
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0080-0090|? ? 1|
? 1
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0090-0100|? ? 1|
? 1
Date:10.09.19 Time:21:44:52 Lat:N62.38.00 Long:E018.09.07 0100-0110|? ? 1|
? 1
_
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0000-0010|? 63|
? 63
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0010-0020|? 303|
303
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0020-0030|? 85|
? 85
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0030-0040|? 12|
? 12
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0040-0050|? ? 4|
? 4
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0050-0060|? ? 1|
? 1
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0060-0070|? ? 4|
? 4
Date:10.09.19 Time:21:50:35 Lat:N62.38.42 Long:E018.10.40 0070-0080|? ? 1|
? 1
---------------------------------------------------------------------------------------------------------------------------------
Thanx
/Nic
??? [[alternative HTML version deleted]]
______________________________________________
R-help at 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.