labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Experimento instalado e conduzido por Walmes M. Zeviani, estudante do 4 ano de Agronomia da UFGD na <c3><a9>poca, na Fazenda Dinorah em Jate<c3><ad> - MS na safra de inverno de 2006. No experimento foram avaliadas doses de cama de frango como fonte de aduba<c3><a7><c3><a3>o org<c3><a2>nica na cultura do milho. Tr<c3><aa>s fatores foram estudados: forma de aplica<c3><a7><c3><a3>o da cama de frango, quantidade aplicada e complementa<c3><a7><c3><a3>o com aduba<c3><a7><c3><a3>o mineral (NPK). Os tr<c3><aa>s fatores combinados resultam em um arranjo fatorial incompleto devido a aus<c3><aa>ncia de uma cela experimental que n<c3><a3>o era de interesse. O experimento foi instalado em blocos para controlar para o efeito da declividade do terreno.

Na figura acima tem-se a delimita<c3><a7><c3><a3>o entre algumas parcelas (contorno linhas retas brancas com v<c3><a9>rtices nas estacas).

Um data.frame com 60 observa<c3><a7><c3><b5>es e 11 vari<c3><a1>veis.

aplic: Forma de aplica<c3><a7><c3><a3>o da cama de frango: incorporada ao solo com uma grade niveladora leve e semi aberta ou <c3><a0> lan<c3><a7>o na superf<c3><ad>cie sem incorpora<c3><a7><c3><a3>o.
npk: Quantidade de adubo mineral (NPK, kg ha^{-1}) aplicado na linha quando feita a semeadura.
cama: Quantidade aplicada de cama de frango (ton ha^{-1}) como fonte org<c3><a2>nica de aduba<c3><a7><c3><a3>o.
bloco: Identifica os blocos do experimento que foram utilizados para controlar principalmente a declividade do terreno onde foram demarcadas as parcelas.
altes: Altura das espigas (cm) em rela<c3><a7><c3><a3>o ao n<c3><ad>vel do solo, obtida com a m<c3><a9>dia da medida em 5 plantas ao acaso dentro da <c3><a1>rea <c3><ba>til da parcela.
altpl: Altura das plantas (cm) em rela<c3><a7><c3><a3>o ao n<c3><ad>vel do solo, obtida com a m<c3><a9>dia da medida em 5 plantas ao acaso dentro da <c3><a1>rea <c3><ba>til da parcela.
maspl: Massa fresca m<c3><a9>dia de uma planta, obtida com a m<c3><a9>dia da medida em 5 plantas ao acaso dentro da <c3><a1>rea <c3><ba>til da parcela.
mases: Massa de espiga com casca (g), obtida com a m<c3><a9>dia da medida de todas as espigas colhidas na <c3><a1>rea <c3><ba>til da parcela.
masgr: Massa de gr<c3><a3>os por espiga (g), obtida ao debulhar a espiga pesar os gr<c3><a3>os, tamb<c3><a9>m corresponde <c3><a0> m<c3><a9>dia da medida de todas as espigas colhidas na <c3><a1>rea <c3><ba>til da parcela.
prod: Produ<c3><a7><c3><a3>o de gr<c3><a3>os de milho (kg ha^{-1}).
p100: Peso de 100 gr<c3><a3>os (g).

Arquivo pessoal de Walmes M. Zeviani.

library(lattice)

data(Dinorah)

xyplot(prod ~ cama | aplic, data = Dinorah,
       groups = npk, type = c("p", "a"),
       layout = c(NA, 1),
       auto.key = list(title = expression("NPK"~(kg~ha^{-1})),
                       cex.title = 1, columns = 2),
       strip = strip.custom(strip.names = TRUE, var.name = "Aplica<c3><a7><c3><a3>o"),
       xlab = expression("Aduba<c3><a7><c3><a3>o com cama de frango"~(ton~ha^{-1})),
       ylab = expression("Produ<c3><a7><c3><a3>o milho"~(ka~ha^{-1})))

ftable(xtabs(~aplic + cama + npk, data = Dinorah))

library(reshape2)

din <- melt(data = Dinorah,
            id.vars = names(Dinorah)[1:4],
            measure.vars = names(Dinorah)[-(1:4)],
            value.name = "valor",
            variable.name = "resp")
str(din)

xyplot(valor ~ cama | resp, data = din,
       groups = interaction(aplic, npk, sep = " : "),
       type = c("p", "a"), as.table = TRUE,
       auto.key = list(title = expression(
                           "Forma de aplica<c3><a7><c3><a3>o : NPK"~(kg~ha^{-1})),
                       cex.title = 1, columns = 2),
       scales = list(y = "free"),
       xlab = expression(
           "Aduba<c3><a7><c3><a3>o com cama de frango"~(ton~ha^{-1})),
       ylab = "Valor observado")