Skip to content
Snippets Groups Projects
Commit be8688c9 authored by Bruno Geronymo's avatar Bruno Geronymo
Browse files

Corrige a seção exemplos da Tabela 4.

parent c68a00f0
No related branches found
No related tags found
1 merge request!111Bruno148 - Adiciona 8 tabelas do Andrade.
Show whitespace changes
Inline Side-by-side
R/AndradeTb2.1.R
+ 63
− 48
View file @ be8688c9
...@@ -40,53 +40,68 @@ ...@@ -40,53 +40,68 @@
#' data(AndradeTb2.1) #' data(AndradeTb2.1)
#' str(AndradeTb2.1) #' str(AndradeTb2.1)
#' #'
#' graf1 <- xyplot(rm ~ hibr, #' xyplot(rm ~ hibr,
#' groups = grao,
#' type = "b",
#' data = AndradeTb2.1, #' data = AndradeTb2.1,
#' type = c("p", "r"), #' auto.key = list(title = "Tipo de Grão",
#' xlab = "Híbrido de Milho", #' cex.title = 1.1,
#' ylab = "Rendimento Médio (em kg/ha)") #' columns = 3),
#' #' ylab = "Rendimendo Médio (em kg/ha)",
#' graf2 <- xyplot(ciclo ~ hibr, #' xlab = "Híbrido de Milho")
#'
#' xyplot(rm ~ hibr,
#' groups = resist,
#' type = "b",
#' data = AndradeTb2.1, #' data = AndradeTb2.1,
#' type = c("p", "r"), #' auto.key = list(title = "Resistência à Ferrugem",
#' xlab = "Híbrido de Milho", #' cex.title = 1.1,
#' ylab = "Ciclo (em dias)") #' columns = 4),
#' #' ylab = "Rendimendo Médio (em kg/ha)",
#' graf3 <- xyplot(ap + ae ~ hibr, #' xlab = "Híbrido de Milho")
#'
#' xyplot(ciclo ~ hibr,
#' groups = grao,
#' type = "b",
#' data = AndradeTb2.1, #' data = AndradeTb2.1,
#' type = c("p", "r"), #' auto.key = list(title = "Tipo de Grão",
#' xlab = "Híbrido de Milho", #' cex.title = 1.1,
#' ylab = "Alturas (em cm)", #' columns = 3),
#' auto.key = list(columns = 2)) #' ylab = "Ciclo (em dias)",
#' #' xlab = "Híbrido de Milho")
#' print(graf1, c(0, 0.66, 1, 1), more = TRUE) #'
#' #' xyplot(ciclo ~ hibr,
#' print(graf2, c(0, 0.33, 1, 0.66), more = TRUE) #' groups = resist,
#' #' type = "b",
#' print(graf3, c(0, 0, 1, 0.33)) #' data = AndradeTb2.1,
#' #' auto.key = list(title = "Resistência à Ferrugem",
#' d <- count(AndradeTb2.1$grao == "dentado")[[2]][2] #' cex.title = 1.1,
#' #' columns = 4),
#' sd <- count(AndradeTb2.1$grao == "semidentado")[[2]][2] #' ylab = "Ciclo (em dias)",
#' #' xlab = "Híbrido de Milho")
#' s <- count(AndradeTb2.1$grao == "semiduro")[[2]][2] #'
#' #' xyplot(ap + ae ~ hibr,
#' barplot(c(Dentado = d, Semidentado = sd, Semiduro = s), #' groups = grao,
#' col = "darkturquoise", #' type = "b",
#' xlab = "Tipo de Grão", #' strip = strip.custom(factor.levels = c("Altura da Planta",
#' ylab = "Frequência") #' "Altura da Espiga")),
#' #' data = AndradeTb2.1,
#' r <- count(AndradeTb2.1$resist == "r")[[2]][2] #' auto.key = list(title = "Tipo de Grão",
#' #' cex.title = 1.1,
#' mr <- count(AndradeTb2.1$resist == "mr")[[2]][2] #' columns = 3),
#' #' ylab = "Altura (em cm)",
#' ms <- count(AndradeTb2.1$resist == "ms")[[2]][2] #' xlab = "Híbrido de Milho")
#' #'
#' s <- count(AndradeTb2.1$resist == "s")[[2]][2] #' xyplot(ap + ae ~ hibr,
#' #' groups = resist,
#' barplot(c(R = r, mr = mr, MS = ms, S = s), #' type = "b",
#' col = "darkturquoise", #' strip = strip.custom(factor.levels = c("Altura da Planta",
#' xlab = "Resistência à Ferrugem", #' "Altura da Espiga")),
#' ylab = "Frequência") #' data = AndradeTb2.1,
#' auto.key = list(title = "Resistência à Ferrugem",
#' cex.title = 1.1,
#' columns = 4),
#' ylab = "Altura (em cm)",
#' xlab = "Híbrido de Milho")
#' #'
NULL NULL
\ No newline at end of file
man/AndradeTb2.1.Rd
+ 63
− 48
View file @ be8688c9
...@@ -46,54 +46,69 @@ library(plyr) ...@@ -46,54 +46,69 @@ library(plyr)
data(AndradeTb2.1) data(AndradeTb2.1)
str(AndradeTb2.1) str(AndradeTb2.1)
graf1 <- xyplot(rm ~ hibr, xyplot(rm ~ hibr,
groups = grao,
type = "b",
data = AndradeTb2.1, data = AndradeTb2.1,
type = c("p", "r"), auto.key = list(title = "Tipo de Grão",
xlab = "Híbrido de Milho", cex.title = 1.1,
ylab = "Rendimento Médio (em kg/ha)") columns = 3),
ylab = "Rendimendo Médio (em kg/ha)",
graf2 <- xyplot(ciclo ~ hibr, xlab = "Híbrido de Milho")
xyplot(rm ~ hibr,
groups = resist,
type = "b",
data = AndradeTb2.1, data = AndradeTb2.1,
type = c("p", "r"), auto.key = list(title = "Resistência à Ferrugem",
xlab = "Híbrido de Milho", cex.title = 1.1,
ylab = "Ciclo (em dias)") columns = 4),
ylab = "Rendimendo Médio (em kg/ha)",
graf3 <- xyplot(ap + ae ~ hibr, xlab = "Híbrido de Milho")
xyplot(ciclo ~ hibr,
groups = grao,
type = "b",
data = AndradeTb2.1, data = AndradeTb2.1,
type = c("p", "r"), auto.key = list(title = "Tipo de Grão",
xlab = "Híbrido de Milho", cex.title = 1.1,
ylab = "Alturas (em cm)", columns = 3),
auto.key = list(columns = 2)) ylab = "Ciclo (em dias)",
xlab = "Híbrido de Milho")
print(graf1, c(0, 0.66, 1, 1), more = TRUE)
xyplot(ciclo ~ hibr,
print(graf2, c(0, 0.33, 1, 0.66), more = TRUE) groups = resist,
type = "b",
print(graf3, c(0, 0, 1, 0.33)) data = AndradeTb2.1,
auto.key = list(title = "Resistência à Ferrugem",
d <- count(AndradeTb2.1$grao == "dentado")[[2]][2] cex.title = 1.1,
columns = 4),
sd <- count(AndradeTb2.1$grao == "semidentado")[[2]][2] ylab = "Ciclo (em dias)",
xlab = "Híbrido de Milho")
s <- count(AndradeTb2.1$grao == "semiduro")[[2]][2]
xyplot(ap + ae ~ hibr,
barplot(c(Dentado = d, Semidentado = sd, Semiduro = s), groups = grao,
col = "darkturquoise", type = "b",
xlab = "Tipo de Grão", strip = strip.custom(factor.levels = c("Altura da Planta",
ylab = "Frequência") "Altura da Espiga")),
data = AndradeTb2.1,
r <- count(AndradeTb2.1$resist == "r")[[2]][2] auto.key = list(title = "Tipo de Grão",
cex.title = 1.1,
mr <- count(AndradeTb2.1$resist == "mr")[[2]][2] columns = 3),
ylab = "Altura (em cm)",
ms <- count(AndradeTb2.1$resist == "ms")[[2]][2] xlab = "Híbrido de Milho")
s <- count(AndradeTb2.1$resist == "s")[[2]][2] xyplot(ap + ae ~ hibr,
groups = resist,
barplot(c(R = r, mr = mr, MS = ms, S = s), type = "b",
col = "darkturquoise", strip = strip.custom(factor.levels = c("Altura da Planta",
xlab = "Resistência à Ferrugem", "Altura da Espiga")),
ylab = "Frequência") data = AndradeTb2.1,
auto.key = list(title = "Resistência à Ferrugem",
cex.title = 1.1,
columns = 4),
ylab = "Altura (em cm)",
xlab = "Híbrido de Milho")
} }
\keyword{AAS} \keyword{AAS}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment