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