revision

R_code.Rmd

@@ -5024,14 +5024,14 @@ scale_fill_manual (values=c("Landscape"="red3", "T"="white", "S"="white", "S+T"=
 labels=c("Landscape", "Transects ", "Subjective",  "Subjective and Transects", "Subjective and one Transect"), drop=TRUE) +labs(x="Values", y="Density")
 ```
 
-``` {r echo=FALSE, eval=FALSE, tidy=TRUE, message=FALSE, fig.height=7, fig.width=15}
+``` {r echo=FALSE, eval=TRUE, tidy=TRUE, message=FALSE, fig.height=7, fig.width=15}
 title = "Canopy density 10-20m"
 theme_update(axis.text.y=element_text(size=10, face="bold", colour="Black"), axis.text.x=element_text(size=10, face="bold", colour="Black"), axis.ticks.x = element_blank(), axis.line.x = element_blank(), axis.title.x=element_text(size=10, face="bold", colour="Black"), plot.title = element_text(hjust = 0.5, size = 25, face = "bold", colour = "black"), strip.text.x = element_text(size = 10, face = "bold", colour = "Black"))
 ggplot(env, aes(x=can_10_20_cropped, group= Type, colour = Type, fill=Type)) + ggtitle(title) +
   geom_density(position="identity", alpha=0.2) +  scale_size_manual(values=c(10, 1,1,1)) + scale_color_manual(values=c("Landscape"="red3", "T"="royalblue","S"="seagreen4", "S+1T"="orange", "S+T"="yellow"), 
                                                                                                                                                                                                                     name="Landscape and sampling design",
                                                                                                                                                                                                                     breaks=c("Landscape", "T", "S","S+T", "S+1T"),
-                                                                                                                                                                                                                    labels=c("Landscape", "Transects ", "Subjective",  "Subjective and Transects", "Subjective and one Transect"), , drop=TRUE) +
+                                                                                                                                                                                                                    labels=c("Landscape", "Transects ", "Subjective",  "Subjective and Transects", "Subjective and one Transect"),  drop=TRUE) +
   scale_fill_manual (values=c("Landscape"="red3", "T"="white", "S"="white", "S+T"="white", "S+1T"="white" ), name="Landscape and sampling design",
                                                                                                                                                                                                                      breaks=c("Landscape", "T", "S","S+T", "S+1T"),