esaligna=read.table("esaligna.csv", head=T, sep=",")

plot(esaligna$dap, esaligna$ht, xlab = "DAP (cm)", ylab = "Altura (m)", bty = "l", 
     tcl = "0.3", main = "Relação DAP-Altura", cex.lab = 1.25, cex.main=2)