Hi,
I have fixed width data that I would like to split into columns. Here is a
sanpshot of the data (actual data is a list object):
lst1Sub<-
"20131124GGG1 23.00"
"20131125GGG1 15.00"
"20131128GGG1 0.00"
"201312 1GGG1 0.00"
"201312 4GGG1 0.00"
"201312 7GGG1 10.00"
"20131210GGG1 0.00"
"20131213GGG1 0.00"
"20131216GGG1 0.00"
"20131219GGG1 0.00"
"20131222GGG1 0.00"
"20131225GGG1 0.00"
"20131228GGG1 0.00"
The following script will split the data into [Year Month Day Site
Precipitation]
------------------------------------------------------------------------------------------------------
library(stringr)
dateSite <- gsub("(.*G.{3}).*","\\1",lst1Sub);
dat1 <- data.frame(Year=as.numeric(substr(dateSite,1,4)),
Month=as.numeric(substr(dateSite,5,6)),
Day=as.numeric(substr(dateSite,7,8)),Site=substr(dateSite,9,12),Rain=substr(dateSite,13,18),stringsAsFactors=FALSE);
lst3 <- lapply(lst1Sub,function(x) {dateSite <- gsub("(.*G.{3}).*","\\1",x);
dat1 <-
data.frame(Year=as.numeric(substr(dateSite,1,4)),
Month=as.numeric(substr(dateSite,5,6)),Day=as.numeric(substr(dateSite,7,8)),Site=substr(dateSite,9,12),stringsAsFactors=FALSE);
Sims <-
str_trim(gsub(".*G.{3}\\s?(.*)","\\1",x));Sims[grep("\\d+-",Sims)] <-
gsub("(.*)([-][0-9]+\\.[0-9]+)","\\1 \\2",gsub("^([0-9]+\\.[0-9]+)(.*)","\\1
\\2", Sims[grep("\\d+-",Sims)]));
Sims1 <-
read.table(text=Sims,header=FALSE); names(Sims1) <- c("Precipitation");dat2 <-
cbind(dat1,Sims1)})
------------------------------------------------------------------------------------------------------------------------------------------
Problem: the above script deletes the first value of my precipitation values.
For example, after splitting, "20131124GGG1 23.00" becomes
2013 11 24 GGG1 3.00 INSTEAD of 2013 11 24 GGG1 23.00 (right answer).
Anything wrong with the string trimming? Is there another way to arrive at the
same answer?
Thanks,
AT.
______________________________________________
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.
