Densidade, Porosidade e Resistência à Penetração do Solo para Manejos da Cultura do Eucalipto

O experimento base foi instalado no campo no mês de setembro de 2013, com o clone VM 01, (Eucalyptus urophylla \(\times\) Eucalyptus camaldulensis), em espaçamento de 3 \(\times\) 2 m. Cada unidade experimental foi constituida de 136 plantas, contendo 50 plantas úteis por parcela. O delineamento experimental é de blocos casualizados (DBC) com 6 repetições. O experimento possui dois (02) fatores de estudo, que são manejo do solo e profundidade do solo. Para o fator manejo são quatro (04) níveis de estudo e para o fator profundidade do solo foram nove (09) níveis. O levantamento destes dados foi feito em abril/maio de 2016, na lavoura com 2 anos de idade.

Format

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

manejo

Fator categórico de 4 níveis que representa o manejo de solo. BS - manejo conservacionista do solo, com cultivo de braquiária nas entrelinhas e adubação total (100%) no sulco de plantio; BL - manejo conservacionista do solo, com cultivo de braquiária nas entrelinhas e adubação total (100%) a lanço; BSL - manejo conservacionista do solo, com cultivo de braquiária nas entrelinhas e adubação metade (50%) no sulco de plantio e metade (50%) a lanço; S - manejo convencional do solo, sem o cultivo de braquiária na entrelinhas e adubação total (100%) no sulco de plantio.

cam

Fator numérico que representa o ponto inferior da camada do solo com 9 camadas de espessura 5 cm. As amostras de solo foram extraídas de forma continua no mesmo ponto geográfico ao longo do perfil do solo. Os níveis são: 0-0,05; 0,05-0,10; 0,10-0,15; 0,15-0,20; 0,20-0,25; 0,25-0,30; 0,30-0,35; 0,35-0,40; 0,40-0,45m.

bloc

Fator categórico que representa os blocos do experimento. Em cada bloco haviam 4 parcelas, cada uma com dimensões para caber 136 plantas no expaçamento 3 \(\times\) 2 m.

umid0

Umidade volumétrica (cm cm\(^{-3}\)), com amostra indeformada, do solo na tensão de 0 kPa (solo hidratado por capilaridade até a saturação).

umid6

Umidade volumétrica (cm cm\(^{-3}\)), com amostra indeformada, para solo submetido à tensão de 6 kPa (considerado umidade na capacidade de campo), .

rp

Resistência do solo à penetração (MPa).

dens

Densidade do solo (Mg m\(^{-3}\)).

A amostra indeformada proveniente do campo foi primeiramente submetida à hidratação para determinação das umidades (em 0 e 6 kPa) e depois foi feita determinação da resistência à penetração que deforma a amostra. Por fim, foi feita a determinação da densidade do solo que não querer amostra indeformada.

Source

Elyson Thiago de Souza Florentim (bolsista FAPEMAT), Helen Caroline R. Correa (voluntária), Milson Evaldo Serafim (orientador, milson.serafim@cas.ifmt.edu.br).

Examples

library(lattice)
library(latticeExtra)

data(rp_eucal)
str(rp_eucal)
#> 'data.frame':	216 obs. of  7 variables:
#>  $ manejo: Factor w/ 4 levels "BS","BL","BSL",..: 1 1 1 1 1 1 1 1 1 1 ...
#>  $ cam   : num  5 5 5 5 5 5 10 10 10 10 ...
#>  $ bloc  : Factor w/ 6 levels "I","II","III",..: 1 2 3 4 5 6 1 2 3 4 ...
#>  $ umid0 : num  0.36 0.37 0.36 0.33 0.42 0.36 0.33 0.34 0.35 0.32 ...
#>  $ umid6 : num  0.26 0.23 0.19 0.19 0.24 0.21 0.2 0.18 0.16 0.25 ...
#>  $ rp    : num  1.72 1.74 1.81 1.02 0.77 2.06 1.12 1.28 0.86 1.5 ...
#>  $ dens  : num  1.68 1.68 1.62 1.58 1.5 1.63 1.65 1.67 1.48 1.64 ...

xtabs(~manejo + cam, data = rp_eucal)
#>       cam
#> manejo 5 10 15 20 25 30 35 40 45
#>    BS  6  6  6  6  6  6  6  6  6
#>    BL  6  6  6  6  6  6  6  6  6
#>    BSL 6  6  6  6  6  6  6  6  6
#>    S   6  6  6  6  6  6  6  6  6

useOuterStrips(
    xyplot(umid0 + umid6 + rp + dens ~ cam | manejo,
           outer = TRUE,
           scales = list(y = list(relation = "free")),
           data = rp_eucal,
           jitter.x = TRUE,
           type = c("p", "smooth")))

splom(rp_eucal[, c("cam", "umid0", "umid6", "rp", "dens")],
      groups = rp_eucal$manejo,
      type = c("p", "r"))