From 7886010f0d96a660b6de4d434cf2a8787dfc71ed Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 2 Nov 2016 13:20:53 -0200
Subject: [PATCH] =?UTF-8?q?Faz=20corre=C3=A7oes=20na=20documentacao.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/BracarensePg114.R | 77 ++++++++++++++++++++++++++++------------
R/BracarensePg177.R | 62 +++++++++++++++++++++-----------
R/BracarensePg184.R | 52 ++++++++++++++++++---------
R/BracarensePg78.R | 45 ++++++++++++++++-------
R/BracarensePg79.R | 47 +++++++++++++++++-------
data/BracarensePg79.rda | Bin 259 -> 205 bytes
man/BracarensePg114.Rd | 67 +++++++++++++++++++++++++---------
man/BracarensePg177.Rd | 52 +++++++++++++++++++--------
man/BracarensePg184.Rd | 44 ++++++++++++++++-------
man/BracarensePg78.Rd | 37 ++++++++++++++-----
man/BracarensePg79.Rd | 39 +++++++++++++++-----
11 files changed, 376 insertions(+), 146 deletions(-)
diff --git a/R/BracarensePg114.R b/R/BracarensePg114.R
index eb5acbf8..e36d45d6 100644
--- a/R/BracarensePg114.R
+++ b/R/BracarensePg114.R
@@ -1,32 +1,63 @@
#' @name BracarensePg114
#' @title Intenções de Voto
-#' @description Pesquisas de intenção de voto feitas para eleição da
+#' @description Pesquisas de intençõeses de voto feitas para eleição da
#' Bahia em 2006, em diferentes datas antes da eleição.
#' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
-#'
+#'
#' \describe{
#'
-#' \item{\code{Data}}{Data de Divulga��o.}
-#' \item{\code{PS}}{Paulo Souto}
-#' \item{\code{JW}}{Jaques Wagner}
-#' \item{\code{OC}}{Outros Candidatos}
-#'
+#' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+#' voto ou do resultado final das eleições.}
+#'
+#' \item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+#'
+#' \item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+#'
+#' \item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+#'
#' }
-#
-#'
-#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 114.
+#' @keywords estat?stica b?sica
+#' @source BRACARENSE (2009), exemplo p?gina 114.
#' @examples
-#'
+#'
+#' data(BracarensePg114)
+#' str(BracarensePg114)
+#'
+#' # Porque algumas somas passam de 100%?
+#' rowSums(BracarensePg114[, -1])
+#'
+#' BracarensePg114$Data <- factor(BracarensePg114$Data,
+#' levels = as.character(BracarensePg114$Data))
+#'
#' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
-#'
-#' barplot(dados,
-#' names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner",
-#' "Jaques Wagner"),
-#' col = c("red", "pink", "red", "pink"),
-#' main = "Intenções de Voto em 18/5,
-#' Comparadas Com O Resultado Final da Eleição",
-#' ylim = c(0, 80),
-#' legend = c("18/5", "Resultado Oficial"))
-#'
-NULL
\ No newline at end of file
+#'
+#' barplot(dados,
+#' names.arg = rep(c("Paulo Souto",
+#' "Jaques Wagner"), each = 2),
+#' col = rep(c("red", "pink"), times = 2),
+#' main = paste0("Intenções de Voto em 18/5\n",
+#' "Comparadas com o Resultado Final da Eleições"),
+#' ylim = c(0, 80),
+#' legend = c("18/5", "Resultado Oficial"))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+#'
+#' barchart(~PS + JW + OC | Data,
+#' data = BracarensePg114,
+#' as.table = TRUE)
+#'
+#' xyplot(PS + JW + OC ~ Data,
+#' data = BracarensePg114,
+#' xlab = "Datas das pesquisas e resultado final",
+#' ylab = "Proporção de votos (%)",
+#' type = "o",
+#' pch = 19) +
+#' layer(panel.text(x = tapply(x, groups, tail, 1),
+#' y = tapply(y, groups, tail, 1),
+#' labels = levels(groups),
+#' pos = 4, cex = 1.1))
+#'
+NULL
diff --git a/R/BracarensePg177.R b/R/BracarensePg177.R
index 9937eb5e..a69b175a 100644
--- a/R/BracarensePg177.R
+++ b/R/BracarensePg177.R
@@ -1,28 +1,50 @@
#' @name BracarensePg177
-#' @title População Recenseada e Estimada - 2007
+#' @title População Recenseada e Estimada em 2007
#' @description População recenseada e estimada, segundo as unidades da
-#' federação (2007)
+#' federação (2007).
#' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
-#'
+#'
#' \describe{
#'
-#' \item{\code{Reg}}{Grande Região.}
-#' \item{\code{Est}}{Estado}
-#' \item{\code{Pop}}{População}
+#' \item{\code{Reg}}{Região a qual pertence o estado.}
+#'
+#' \item{\code{Est}}{Estado do Brasil.}
+#'
+#' \item{\code{Pop}}{População do Estado.}
+#'
#' }
-#
-#'
#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 177.
+#' @source BRACARENSE (2009), exemplo página 177.
#' @examples
-#'
-#' dados <- aggregate(Pop ~ Reg, data = BracarensePg177,
-#' FUN = function(x) { c(sum = sum(x)) })
-#'
-#' barplot(dados$Pop/sum(dados$Pop),
-#' ylim = c(0, 0.50),
-#' names.arg = dados$Reg,
-#' col = rainbow(5),
-#' main = "Porcentagem da População Brasileira, por Região.")
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg177)
+#' str(BracarensePg177)
+#'
+#' dados <- aggregate(Pop ~ Reg,
+#' data = BracarensePg177,
+#' FUN = sum)
+#' dados
+#'
+#' barplot(dados$Pop/sum(dados$Pop),
+#' names.arg = dados$Reg,
+#' col = rainbow(5),
+#' main = "Porcentagem da População Brasileira por Região")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' # Gráfico de pareto da distribuição da população.
+#' barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+#' data = BracarensePg177,
+#' ylim = c(0, NA),
+#' scales = list(x = list(rot = 90)),
+#' xlab = "Estados brasileiros",
+#' ylab = "Poporção da população total") +
+#' layer(panel.text(x = x,
+#' y = y,
+#' labels = sprintf("%0.2f", y),
+#' cex = 0.8,
+#' adj = c(-0.25, 0.5),
+#' srt = 90))
+#'
+NULL
diff --git a/R/BracarensePg184.R b/R/BracarensePg184.R
index 693170f5..9f814728 100644
--- a/R/BracarensePg184.R
+++ b/R/BracarensePg184.R
@@ -1,26 +1,44 @@
#' @name BracarensePg184
-#' @title Taxa de Fecundidade
+#' @title Taxa de Fecundidade TODO melhorar o título
#' @description Taxa de fecundidade total por grupos de anos de estudos
#' da mulher, por regiões.
#' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
-#'
+#'
#' \describe{
#'
-#' \item{\code{Reg}}{Regiões.}
-#' \item{\code{0 - 3}}{Até 3 anos.}
-#' \item{\code{4 - 7}}{4 a 7 anos.}
-#' \item{\code{8 -}}{8 anos ou mais.}
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
+#'
+#' \item{\code{de4a7}}{4 a 7 anos.}
+#'
+#' \item{\code{de8acima}}{8 anos ou mais.}
+#'
+#' \item{\code{Total}}{TODO.}
+#'
#' }
-#
-#'
#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 184.
+#' @source BRACARENSE (2009), exemplo página 184.
#' @examples
-#'
-#' barplot(BracarensePg184$Total,
-#' ylim = c(0, 3),
-#' names.arg = BracarensePg184$Reg,
-#' main = "Taxa de Fecundidade Por Região",
-#' col = rainbow(6))
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg184)
+#' str(BracarensePg184)
+#'
+#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+#'
+#' barplot(BracarensePg184$Total,
+#' ylim = c(0, 3),
+#' names.arg = BracarensePg184$Reg,
+#' main = "Taxa de Fecundidade Por Região",
+#' col = rainbow(6))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+#' data = BracarensePg184,
+#' auto.key = list(columns = 4),
+#' ylab = "Taxa de fecundidade",
+#' xlab = "Regiões")
+#'
+NULL
diff --git a/R/BracarensePg78.R b/R/BracarensePg78.R
index 5002b655..75d72802 100644
--- a/R/BracarensePg78.R
+++ b/R/BracarensePg78.R
@@ -1,22 +1,41 @@
#' @name BracarensePg78
-#' @title Notas Padronizadas
+#' @title Notas Padronizadas por Matéria
#' @description Notas padronizadas de um candidato, por matéria.
#' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
-#' \describe{
+#'
+#' \describe{
#'
#' \item{\code{Mate}}{Matéria.}
#
#' }
-#'
+#'
#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 78.
+#' @source BRACARENSE (2009), exemplo página 78.
#' @examples
-#'
-#' medias <- aggregate(Nota ~ Mate, data = BracarensePg78,
-#' FUN = function(x) { c(mean = mean(x)) })
-#'
-#' barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8),
-#' names.arg = medias$Mate, main = "Notas Finais, Por Matéria.")
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg78)
+#' str(BracarensePg78)
+#'
+#' BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+#' levels(BracarensePg78$Mate)
+#'
+#' medias <- aggregate(Nota ~ Mate,
+#' data = BracarensePg78,
+#' FUN = mean)
+#' medias
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(Nota ~ Mate, data = medias) +
+#' layer(panel.text(x = x, y = y, labels = y, pos = 3))
+#'
+#' xyplot(Nota ~ Serie,
+#' groups = Mate,
+#' data = BracarensePg78,
+#' type = "o",
+#' auto.key = list(space = "right",
+#' title = "Matéria",
+#' cex.title = 1.1))
+#'
+NULL
diff --git a/R/BracarensePg79.R b/R/BracarensePg79.R
index 88426ad4..95faa6a7 100644
--- a/R/BracarensePg79.R
+++ b/R/BracarensePg79.R
@@ -1,17 +1,38 @@
#' @name BracarensePg79
#' @title Peso de Recém Nascidos
-#' @description Peso em gramas de 44 bebês recém nascidos em um período
-#' de 24 horas em um hospital de Brisbane na Austrália.
-#' @format Um \code{vetor} com 44 entradas.
-#
-#'
+#' @description Peso, em gramas, de 44 bebês recém nascidos em um
+#' período de 24 horas em um hospital de Brisbane na Austrália.
+#' @format Um \code{vetor} com 44 valores de peso.
#' @keywords estatística básica
-#' @source BRACARENSE(2009), atividade 1 pág. 79.
+#' @source BRACARENSE (2009), atividade 1, página 79.
#' @examples
-#'
-#' mean(BracarensePg79)
-#'
-#' boxplot(BracarensePg79, col = "pink",
-#' main = "Peso em Gramas de Bebês Recém Nascidos")
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg79)
+#' str(BracarensePg79)
+#'
+#' summary(BracarensePg79)
+#'
+#' xlim <- extendrange(BracarensePg79, f = 0.15)
+#'
+#' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+#' height = c(1, 3))
+#' par(mar = c(1.1, 4.1, 3.1, 2.1))
+#' boxplot(BracarensePg79,
+#' horizontal = TRUE,
+#' col = "green1",
+#' ylim = xlim,
+#' axes = FALSE,
+#' frame = FALSE)
+#' axis(side = 3)
+#' rug(BracarensePg79, side = 3, ticksize = 0.1)
+#' par(mar = c(4.1, 4.1, 1.1, 2.1))
+#' hist(BracarensePg79,
+#' xlim = xlim,
+#' main = NULL,
+#' col = "pink",
+#' xlab = "Peso de bebês recém nascidos (g)")
+#' abline(v = median(BracarensePg79), col = 4)
+#' rug(BracarensePg79, side = 1)
+#' layout(1)
+#'
+NULL
diff --git a/data/BracarensePg79.rda b/data/BracarensePg79.rda
index 540de88f3ac58e46be12546094a69fc8777e66b0..1bd5eaff8ceeb933b65d1577a81d9a77a16aafd0 100644
GIT binary patch
literal 205
zcmZ>Y%CIzaj8qGbyg9+rh=C#L|M$Q34+I%ZMHYxyUUbxNm0)0SU~mXv$!Js*6k%Xs
zR$%C`oP1HzP%2Swu>h~F@&(0LIm_mC{%Q^uGU@4MU|?Xlknz=s*CgDa?Xbt`o;$lf
zzAUtT=XSHa$=!I%f(H{NT>m-$*t7N5au3!APjcp~GAMQQI?rTS%F%H`mp8^kD~MNN
zDdUxC_ujhg=+}QUN9L>c22n}P+Na#Mo4;JPQ;$3y#LF{p^}9W72|{iY7EU^P{?R*+
M<y=D2M(k=109H{`q5uE@
literal 259
zcmb2|=3oE=w%7?9y_pgjj?TY7vm*VKXS8#*AbXp@x<^TkUd<M)@>Sbr9E`ni>&E;G
z66gL3dOAldxHvmI|Hyyx)mpPd`rh~I@B5BhzdLv9uyXzjPottab9$Q3O83qARFt?>
z^yb9gLy<Dy^!sK{+Prz^)Kf1e95Ub5sFu;gb?KY>p6P$Y{!Fr&uk)5Iqj&%Bw`G<0
z+PQx)`7e3IT-UdLq5H}WE$4$?HqSYGNlxm5w>jSptMvaO>vqhaWb1i#-;-}IN={U|
zmrnm9`+wHYU2A9V<w@@OuW!;^waskSEsN;S$G+WSo7~arbGLV0Ueo@kU(9Dl_o;Z^
RJ79H{Un9_@vVxI;0RZOLgHr$i
diff --git a/man/BracarensePg114.Rd b/man/BracarensePg114.Rd
index cef55495..fcc1796e 100644
--- a/man/BracarensePg114.Rd
+++ b/man/BracarensePg114.Rd
@@ -7,33 +7,66 @@
\describe{
-\item{\code{Data}}{Data de Divulga��o.}
-\item{\code{PS}}{Paulo Souto}
-\item{\code{JW}}{Jaques Wagner}
-\item{\code{OC}}{Outros Candidatos}
+\item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+ voto ou do resultado final das eleições.}
+
+\item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+
+\item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+
+\item{\code{OC}}{Porcentagem de votos para outros candidatos.}
}}
\source{
-BRACARENSE(2009), exemplo pág. 114.
+BRACARENSE (2009), exemplo p?gina 114.
}
\description{
-Pesquisas de intenção de voto feitas para eleição da
+Pesquisas de intençõeses de voto feitas para eleição da
Bahia em 2006, em diferentes datas antes da eleição.
}
\examples{
+data(BracarensePg114)
+str(BracarensePg114)
+
+# Porque algumas somas passam de 100\%?
+rowSums(BracarensePg114[, -1])
+
+BracarensePg114$Data <- factor(BracarensePg114$Data,
+ levels = as.character(BracarensePg114$Data))
+
dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
-barplot(dados,
- names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner",
- "Jaques Wagner"),
- col = c("red", "pink", "red", "pink"),
- main = "Intenções de Voto em 18/5,
- Comparadas Com O Resultado Final da Eleição",
- ylim = c(0, 80),
- legend = c("18/5", "Resultado Oficial"))
-
+barplot(dados,
+ names.arg = rep(c("Paulo Souto",
+ "Jaques Wagner"), each = 2),
+ col = rep(c("red", "pink"), times = 2),
+ main = paste0("Intenções de Voto em 18/5\\n",
+ "Comparadas com o Resultado Final da Eleições"),
+ ylim = c(0, 80),
+ legend = c("18/5", "Resultado Oficial"))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+
+barchart(~PS + JW + OC | Data,
+ data = BracarensePg114,
+ as.table = TRUE)
+
+xyplot(PS + JW + OC ~ Data,
+ data = BracarensePg114,
+ xlab = "Datas das pesquisas e resultado final",
+ ylab = "Proporção de votos (\%)",
+ type = "o",
+ pch = 19) +
+ layer(panel.text(x = tapply(x, groups, tail, 1),
+ y = tapply(y, groups, tail, 1),
+ labels = levels(groups),
+ pos = 4, cex = 1.1))
+
}
-\keyword{básica}
-\keyword{estatística}
+\keyword{b?sica}
+\keyword{estat?stica}
diff --git a/man/BracarensePg177.Rd b/man/BracarensePg177.Rd
index d7b8fa20..9713611d 100644
--- a/man/BracarensePg177.Rd
+++ b/man/BracarensePg177.Rd
@@ -2,33 +2,57 @@
% Please edit documentation in R/BracarensePg177.R
\name{BracarensePg177}
\alias{BracarensePg177}
-\title{População Recenseada e Estimada - 2007}
+\title{População Recenseada e Estimada em 2007}
\format{Um \code{data.frame} com 27 linhas e 3 colunas em que:
\describe{
-\item{\code{Reg}}{Grande Região.}
-\item{\code{Est}}{Estado}
-\item{\code{Pop}}{População}
+\item{\code{Reg}}{Região a qual pertence o estado.}
+
+\item{\code{Est}}{Estado do Brasil.}
+
+\item{\code{Pop}}{População do Estado.}
+
}}
\source{
-BRACARENSE(2009), exemplo pág. 177.
+BRACARENSE (2009), exemplo página 177.
}
\description{
População recenseada e estimada, segundo as unidades da
- federação (2007)
+ federação (2007).
}
\examples{
-dados <- aggregate(Pop ~ Reg, data = BracarensePg177,
- FUN = function(x) { c(sum = sum(x)) })
+data(BracarensePg177)
+str(BracarensePg177)
+
+dados <- aggregate(Pop ~ Reg,
+ data = BracarensePg177,
+ FUN = sum)
+dados
+
+barplot(dados$Pop/sum(dados$Pop),
+ names.arg = dados$Reg,
+ col = rainbow(5),
+ main = "Porcentagem da População Brasileira por Região")
+
+library(lattice)
+library(latticeExtra)
+
+# Gráfico de pareto da distribuição da população.
+barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+ data = BracarensePg177,
+ ylim = c(0, NA),
+ scales = list(x = list(rot = 90)),
+ xlab = "Estados brasileiros",
+ ylab = "Poporção da população total") +
+ layer(panel.text(x = x,
+ y = y,
+ labels = sprintf("\%0.2f", y),
+ cex = 0.8,
+ adj = c(-0.25, 0.5),
+ srt = 90))
-barplot(dados$Pop/sum(dados$Pop),
- ylim = c(0, 0.50),
- names.arg = dados$Reg,
- col = rainbow(5),
- main = "Porcentagem da População Brasileira, por Região.")
-
}
\keyword{básica}
\keyword{estatística}
diff --git a/man/BracarensePg184.Rd b/man/BracarensePg184.Rd
index 64df8bd9..0a67f2f5 100644
--- a/man/BracarensePg184.Rd
+++ b/man/BracarensePg184.Rd
@@ -2,18 +2,24 @@
% Please edit documentation in R/BracarensePg184.R
\name{BracarensePg184}
\alias{BracarensePg184}
-\title{Taxa de Fecundidade}
+\title{Taxa de Fecundidade TODO melhorar o título}
\format{Um \code{data.frame} com 6 linhas e 5 colunas em que:
\describe{
-\item{\code{Reg}}{Regiões.}
-\item{\code{0 - 3}}{Até 3 anos.}
-\item{\code{4 - 7}}{4 a 7 anos.}
-\item{\code{8 -}}{8 anos ou mais.}
+\item{\code{Reg}}{Regiões do Brasil.}
+
+\item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
+
+\item{\code{de4a7}}{4 a 7 anos.}
+
+\item{\code{de8acima}}{8 anos ou mais.}
+
+\item{\code{Total}}{TODO.}
+
}}
\source{
-BRACARENSE(2009), exemplo pág. 184.
+BRACARENSE (2009), exemplo página 184.
}
\description{
Taxa de fecundidade total por grupos de anos de estudos
@@ -21,12 +27,26 @@ Taxa de fecundidade total por grupos de anos de estudos
}
\examples{
-barplot(BracarensePg184$Total,
- ylim = c(0, 3),
- names.arg = BracarensePg184$Reg,
- main = "Taxa de Fecundidade Por Região",
- col = rainbow(6))
-
+data(BracarensePg184)
+str(BracarensePg184)
+
+names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+
+barplot(BracarensePg184$Total,
+ ylim = c(0, 3),
+ names.arg = BracarensePg184$Reg,
+ main = "Taxa de Fecundidade Por Região",
+ col = rainbow(6))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+ data = BracarensePg184,
+ auto.key = list(columns = 4),
+ ylab = "Taxa de fecundidade",
+ xlab = "Regiões")
+
}
\keyword{básica}
\keyword{estatística}
diff --git a/man/BracarensePg78.Rd b/man/BracarensePg78.Rd
index 4838c3c2..c216c6f8 100644
--- a/man/BracarensePg78.Rd
+++ b/man/BracarensePg78.Rd
@@ -2,27 +2,46 @@
% Please edit documentation in R/BracarensePg78.R
\name{BracarensePg78}
\alias{BracarensePg78}
-\title{Notas Padronizadas}
+\title{Notas Padronizadas por Matéria}
\format{Um \code{data.frame} com 24 linhas e 3 colunas, em que
- \describe{
+
+\describe{
\item{\code{Mate}}{Matéria.}
}}
\source{
-BRACARENSE(2009), exemplo pág. 78.
+BRACARENSE (2009), exemplo página 78.
}
\description{
Notas padronizadas de um candidato, por matéria.
}
\examples{
-medias <- aggregate(Nota ~ Mate, data = BracarensePg78,
- FUN = function(x) { c(mean = mean(x)) })
-
-barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8),
- names.arg = medias$Mate, main = "Notas Finais, Por Matéria.")
+data(BracarensePg78)
+str(BracarensePg78)
+
+BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+levels(BracarensePg78$Mate)
+
+medias <- aggregate(Nota ~ Mate,
+ data = BracarensePg78,
+ FUN = mean)
+medias
+
+library(lattice)
+library(latticeExtra)
+
+barchart(Nota ~ Mate, data = medias) +
+ layer(panel.text(x = x, y = y, labels = y, pos = 3))
+
+xyplot(Nota ~ Serie,
+ groups = Mate,
+ data = BracarensePg78,
+ type = "o",
+ auto.key = list(space = "right",
+ title = "Matéria",
+ cex.title = 1.1))
-
}
\keyword{básica}
\keyword{estatística}
diff --git a/man/BracarensePg79.Rd b/man/BracarensePg79.Rd
index 61d94234..4cdd8f84 100644
--- a/man/BracarensePg79.Rd
+++ b/man/BracarensePg79.Rd
@@ -3,21 +3,44 @@
\name{BracarensePg79}
\alias{BracarensePg79}
\title{Peso de Recém Nascidos}
-\format{Um \code{vetor} com 44 entradas.}
+\format{Um \code{vetor} com 44 valores de peso.}
\source{
-BRACARENSE(2009), atividade 1 pág. 79.
+BRACARENSE (2009), atividade 1, página 79.
}
\description{
-Peso em gramas de 44 bebês recém nascidos em um período
- de 24 horas em um hospital de Brisbane na Austrália.
+Peso, em gramas, de 44 bebês recém nascidos em um
+ período de 24 horas em um hospital de Brisbane na Austrália.
}
\examples{
-mean(BracarensePg79)
+data(BracarensePg79)
+str(BracarensePg79)
+
+summary(BracarensePg79)
+
+xlim <- extendrange(BracarensePg79, f = 0.15)
+
+nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+ height = c(1, 3))
+par(mar = c(1.1, 4.1, 3.1, 2.1))
+boxplot(BracarensePg79,
+ horizontal = TRUE,
+ col = "green1",
+ ylim = xlim,
+ axes = FALSE,
+ frame = FALSE)
+axis(side = 3)
+rug(BracarensePg79, side = 3, ticksize = 0.1)
+par(mar = c(4.1, 4.1, 1.1, 2.1))
+hist(BracarensePg79,
+ xlim = xlim,
+ main = NULL,
+ col = "pink",
+ xlab = "Peso de bebês recém nascidos (g)")
+abline(v = median(BracarensePg79), col = 4)
+rug(BracarensePg79, side = 1)
+layout(1)
-boxplot(BracarensePg79, col = "pink",
- main = "Peso em Gramas de Bebês Recém Nascidos")
-
}
\keyword{básica}
\keyword{estatística}
--
GitLab