# 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.

Reply via email to