diff --git a/R_code.Rmd b/R_code.Rmd index 8ddbe1d3f1a1d29e1ea3b5863a8e2c6b8a583b73..4b010c500db38d0fabde7d73519517f13baf80dc 100644 --- a/R_code.Rmd +++ b/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"),