labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Conjunto de 38 ensaios fatoriais de 3^{3} com N, P e K, em cana-de-a<c3><a7><c3><ba><c3><a7>ar, com dados de cana-planta e soca, obtidos por Strauss (1951). O nutriente foi aplicado nas doses de zero, 60 e 120 kg.ha^{-1} de P_2O_5, s<c3><b3> na cana-planta.

Um data.frame com 228 observa<c3><a7><c3><b5>es e 4 vari<c3><a1>veis, em que

safra: Fator de 2 n<c3><ad>veis qualitativos, que as safras da cana-planta e da cana-soca.
P: Fator de 3 n<c3><ad>veis qualitativos, que s<c3><a3>o as doses de f<c3><b3>sforo (P), em kg ha^{-1} de P_2O_5.
prod: M<c3><a9>dias de produ<c3><a7><c3><a3>o nas parcelas de 38 ensaios de aduba<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car.
ue: Inteiro que identifica a unidade experimental que foi medida na safra da planta-cana e cana-soca.

PIMENTEL-GOMES (2009), Tabela 13.5.1, p<c3><a1>g. 259.

library(lattice)

data(PimentelTb13.5.1)
str(PimentelTb13.5.1)

xyplot(prod ~ P,
       groups = safra,
       auto.key = list(title = "Safra", cex.title = 1,
                       columns = 2),
       type = c("a", "p"),
       data = PimentelTb13.5.1,
       ylab = expression("Produ<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car"~(ton~ha^{-1})),
       xlab = expression(P[2]*O[5]~(kg~ha^{-1})))

da <- reshape2::dcast(data = PimentelTb13.5.1,
                      formula = ue ~ safra,
                      value.var = "prod")
str(da)

da <- merge(da, PimentelTb13.5.1[, c("ue", "P")],
            by = "ue", all.x = TRUE, all.y = FALSE)

xyplot(soca ~ planta, groups = P, data = da,
       type = c("p", "r"), aspect = "iso", grid = TRUE,
       xlab = "Produ<c3><a7><c3><a3>o da cana-planta",
       ylab = "Produ<c3><a7><c3><a3>o da cana-soca",
       auto.key = list(title = expression(P[2]*O[5]~(kg~ha^{-1})),
                       cex.title = 1.1, columns = 3))