Hi,
I would like to thank you for a great package and for all help I have recieved
in the past. To my question:
I have a plot where I have used facet_grid. I have factor: station (B1, BY31,
H2) and factor: year (2007, 2008). The plot has two "plot panels" empty as
there are no combinations H2:2007 and BY31:2008. For my own data, there is only
one panel empty (I am bad at making appropriate dummy data as I am quite new to
this) and I am not allowed to publish it like this. The empty panel needs to
be removed.
I have tried loads of things like removing H2:2007 and BY31:2008 by using:
mydata_truncated <- mydata[
mydata$
station != "BY31" |
mydata$Year !="2008", ]
and have tried facet_grid(year~station, scales = "fixed", drop=TRUE) this
doesn't work as all factors are used, it is only a combination of factor levels
that need to go.
I would be extremely grateful for any help.
The script:
mydata<- data.frame(week = factor(rep(c("19", "21", "23", "25"), each = 10*3)),
station = factor(rep(c("BY31", "B1", "H2"), each = 40)),
year = factor(rep(c("2007", "2008"), each = 60)),
organism = factor(rep(c("zpl", "ses", "cy"), each = 40)),
values = rnorm(120, mean = rep(c(0, 3, 15), each = 10),
sd = rep(c(1, 3, 6), each = 10)))
p <- ggplot(mydata,aes(week,values))+
facet_grid(year~station, scales = "fixed", drop=TRUE)+ #drop=TRUE does not
work as all factors are used
scale_shape_manual(values = 1:3) +
geom_point(mapping=aes(shape=factor(organism)))+
theme_bw() +
theme(strip.background = element_blank()) +
ggtitle("this plot is ugly but ignore that")+
xlab("my x-axis stuff")+
ylab("my y-axis stuff")+
theme(legend.title=element_blank(), legend.key =
element_blank())
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
><((((º>`. . `. . `. . ><((((º>`. . `. . `. .><((((º>`. . `. .
>`. .><((((º>
[[alternative HTML version deleted]]
______________________________________________
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.
