data(standtabCoihue2)
df<-standtabCoihue2
df<-df[-nrow(df),]
# Diameter distribution plot
barplot(df$nha, legend = TRUE, beside = TRUE, las=1,
names.arg = as.numeric(df$cd),
ylab="Densidad (arb/ha)",xlab="Clase diametrica (cm)")
abline(h=0)
Run the code above in your browser using DataLab