thr3ads.net - R help - [R] ggplot2: changing strip text in facet_grid and a legend text problem [Sep 2013]

If this information is useful, please help other people find it:
Share via:

Anna Zakrisson Braeunlich

2013-Sep-18 11:29 UTC

[R] ggplot2: changing strip text in facet_grid and a legend text problem

Hi,

Dummy data script and scripts are attached below.

I would like to change the plot to look like this:
https://www.google.se/search?q=facet_grid&bav=on.2,or.r_qf.&bvm=bv.52288139,d.Yms&biw=1454&bih=704&dpr=1&pdl=300&um=1&ie=UTF-8&hl=sv&tbm=isch&source=og&sa=N&tab=wi&ei=vY05Uu3vD8aHtAawsYDIBw#facrc=_&imgdii=_&imgrc=IyGjjRic2YJAsM%3A%3BzWmfhhY7LA1p2M%3Bhttps%253A%252F%252Fgithub-camo.global.ssl.fastly.net%252Fc18764797ada04cb8006a2bdaa962c65bfd9bf09%252F687474703a2f2f6661726d362e737461746963666c69636b722e636f6d2f353333332f373036363335373537335f336537313031326534655f6f2e706e67%3Bhttps%253A%252F%252Fgithub.com%252Fcboettig%252Fwrightscape%252Fblob%252Fmaster%252Finst%252Fexamples%252Flabrid_par_bootstrap.md%3B576%3B360

i.e. I want the panes labelled on top and on the right side of the graph. I want
however, the text horizontally on the right side.

I do not understand why facet_grid plotted it this way for me. Why?

I would also like to change the text in the legend of this plot.
I have tried several solutions including:

scale_fill_discrete(guide = guide_legend(), labels=c("cyanobacteria",
"zooplankton"))
scale_fill_discrete(name="organism",
                        breaks=c("cyano", "seston"),
                        labels=c("cyanobacteria", "seston"))

for some reason nothing works. Ideas?

mydata <- data.frame(
  D15N = c(runif(100, min = -2), runif(100), runif(100, max = 2), runif(100)),
  year = rep(c('2007', '2008'), each = 100),
  organism = rep(c('cyano', 'seston'), each = 200),
  station = sample(c('B1', 'H2', 'H3', 'H4'),
400, replace = TRUE),
  week = sample(c('19', '21', '23', '25'), 400,
replace = TRUE))


names(mydata)
head(mydata)
str(mydata)


Summdata <- ddply(mydata, .(week, organism, year, station), summarise, mean =
mean(D15N),
                       sd = sd(D15N))

p <- ggplot(mydata, aes(x = week, y = D15N)) +
  (mapping=aes(group=interaction(week, organism))) +
  facet_wrap(year~ station) +
  theme_bw() +
  geom_errorbar(data = Summdata, aes(ymin = mean - sd, y = mean,
                                          ymax = mean + sd),
                size = 1, width = 0.05, color = "black")+
  theme(strip.background = element_blank())+
  ylab(expression(paste("",delta^{15}, "N")))+
  xlab("Week") +
  geom_line(stat="summary", fun.y = "mean",
            mapping=aes(linetype=organism, group=organism))+ #must add jitter if
using this
  geom_point(stat="summary", fun.y = "mean", size=2,
mapping=aes(shape=organism))+
  scale_shape(solid = FALSE) + #must be unfilled
  geom_hline(yintercept=0, linetype=3) + #draws dotted line at 0
  theme(strip.text.x = element_text(size = 16, colour="black",
family="serif", angle=00)) +
  theme(strip.text.y = element_text(size = 16, colour="black",
family="serif", angle=00)) +
  theme(axis.text.x = element_text(size = 16, colour="black",
family="serif", angle=00)) +
  theme(axis.text.y = element_text(size = 16, colour="black",
family="serif", angle=00)) +
  theme(axis.title.x = element_text(size=16, colour="black",
family="serif", angle=00))+
  theme(axis.title.y = element_text(size=16, colour="black",
family="serif", angle=90)) +
  scale_fill_discrete(guide = guide_legend(),
labels=c("cyanobacteria", "zooplankton"))

p

with kind regards


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.zakrisson@su.se
Tel work: +49-(0)3091541281
Mobile: +49-(0)15777374888
LinkedIn: http://se.linkedin.com/pub/anna-zakrisson-braeunlich/33/5a2/51b
><((((º>`•. . • `•. .• `•. . ><((((º>`•. . • `•. .• `•.
.><((((º>`•. . • `•. .• `•. .><((((º>
	[[alternative HTML version deleted]]

Ista Zahn

2013-Sep-18 13:52 UTC

head link

[R] ggplot2: changing strip text in facet_grid and a legend text problem

Hi Anna,

See in line below.

On Wed, Sep 18, 2013 at 7:29 AM, Anna Zakrisson Braeunlich
<anna.zakrisson at su.se> wrote:> Hi,
>
> Dummy data script and scripts are attached below.
>
> I would like to change the plot to look like this:
>
https://www.google.se/search?q=facet_grid&bav=on.2,or.r_qf.&bvm=bv.52288139,d.Yms&biw=1454&bih=704&dpr=1&pdl=300&um=1&ie=UTF-8&hl=sv&tbm=isch&source=og&sa=N&tab=wi&ei=vY05Uu3vD8aHtAawsYDIBw#facrc=_&imgdii=_&imgrc=IyGjjRic2YJAsM%3A%3BzWmfhhY7LA1p2M%3Bhttps%253A%252F%252Fgithub-camo.global.ssl.fastly.net%252Fc18764797ada04cb8006a2bdaa962c65bfd9bf09%252F687474703a2f2f6661726d362e737461746963666c69636b722e636f6d2f353333332f373036363335373537335f336537313031326534655f6f2e706e67%3Bhttps%253A%252F%252Fgithub.com%252Fcboettig%252Fwrightscape%252Fblob%252Fmaster%252Finst%252Fexamples%252Flabrid_par_bootstrap.md%3B576%3B360
>
> i.e. I want the panes labelled on top and on the right side of the graph. I
want however, the text horizontally on the right side.
>
> I do not understand why facet_grid plotted it this way for me. Why?
Because you did not use facet_grid. Change

  facet_wrap(year~ station) +

to

  facet_grid(year~ station) +
>
> I would also like to change the text in the legend of this plot.
> I have tried several solutions including:
>
> scale_fill_discrete(guide = guide_legend(),
labels=c("cyanobacteria", "zooplankton"))
> scale_fill_discrete(name="organism",
>                         breaks=c("cyano", "seston"),
>                         labels=c("cyanobacteria",
"seston"))
>
> for some reason nothing works. Ideas?
It doesn't work because you have not mapped anything to fill.
Presumably you want

    scale_shape_discrete(name="organism",
                        breaks=c("cyano", "seston"),
                        labels=c("cyanobacteria", "seston"),
                         solid=FALSE) +
    scale_linetype_discrete(name="organism",
                        breaks=c("cyano", "seston"),
                        labels=c("cyanobacteria", "seston"))

Best,
Ista
>
> mydata <- data.frame(
>   D15N = c(runif(100, min = -2), runif(100), runif(100, max = 2),
runif(100)),
>   year = rep(c('2007', '2008'), each = 100),
>   organism = rep(c('cyano', 'seston'), each = 200),
>   station = sample(c('B1', 'H2', 'H3',
'H4'), 400, replace = TRUE),
>   week = sample(c('19', '21', '23', '25'),
400, replace = TRUE))
>
>
> names(mydata)
> head(mydata)
> str(mydata)
>
>
> Summdata <- ddply(mydata, .(week, organism, year, station), summarise,
mean = mean(D15N),
>                        sd = sd(D15N))
>
> p <- ggplot(mydata, aes(x = week, y = D15N)) +
>   (mapping=aes(group=interaction(week, organism))) +
>   facet_wrap(year~ station) +
>   theme_bw() +
>   geom_errorbar(data = Summdata, aes(ymin = mean - sd, y = mean,
>                                           ymax = mean + sd),
>                 size = 1, width = 0.05, color = "black")+
>   theme(strip.background = element_blank())+
>   ylab(expression(paste("",delta^{15}, "N")))+
>   xlab("Week") +
>   geom_line(stat="summary", fun.y = "mean",
>             mapping=aes(linetype=organism, group=organism))+ #must add
jitter if using this
>   geom_point(stat="summary", fun.y = "mean", size=2,
mapping=aes(shape=organism))+
>   scale_shape(solid = FALSE) + #must be unfilled
>   geom_hline(yintercept=0, linetype=3) + #draws dotted line at 0
>   theme(strip.text.x = element_text(size = 16, colour="black",
family="serif", angle=00)) +
>   theme(strip.text.y = element_text(size = 16, colour="black",
family="serif", angle=00)) +
>   theme(axis.text.x = element_text(size = 16, colour="black",
family="serif", angle=00)) +
>   theme(axis.text.y = element_text(size = 16, colour="black",
family="serif", angle=00)) +
>   theme(axis.title.x = element_text(size=16, colour="black",
family="serif", angle=00))+
>   theme(axis.title.y = element_text(size=16, colour="black",
family="serif", angle=90)) +
>   scale_fill_discrete(guide = guide_legend(),
labels=c("cyanobacteria", "zooplankton"))
>
> p
>
> with kind regards
>
>
> 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.zakrisson at su.se
> Tel work: +49-(0)3091541281
> Mobile: +49-(0)15777374888
> LinkedIn: http://se.linkedin.com/pub/anna-zakrisson-braeunlich/33/5a2/51b
>
>><((((?>`?. . ? `?. .? `?. . ><((((?>`?. . ? `?. .? `?.
.><((((?>`?. . ? `?. .? `?. .><((((?>
>
>         [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help at 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.
>

Apparently Analagous Threads

Search for more possibly parallel threads

R help - Sep 2013 - ggplot2: changing strip text in facet_grid and a legend text problem

[R] ggplot2: changing strip text in facet_grid and a legend text problem

[R] ggplot2: changing strip text in facet_grid and a legend text problem

Apparently Analagous Threads