Displaying 1 result from an estimated 1 matches for "intervention_factor".
2013 Feb 15
1
Why no line? (ex. from Andy Filed book)
...download the small datafile, hiccups.dat, from this address:
http://www.sagepub.com/dsur/study/articles.htm
The script:
hiccupsData <- read.delim("Hiccups.dat", header = TRUE)
hiccups<-stack(hiccupsData)
names(hiccups)<-c("Hiccups","Intervention")
hiccups$Intervention_Factor<-factor(hiccups$Intervention, levels =
hiccups$Intervention)
line <- ggplot(hiccups, aes(Intervention_Factor, Hiccups))
line + stat_summary(fun.y = mean, geom = "point") + stat_summary(fun.y =
mean, geom = "line", aes(group=1),colour = "Red", linetype = "da...