Hi Anna,
It's not clear to me what you are trying to do. If you want different
shapes for different organisms then you should map organism to shape,
e.g.,
geom_point(data = Summisodata11, aes(y = mean, shape=organism))
Is that what you are looking for? If not please restate the question.
Best,
Ista
On Wed, Sep 18, 2013 at 1:52 AM, Anna Zakrisson Braeunlich
<anna.zakris...@su.se> wrote:
> 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.
>
______________________________________________
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.
