Atributos físico-hídricos do solo sob práticas de manejo para cultivo de abacaxizeiro

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.

Format

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.

Source

Dados produzidos por Prof. Dr. Milson Evaldo Serafim.

Examples

library(latticeExtra)

ftable(xtabs(~prof + gesso + varie + cober, data = pineapple_swrc))
#>                                cober Millet No millet
#> prof      gesso varie                                
#> 0-0.05    0     IAC Fantastico           52        52
#>                 Imperial                 52        52
#>                 Perola                   52        52
#>                 Smooth cayenne           52        51
#>           4     IAC Fantastico           52        52
#>                 Imperial                 52        52
#>                 Perola                   52        52
#>                 Smooth cayenne           52        52
#> 0.05-0.20 0     IAC Fantastico           52        52
#>                 Imperial                 52        52
#>                 Perola                   52        52
#>                 Smooth cayenne           52        52
#>           4     IAC Fantastico           52        52
#>                 Imperial                 52        52
#>                 Perola                   52        52
#>                 Smooth cayenne           51        52
ftable(xtabs(~tens + varie, data = pineapple_swrc))
#>      varie IAC Fantastico Imperial Perola Smooth cayenne
#> tens                                                    
#> 0                      32       32     32             32
#> 1                      32       32     32             32
#> 2                      32       32     32             32
#> 4                      32       32     32             32
#> 6                      32       32     32             31
#> 8                      32       32     32             32
#> 9                      32       32     32             32
#> 10                     32       32     32             32
#> 33                     32       32     32             32
#> 66                     32       32     32             32
#> 100                    32       32     32             32
#> 300                    32       32     32             32
#> 1500                   32       32     32             31

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)