Gerrit Eichner Gerrit.Eichner at math.uni-giessen.de
Tue Jan 9 09:30:27 CET 2018

```Hi, Sibylle,

since you write '"mathematically" add', does

barplot(rbind(m\$trapcatch, w\$trapcatch))

do what you want (modulo layout details)?

Hth  --  Gerrit

---------------------------------------------------------------------
Dr. Gerrit Eichner                   Mathematical Institute, Room 212
gerrit.eichner at math.uni-giessen.de   Justus-Liebig-University Giessen
Tel: +49-(0)641-99-32104          Arndtstr. 2, 35392 Giessen, Germany
Fax: +49-(0)641-99-32109            http://www.uni-giessen.de/eichner
---------------------------------------------------------------------

Am 09.01.2018 um 09:19 schrieb Sibylle Stöckli:
> Dear R users
>
> aim
> Barplot of insect trap catches (y variable trapcatch) at one specific station (variable FiBL_Hecke) from week 1-52 ( x variable week).
> It works well using the function tapply (sum trapcatch per week, males and females not separated), however, I intend to separate the y variable trapcatch in males and females (variable m_w: m and w)
>
> problem
> I used the function "add" to merge two bar plots (males and females). Unfortunately the second barplot masks the first barplot.
>
> question
> Is there a function to "mathematically" add the values from both barplots with the aim the barplot presenting the total trap (males and females) catches per week?
>
>
>
> Hecke<-trap[trap\$station=="FiBL_Hecke",] # station = Hecke
> m<-Hecke[Hecke\$m_w=="m",] # male trap catches
> w<-Hecke[Hecke\$m_w=="w",] # female trap catches
>
> barplot(m\$trapcatch, ylab="Y", space=0.5, col=c("grey0"), ylim=c(0,450), las=2, cex.lab=0.9, cex.axis=0.9, cex.names=0.9)
> barplot(w\$trapcatch,space=0.5, add=TRUE, beside=FALSE, col=c("grey50"), xaxt="n", yaxt="n")
>
> Thanks a lot
> Sibylle
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help