Experimento realizado em 10 pontos em solos de diferentes classes texturais de latossolo com quatro repetições, quando submetidos a diferentes conteúdos de água foi avaliado a pressão de preconsolidação.
Format
O objeto pedotrans é uma lista de três tabelas. O
elemento pedotrans$tex é um data.frame com 30
observações e 6 variáveis, descrevendo variáveis texturais do
solo, em que
unidNúmeros inteiros que identificam as unidades ou locais de amostragem de solo. Todos os solos foram classificados como latossolos.
metodoFator categórico que representa os métodos de análise textural do solo empregados para a determinação das frações argila, areia e silte. Os métodos laboratoriais foram Bouyoucos (Boy), pipeta (Pip) e ultrassom (Ultsom).
argVariável resposta que é a fração de argila do solo, g kg\(^{-1}\).
silVariável resposta que é a fração de silte do solo, g kg\(^{-1}\).
areVariável resposta que é a fração total de areia do solo, g kg\(^{-1}\).
argsilVariável resposta que é a soma das frações de argila e silte do solo, g kg\(^{-1}\).
O elemento pedotrans$pcc é um data.frame com 360
observações e 7 variáveis, em que
unidDescrito acima.
reptNúmeros inteiros que identificam as repetições que são amostras retiradas da mesma unidade amostral para determinação das variáveis.
tensFator de níveis métricos que é a tensão da água aplicada às amostras de solo indeformadas determinação da pressão de preconsolidação, em kPa.
ppcVariável resposta que é a pressão de preconsolidação, em kPa.
umidVariável resposta que é umidade volumétrica do solo, dm\(^3\) dm\(^{-3}\). Ela representa a capacidade de retenção de água no solo quando submetido as diferentes tensões (kPa). As tensões de 1 a 10 kPa foram realizadas em unidade de sucção, de 33 a 1500 kPa foram realizada com câmaras de pressão de Richards e o potencial matricial de 10000 kPa foi utilizado psicrômetro de termopar WP4-T.
dsVariável resposta que é a densidade do solo, kg m\(^{-3}\).
coVariável resposta que é o teor de carbono orgânico do solo, kg dm\(^{-3}\).
O elemento pedotrans$qui é um data.frame com 10
observações e 5 variáveis, em que
silicVariável resposta que é o teor de silício (SiO\(_2\)) do solo, g kg\(^{-1}\).
alumiVariável resposta que é o teor de alumínio (Al\(_2\)O\(_3\)) do solo, g kg\(^{-1}\).
ferroVariável resposta que é o teor de ferro (Fe\(_2\)O\(_3\)) do solo, g kg\(^{-1}\).
dpVariável resposta que é a densidade de partícula do solo, kg m\(^{-3}\).
Source
Josué Gomes (josuegd@gmail.com), Eduardo da Costa Severiano (eduardo.severiano@ifgoiano.edu.br) e Carla Eloize Carducci (elocarducci@hotmail.com).
Examples
#> List of 3 #> $ pcc:'data.frame': 360 obs. of 7 variables: #> ..$ unid: int [1:360] 1 1 1 1 1 1 1 1 1 1 ... #> ..$ rept: int [1:360] 1 1 1 1 1 1 1 1 1 2 ... #> ..$ tens: int [1:360] 0 1 2 6 10 33 100 1500 10000 0 ... #> ..$ ppc : num [1:360] NA 135 127 137 220 ... #> ..$ umid: num [1:360] 0.485 0.379 0.313 0.168 0.121 0.107 0.084 0.068 0.045 0.495 ... #> ..$ ds : num [1:360] NA 1.34 1.38 1.46 1.36 ... #> ..$ co : num [1:360] NA 3.5 3.2 3.6 3.3 3.1 3.1 3.3 3.2 NA ... #> $ tex:'data.frame': 30 obs. of 6 variables: #> ..$ unid : int [1:30] 1 1 1 2 2 2 3 3 3 4 ... #> ..$ metodo: Factor w/ 3 levels "Boy","Pip","Ultsom": 1 2 3 1 2 3 1 2 3 1 ... #> ..$ arg : num [1:30] 163 152 167 178 203 ... #> ..$ sil : num [1:30] 20 25 10 35 41.8 ... #> ..$ are : num [1:30] 817 823 823 787 756 ... #> ..$ argsil: num [1:30] 183 177 177 213 244 ... #> $ qui:'data.frame': 10 obs. of 5 variables: #> ..$ unid : int [1:10] 1 2 3 4 5 6 7 8 9 10 #> ..$ silic: int [1:10] 24 34 24 62 92 41 56 90 87 180 #> ..$ alumi: int [1:10] 67 85 113 147 213 173 204 179 205 344 #> ..$ ferro: int [1:10] 38 85 116 68 78 177 231 298 245 105 #> ..$ dp : num [1:10] 2.66 2.76 2.75 2.76 2.67 2.81 2.95 2.92 2.92 2.69xyplot(ppc ~ tens | as.factor(unid), groups = rept, data = pedotrans$pcc, jitter.x = TRUE, type = c("p", "a"), as.table = TRUE, xscale.components = xscale.components.logpower, xlab = "Logaritmo base 10 da tensão aplicada (kPa)", ylab = "Pressão de preconsolidação (kPa)", scales = list(x = list(log = 10)))xyplot(umid ~ tens | as.factor(unid), groups = rept, data = pedotrans$pcc, jitter.x = TRUE, type = c("p", "a"), as.table = TRUE, xscale.components = xscale.components.logpower, xlab = "Logaritmo base 10 da tensão aplicada (kPa)", ylab = expression("Umidade do solo" ~ (dm^{3} ~ dm^{-3})), scales = list(x = list(log = 10)))f <- as.formula( sprintf("%s ~ metodo", paste(names(pedotrans$tex)[-(1:2)], collapse = " + "))) xyplot(f, data = pedotrans$tex, outer = TRUE, groups = unid, type = c("p", "a"), as.table = TRUE, scales = list(y = "free"))
