Usando este script: total.samples.rr <- sum(abun.hab.mat.rr) sample.rare.rr <- rarefy(abun.hab.mat.rr, total.samples.rr, se = TRUE, MARGIN = 1) par(mar = c(4.5, 4.5, 0.1, 1)) # bottom, left, top, right. rarecurve(abun.hab.mat.rr, step = 1, total.samples.rr, xlab = “Sample Size”, ylab = “Species”, label = TRUE, col = c(1:10)) obtengo una gráfica así, dónde el tamaño de las etiquetasRead more