Does this questions help
http://stackoverflow.com/questions/1478532/changing-shapes-used-for-scale-shape-in-ggplot2
?
It looks like it does but I don't have time at the moment to work it out with
your code.
Good luck
John Kane
Kingston ON Canada
> -----Original Message-----
> From: anna.zakris...@su.se
> Sent: Wed, 18 Sep 2013 05:52:33 +0000
> To: r-help@r-project.org
> Subject: [R] ggplot2: changing shapes facet_grid - special case.
>
> Hi,
>
> I want to change my geom.point shapes in facet grid. I have tried all
> sorts of solutions, but for some reason none seem to work. Something
> overrides the "normal" codes. I am stuck.
> I have attached the data to the mail.
> I want organism to have different shapes and then add a legend to the
> plot.
> thank you for your help!
>
> Code:
>
> Anaalldata <- read.table(file = "Annadata_2007_9_ISO_long.txt", header
> = TRUE, dec = ".")
> str(Anaalldata)
> names(Anaalldata)
> library(hexbin)
> library(grid)
> library(ggplot2)
> Anaalldata <- within(Anaalldata, fweek <- factor(week))
> Anaalldata <- within(Anaalldata, fyear <- factor(year))
> Anaalldata <- na.exclude(Anaalldata)
> names(Anaalldata)
>
> Summisodata11 <- ddply(Anaalldata, .(station, organism), summarise,
> mean = mean(deltancy),
> sd = sd(deltancy))
>
> p <- ggplot(Anaalldata, aes(station, organism))+
>
> geom_errorbar(data = Summisodata11, aes(ymin = mean - sd, y = mean,
> ymax = mean + sd),
> size = 1, width = 0.1, color = "black")+
> geom_point(data = Summisodata11, aes(y = mean))+
> scale_shape(solid = F)+
> theme_bw() +
> theme(strip.background = element_blank())+
> xlab("Station") +
> ylab(expression(paste("",delta^{15}, "N")))+
> scale_y_continuous(limits=c(-3, 14), # Set y range
> breaks=-4:15*2) +
> geom_hline(yintercept=0, linetype=3) + #draws dotted line at 0
> theme(strip.text.x = element_text(size = 20, colour="black",
> family="serif", angle=00)) +
> theme(strip.text.y = element_text(size = 20, colour="black",
> family="serif", angle=00)) +
> theme(axis.text.x = element_text(size = 20, colour="black",
> family="serif", angle=00)) +
> theme(axis.text.y = element_text(size = 17, colour="black",
> family="serif", angle=00)) +
> theme(axis.title.x = element_text(size=20, colour="black",
> family="serif", angle=00))+
> theme(axis.title.y = element_text(size=20, colour="black",
> family="serif", angle=90))+
> facet_wrap( ~ year)
> p
>
> Anna Zakrisson Braeunlich
> PhD student
>
> Department of Ecology, Environment and Plant Sciences
> Stockholm University
> Svante Arrheniusv. 21A
> SE-106 91 Stockholm
> Sweden/Sverige
>
> Lives in Berlin.
> For paper mail:
> Katzbachstr. 21
> D-10965, Berlin - Kreuzberg
> Germany/Deutschland
>
> E-mail: anna.zakris...@su.se
> Tel work: +49-(0)3091541281
> Mobile: +49-(0)15777374888
> LinkedIn: http://se.linkedin.com/pub/anna-zakrisson-braeunlich/33/5a2/51b
>
> ><((((º>`•. . • `•. .• `•. . ><((((º>`•. . • `•. .• `•. .><((((º>`•. . •
> `•. .• `•. .><((((º>
> ______________________________________________
> 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.
____________________________________________________________
GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at
http://www.inbox.com/smileys
Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and most
webmails
______________________________________________
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.
