# Trim white space (leading and/or trailing). Includes tabs.
trim <- function(str)gsub('^[[:space:]]+', '', gsub('[[:space:]]+$', '', str))
#
levels(SurveyData$direction_) <- trim(levels(SurveyData$direction_))
> Date: Thu, 14 Aug 2008 15:55:38 -0700
> From: [EMAIL PROTECTED]
> To: r-help@r-project.org
> Subject: Re: [R] Simple (?) subset problem
>
> BINGO!
>
>
> > str(SurveyData$direction_)
> Factor w/ 2 levels "EASTBOUND
> ",..: 1 1 1 1 2 2 1 1 2 1 ...
> > levels(SurveyData$direction_)
> [1] "EASTBOUND " "WESTBOUND
> "
> >
>
>
> Was my mistake in how I read the data?
>
> SurveyData <- read.spss("C:/Data/R/orange_delivery.sav",
> use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)
>
>
>
> That brings up 2 more questions:
>
> How do I "trim" the factor names? {or read them correctly}
>
> How do I write to a list the names of factors? {I have another factor
> with ~15 "levels" and I'm a REALLY poor typist}
>
>
>
> Thanks!
>
>
>
>
> Robert Farley
> Metro
> www.Metro.net
>
> -----Original Message-----
> From: Erik Iverson [mailto:[EMAIL PROTECTED]
> Sent: Thursday, August 14, 2008 15:47
> To: Farley, Robert
> Cc: r-help@r-project.org
> Subject: Re: [R] Simple (?) subset problem
>
> I can't tell exactly what's wrong, just check out the ?str and ?levels
> functions for some guidance.
>
> Farley, Robert wrote:
> > I can't figure out the syntax I need to get subset to work. I'm
> trying
> > to split my dataframe into two parts. I'm sure this is a simple
> issue,
> > but I'm stumped. I either get all or none of the original "rows".
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >> XTTable <- xtabs( ~ direction_ , SurveyData)
> >
> >> XTTable
> >
> > direction_
> >
> > EASTBOUND
> >
> > 345
> >
> > WESTBOUND
> >
> > 307
> >
> >> EBSurvey <- subset(SurveyData, direction_ == "EASTBOUND" )
> >
> >> XTTable <- xtabs( ~ direction_ , EBSurvey)
> >
> >> XTTable
> >
> > direction_
> >
> > EASTBOUND
> >
> > 0
> >
> > WESTBOUND
> >
> > 0
> >
> >> EBSurvey <- subset(SurveyData, direction_ = "EASTBOUND" )
> >
> >> XTTable <- xtabs( ~ direction_ , EBSurvey)
> >
> >> XTTable
> >
> > direction_
> >
> > EASTBOUND
> >
> > 345
> >
> > WESTBOUND
> >
> > 307
> >
> >> EBSurvey <- subset(SurveyData, direction_ == 1 )
> >
> >> XTTable <- xtabs( ~ direction_ , EBSurvey)
> >
> >> XTTable
> >
> > direction_
> >
> > EASTBOUND
> >
> > 0
> >
> > WESTBOUND
> >
> > 0
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > Robert Farley
> >
> > Metro
> >
> > 1 Gateway Plaza
> >
> > Mail Stop 99-23-7
> >
> > Los Angeles, CA 90012-2952
> >
> > Voice: (213)922-2532
> >
> > Fax: (213)922-2868
> >
> > www.Metro.net
> >
> >
> >
> >
> >
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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.
>
> ______________________________________________
> 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.
_________________________________________________________________
Contest
[[alternative HTML version deleted]]
______________________________________________
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.
