rust_peach: Progresso da Ferrugem em Folhas de Pessegueiro
In walmes/RDASC: Reproducible Data Analysis of Cientific Cooperations

Description Format Source Examples

Avaliação semanal da severidade (% de lesão no limbo foliar por meio de escala) da ferrugem (Tranzschelia discolor) em folhas de pessegueiro (Prunus persica). Foram marcados 2 ramos por árvore (em lados opostos na planta) contendo 10 folhas marcadas em cada um. Foram testadas também 7 doses de nitrogênio em combinação com tratamentos de poda. O delineamento foi de blocos casualizados e o ensaio foi repetido em 3 safras no mesmo pomar. As plantas foram as mesmas nas 3 safras, no entanto, os ramos foram diferentes.

Um data.frame com 30240 linhas e 8 colunas, em que

safra: Fator categórico que representa cada uma das 3 safras nas quais o experimento foi conduzido.
dia: Dia de avaliação. Foi do dia 0 ao dia 84, com intervalos de 7 dias, perfazento um total de 12 níveis.
folha: Folhas marcadas em 2 ramos por árvore (em lados opostos). As foram eram observadas a cada 7 dias, portanto, os registros em uma folha são no máximo 12 de forma longitudinal. A indentificação das folhas é única.
nitro: Nitrogênio aplicado em 7 doses (0, 40, 80, 120, 160, 200, 240 kg ha^{-1}.
lado: Fator que representa o lado da planta no qual estava o ramo, sendo que 1 = sul e 2 = norte.
poda: Números de poda aplicado nas plantas, sedo que 1 = 1 poda e 2 = 4 podas.
bloco: Fator categórico que representa os blocos do experimento.
sever: Severidade medida ao longo do tempo em cada uma das folhas, em porcentagem de área com lesão de acordo com a escala diagramática adotada. Depois que a folha cai do ramo, não há como determinar a severidade, então os valores perdidos para as datas porteriores a queda da folha são representados com NA.

Dolinski, M. A. (http://lattes.cnpq.br/5554247933578584), May De Mio, L. L. (http://lattes.cnpq.br/5306520242222948). Universidade Federal do Paraná, SCA, Laboratório de Epidemiologia para Manejo Integrado de Doenças em plantas (LEMID).

data(rust_peach)
str(rust_peach)

# Combinações entre poda x nitrogênio em cada safra.
ftable(xtabs(~safra + poda + nitro, data = rust_peach))

# Combinações entre bloco x dia em cada safra.
ftable(xtabs(~safra + bloco + dia, data = rust_peach))

library(lattice)
library(latticeExtra)

# Ver resultados da safra 1.
useOuterStrips(
    xyplot(sever ~ dia | nitro + bloco,
           groups = poda,
           data = subset(rust_peach, safra == "1"),
           type = c("p", "smooth"),
           xlab = "Dia de avaliação",
           ylab = "Severidade (%)"))

xyplot(sever ~ dia | folha, type = "l",
       data = subset(rust_peach, safra == "1" &
                                 bloco == "I" &
                                 nitro == 0 &
                                 poda == 1 &
                                 lado == 1),
       xlab = "Dia de avaliação",
       ylab = "Severidade (%)")

# As 10 folhas de um ramo.
subset(rust_peach, safra == "1" &
                   bloco == "I" &
                   nitro == 0 &
                   poda == 1 &
                   lado == 1)