AndradeTb2.1: Competi<c3><a7><c3><a3>o de H<c3><ad>bridos de Milho

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Um pesquisador avaliou, na regi<c3><a3>o de Chapec<c3><b3>, SC, o comportamento de h<c3><ad>bridos de milho mensurados pelo rendimento m<c3><a9>dio de milho, ciclo de vida, altura da planta e altura da espiga.

Format

Um data.frame com 32 observa<c3><a7><c3><b5>es e 7 vari<c3><a1>veis, em que

hibr

Fator de 32 n<c3><ad>veis qualitativos que s<c3><a3>o os h<c3><ad>bridos de milho.

rm

Rendimento m<c3><a9>dio do h<c3><ad>brido de milho, em kg\ ha^{-1}.

ciclo

Ciclo de vida do h<c3><ad>brido de milho, em dias.

ap

Altura da planta do h<c3><ad>brido de milho, em cm.

ae

Altura da espiga do h<c3><ad>brido de milho, em cm.

grao

Fator de 3 n<c3><ad>veis qualitativos que indica o tipo de gr<c3><a3>o.

resist

Fator de 4 n<c3><ad>veis qualitativos que indica a resist<c3><aa>ncia <c3><a0> ferrugem, sendo r: resistente; mr: moderadamente resistente; ms: moderadamente suscept<c3><ad>vel; e s: suscept<c3><ad>vel.

Source

Andrade, D. F., Ogliari, P. J. (2010). Estat<c3><ad>stica para as ci<c3><aa>ncias agr<c3><a1>rias e biol<c3><b3>gicas com no<c3><a7><c3><b5>es de experimenta<c3><a7><c3><a3>o (2nd ed.). Florian<c3><b3>polis, SC. Editora da UFSC. (Tabela 2.1, p<c3><a1>g. 62)

Examples

library(lattice)

data(AndradeTb2.1)
str(AndradeTb2.1)

levels_resist <- c("Resistente", "Moderadamente Resistente",
                   "Moderadamente Suscept<c3><ad>vel", "Suscept<c3><ad>vel")

# Comportamento do rendimento m<c3><a9>dio
xyplot(rm ~ hibr | grao,
       groups = resist,
       type = "b",
       layout = c(NA, 1),
       data = AndradeTb2.1,
       auto.key = list(title = "Resist<c3><aa>ncia <c3><a0> ferrugem",
                       cex.title = 1.1,
                       columns = 2,
                       text = levels_resist),
       ylab = "Rendimendo M<c3><a9>dio (em kg/ha)",
       xlab = "H<c3><ad>brido de Milho")

# Compartamento do ciclo de vida
xyplot(ciclo ~ hibr | grao,
       groups = resist,
       type = "b",
       layout = c(NA, 1),
       data = AndradeTb2.1,
       auto.key = list(title = "Resist<c3><aa>ncia <c3><a0> ferrugem",
                       cex.title = 1.1,
                       columns = 2,
                       text = levels_resist),
       ylab = "Ciclo (em dias)",
       xlab = "H<c3><ad>brido de Milho")

# Comportamento das alturas
library(latticeExtra)
useOuterStrips(
    xyplot(ap + ae ~ hibr | grao,
           groups = resist,
           type = "b",
           data = AndradeTb2.1,
           auto.key = list(title = "Resist<c3><aa>ncia <c3><a0> ferrugem",
                           cex.title = 1.1,
                           columns = 2,
                           text = levels_resist),
           ylab = "Altura (em cm)",
           xlab = "H<c3><ad>brido de Milho"),
    strip.left = strip.custom(factor.levels = c("Planta", "Espiga"))
    )

# Comportamento geral
vars <- c("Rendimento", "Ciclo de vida", "Altura planta", "Altura espiga")
useOuterStrips(
    xyplot(rm + ciclo + ap + ae ~ hibr | grao,
           groups = resist,
           data = AndradeTb2.1,
           type = "b",
           as.table = TRUE,
           xlab = "H<c3><ad>brido de Milho",
           ylab = "",
           scales = list(y = "free", x = list(rot = 90)),
           auto.key = list(
               title = "Resist<c3><aa>ncia <c3><a0> Ferrugem",
               cex.title = 1.1,
               columns = 2,
               text = levels_resist)
           ),
    strip.left = strip.custom(factor.levels = vars)
)

# Rela<c3><a7><c3><a3>o entre as vari<c3><a1>veis de interesse
splom(~AndradeTb2.1[, c("rm", "ciclo", "ap", "ae")],
      type = c("p", "smooth"),
      data = AndradeTb2.1)

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.