HI Burnette,
As this is continuation of the earlier thread, you could post it on the same
thread by cc: to rhelp.
Try this:
res1<-sapply(vec3,function(x) length(vec2New[grep(x,vec2New)]) )
dat1<-data.frame(res1,Name=names(vec3))
dat1$Name<-factor(dat1$Name,levels=c("early","mid","late","wknd"))
with(dat1,tapply(res1,list(Name),FUN=sum))
#early mid late wknd
# 0 1 4 6
#or
sapply(split(res1,names(vec3)),sum)
#early late mid wknd
# 0 4 1 6
A.K.
----- Original Message -----
From: "Crombie, Burnette N" <bcrom...@utk.edu>
To: arun <smartpink...@yahoo.com>
Cc:
Sent: Wednesday, June 19, 2013 3:55 PM
Subject: RE: [R] help with text patterns in strings
Arun, let me know if I should post this email separately, but it involves the
script from our previous conversation. I've been messing around as I think of
potential scenarios with my data and am unclear how I can recount vec3 after
assigning range names to the different days of the week. For this example, I
want my output to go from:
#Su M Tu W Th F Sa
# 2 0 0 1 1 3 4
to:
# early mid late wknd
# 0 1 4 6
Thanks for your help throughout, but, again, let me know if I should start a
new thread.
Burnette
##########################################
Begin script
##########################################
dat3<- read.csv("~/Rburnette/TextStringMatch.csv", stringsAsFactors=FALSE)
dat3
#respondent.ID response
# 1 Friday
# 2 Wednesday
# 3 Friday, saturday,Sunday
# 4 Saturday
# 5 Sat, sun
# 6 Th,F, Sa
# Rename the variable “response” to “Ans” to fit the script that’s already been
written
# fix(dat3) can be used to do this manually, but then you need to keep "dat3"
as the data frame, not "dat3edit"
# if not familiar, fix() generates a popup window like a spreadsheet that can
be edited, and character vs numeric property can be changed
# the data set being “fixed” is saved automatically upon closing, but I think
only within the current R session
# I think you need to redefine the fix() as a new object to keep the changes
outside the R session (need to test this)
##########################################
library(gdata)
dat3edit <- rename.vars(dat3,from="response", to="Ans")
dat3edit
#respondent.ID Ans
# 1 Friday
# 2 Wednesday
# 3 Friday, saturday,Sunday
# 4 Saturday
# 5 Sat, sun
# 6 Th,F, Sa
# get rid of the spaces embedded in text strings
##########################################
dat3edit$Ans2 <- gsub(" ","",dat3edit$Ans)
dat3edit$Ans2
# [1] "Friday" "Wednesday"
"Friday,saturday,Sunday" "Saturday"
# [5] "Sat,sun" "Th,F,Sa"
# split up multiple responses within an observation so they can be counted
separately
##########################################
vec2<-unlist(strsplit(dat3edit$Ans2,","))
vec2
# [1] "Friday" "Wednesday" "Friday" "saturday" "Sunday" "Saturday"
"Sat" "sun"
# [9] "Th" "F" "Sa"
#consistently format all (split up) responses to start with a capital letter
for more accurate matching to a “universal” response code created in the next
step
##########################################
library(Hmisc)
vec2New<-capitalize(vec2)
vec2New
# [1] "Friday" "Wednesday" "Friday" "Saturday" "Sunday" "Saturday"
"Sat" "Sun"
# [9] "Th" "F" "Sa"
#match capitalized data to a “universal” response code of choice
##########################################
vec3<- c("Su","M","Tu","W","Th","F","Sa")
sapply(vec3,function(x) length(vec2New[grep(x,vec2New)]) )
#Su M Tu W Th F Sa
# 2 0 0 1 1 3 4
#assign range names to vec3
##########################################
names(vec3) <- c("wknd","early","early","mid","late","late","wknd")
vec3
# wknd early early mid late late wknd
# "Su" "M" "Tu" "W" "Th" "F" "Sa"
______________________________________________
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.
