pineapple_swrc: Atributos físico-hídricos do solo sob práticas de manejo para...
In walmes/RDASC: Reproducible Data Analysis of Cientific Cooperations

Description Format Source Examples

Resultados de um experimento fatorial 2\times 2\times 4\times 2 que estudou o efeito da cobertura do solo e gessagem no cultivo de quatro variedades de abacaxi com amostras de solo de duas profundidades. O experimento foi instalado no delineamento de blocos completos ao acaso no Instituto Federal de Educação, Ciência e Tecnologia de Cáceres - MT.

Um data.frame com 1664 observações e 7 variáveis, em que

cober: Fator categórico que representa a presença ou ausência de cobertura do solo com milheto para cultivo do abacaxizeiro.
gesso: Fator categórico que representa a dose de gesso agrícola aplicada ao solo para o cultivo do abacaxizeiro, 0 e 4 ton ha^-1.
prof: Fator categórico que indentifica a profundidade do solo na qual foram retiradas amostras de solo indeformadas, 0-0.05 m e 0.05-0.2 m.
varie: Fator categórico que indenfica as variedades de abacaxizeiro cultivadas no experimento: Pérola, Smooth Cayenne, IAC - Fantástico and Imperial (nomes sem acentos no objeto).
bloc: Fator categórico que indentifica os blocos do experimento.
tens: Fator métrico que é a tensão matricial aplicada na amostra de solo para retirada de umidade. Foram aplicadas as tensões 1, 2, 4, 6, 8 e 10 kPa com funis de placa porosa e as tensões 33, 66, 100, 300, 1,500 kPa com a panela de Richards em amotras previamente saturadas.
umid: Umidade restante no solo ao receber a tensão matricial acima mencionada. Depois de alcançar o equilíbrio, cada amostra teve a massa determinada e foi submetida à proxima tensão.

Dados produzidos por Prof. Dr. Milson Evaldo Serafim.

library(latticeExtra)

ftable(xtabs(~prof + gesso + varie + cober, data = pineapple_swrc))
ftable(xtabs(~tens + varie, data = pineapple_swrc))

pineapple_swrc$gescobpro <- with(pineapple_swrc,
                                 interaction(as.integer(gesso),
                                             as.integer(cober),
                                             as.integer(prof)))

p1 <- xyplot(umid ~ tens | gescobpro + varie,
             data = pineapple_swrc,
             groups = bloc, type = "b",
             ylab = "Umidade do solo",
             xlab = "log 10 da tensão matricial",
             scales = list(x = list(log = 10)),
             xscale.components = xscale.components.log10ticks)
useOuterStrips(p1)