[R] Help in splitting the records

[David L Carlson]

Another approach is to use gsub() followed by read.table():

> x <- c("qwer$$12$$qwre", "ewrtr$7789$ewwe")
> x <- gsub("\\$+", "\\$", x)
> x <- read.table(text=x, sep="$", stringsAsFactors=FALSE)
> x
     V1   V2   V3
1  qwer   12 qwre
2 ewrtr 7789 ewwe

----------------------------------------------
David L Carlson
Associate Professor of Anthropology
Texas A&M University
College Station, TX 77843-4352



> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Bert Gunter
> Sent: Monday, November 26, 2012 1:00 PM
> To: Sarah Goslee
> Cc: r-help
> Subject: Re: [R] Help in splitting the records
> 
> Sarah:
> 
> You may not agree, but the following avoids the IMHO ugly rbind() and
> separate conversion to numeric by using scan():
> 
> ## first, as before..
> 
> x <- c("qwer$$12$$qwre", "ewrtr$7789$ewwe")
> x <- strsplit(x, "\\$+")
> 
> ## Then, instead ...
> 
> x.convert <-
> data.frame(scan(textConnection(unlist(x)),wh=list("a",0,"a")))
> 
> ## You'll need to replace with suitable column names, of course
> 
> Cheers,
> Bert
> 
> 
> On Mon, Nov 26, 2012 at 9:00 AM, Sarah Goslee
> <sarah.goslee at gmail.com>wrote:
> 
> > You state that you want "$$$" as the separator, but your example has
> > "$$" and "$" so  I'm assuming an indeterminate number of consecutive
> > $.
> >
> > x <- c("qwer$$12$$qwre", "ewrtr$7789$ewwe")
> > x <- strsplit(x, "\\$+")
> > x <- do.call(rbind, x)
> > x <- data.frame(x, stringsAsFactors = FALSE)
> > x$X2 <- as.numeric(x$X2)
> >
> > I've also made some assumptions about what you want the output to be
> > like, since you didn't specify, and broken it into as many steps as
> > possible so that you can look at what functions I used and read the
> > help files.
> >
> > Sarah
> >
> > On Mon, Nov 26, 2012 at 5:51 AM, arunkumar1111 <akpbond007 at gmail.com>
> > wrote:
> > > Hi
> > >
> > > I have set of records seperated by a separator say "$$$" i want to
> get
> > the
> > > values in a dataframe.
> > >
> > > eq
> > >
> > > qwer$$12$$qwre
> > > ewrtr$7789$ewwe
> > >
> > > I want the output as\
> > >
> > > V1       V2    V3
> > > qwer 12 qwre
> > > ewrtr  7789 ewwwe
> > >
> > >
> > >
> > > Please help me
> > >
> > >
> >
> >
> > --
> > Sarah Goslee
> > http://www.functionaldiversity.org
> >
> > ______________________________________________
> > 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.
> >
> 
> 
> 
> --
> 
> Bert Gunter
> Genentech Nonclinical Biostatistics
> 
> Internal Contact Info:
> Phone: 467-7374
> Website:
> http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-
> biostatistics/pdb-ncb-home.htm
> 
> 	[[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.