R/wyk_lfo.R

In mkdyderski/MKDgeobot: Some functions to maintain geobotanic data

#' @title Plot the structure of life forms
#' 
#'@description This function plots the structure of life forms in flora. 
#'Nanophanerophytes and megaphanerophytes were grouped as Phanerophytes (F), woody chamaephytes  and herbaceus chamaephytes were grouped as chamaephytes (C) 
#'T - terophytes, Hy - hydrophytes, G - geophytes, H - hemicryptophytes
#'@param co "eco" data.frame, containing flora and species' properties
#'@export
wyk_lfo=function(co){
  hgdf=c("H","M","T","G","Hy","C","Ch","N")
  lflf=c("H","F","T","G","Hy","C")
  hgfn=function(x)length(which(co$lf==hgdf[x]))
  ghil=(sapply(1:8, hgfn)/length(co$lf))*100
  ghil[2]=ghil[2]+ghil[8]
  ghil[6]=ghil[6]+ghil[7]
  df=data.frame(lf=factor(lflf, lev=lflf),sh=ghil[1:6])
  p=ggplot2:::ggplot(data=df,ggplot2:::aes(lf,sh))+ggplot2:::geom_bar(stat="identity")
  (p+ggplot2:::scale_y_continuous(name="Share [%]")+ggplot2:::scale_x_discrete("Life forms")
   +ggplot2:::theme(axis.text.x = ggplot2:::element_text(colour="black",size=12)))}