library(dslabs)
library(dplyr)
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
data("gapminder")
library(RColorBrewer)
tabla_continente <- table(gapminder$continent)
barplot(tabla_continente,
main = "Gráfico de barras",
ylab = "Frecuencia",
xlab = "continentes",
ylim = c(0, 3000),
col = c("blue", "green", "yellow"))
grid(nx = NA, ny = NULL, col = "lightgray", lty = "dotted", lwd = par("lwd"))
texto <- ("Este gráfico de barras muestra el número de países presentes en cada continente según el conjunto de dato")
print(texto)
## [1] "Este gráfico de barras muestra el número de países presentes en cada continente según el conjunto de dato"
barplot(table(gapminder$life_expectancy),
main = "Gráfico de barras",
ylab = "Frecuencia",
xlab = "Esperanza de vida",
ylim = c(0, 50),
)
grid(nx = NA, ny = NULL, col = "lightgray", lty = "dotted", lwd = par("lwd"))
texto <- ("la esperanza de vida que mas se ha obtenido a travez der los años es alrededor de 74 años")
print(texto)
## [1] "la esperanza de vida que mas se ha obtenido a travez der los años es alrededor de 74 años"
hist(gapminder$fertility,
main = "Histograma de Fertilidad",
col = c("blue", "green", "yellow","green","brown","orange"),
breaks = "sturges",
probability = TRUE,
xlab = "Tasa de fertilidad (hijos por mujer)"
)
texto <- "El histograma indica que la mayor parte de los países tienen tasas de fertilidad entre 2 y 3 hijos por mujer."
print(texto)
## [1] "El histograma indica que la mayor parte de los países tienen tasas de fertilidad entre 2 y 3 hijos por mujer."
etiquetas <- levels(gapminder$continent)
colores <- c("blue", "green", "yellow", "red","brown")
pie(table(gapminder$continent),
labels = etiquetas,
main = "Diagrama circular",
col = colores,
border = NA)
texto <- ("la mayor cantidad de datos recopilada es de asia y la menor de oceania")
print(texto)
## [1] "la mayor cantidad de datos recopilada es de asia y la menor de oceania"
gapminder_2000 <- gapminder %>%
filter(year == 2000)
continente_2000 <-factor(gapminder_2000$continent,levels=c("Africa","Asia","Europe","Americas","Oceania"))
tabla1<-table(continente_2000)
barplot(tabla1,
ylim = c(0, 60)
)
texto <- ("orden desente de los paise con mas datos obtenidos en el año 2000")
print(texto)
## [1] "orden desente de los paise con mas datos obtenidos en el año 2000"
hist(table(gapminder_2000$infant_mortality),
main = "Histograma de la tasa de mortalidad infantil en 2000",
xlim = c(0, 5),
ylim = c(0, 150),
col = brewer.pal(3, "Paired"),
xlab = "Tasa de mortalidad infantil ",
labels = TRUE,
border = brewer.pal(3, "Paired"))
hist(table(gapminder_2000$infant_mortality),
breaks = "Sturges",
main = "Histograma de Mortalidad Infantil en el 2000",
xlab = "Mortalidad infantil en el 2000",
col = brewer.pal(9, "Set1"),
ylim = c(0, 200),
xlim = c(0, 5),
border = brewer.pal(9, "Set1"),
labels = TRUE)
boxplot(gapminder_2000$life_expectancy,
col="orange",ylab="eperanza de vida",
outline=FALSE,main="Boxplot",ylim=c(0,100))
points(mean(gapminder_2000$life_expectancy),col="black",pch=20)
text(paste(" ", round(mean(gapminder_2000$life_expectancy), 2)),x=0.9,y=74)
summary(gapminder_2000$life_expectancy)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 37.60 61.70 70.80 67.79 74.70 81.00
# Diagrama de dispersión PIB vs Esperanza de Vida
y <- gapminder_2000$life_expectancy
x <- gapminder_2000$gdp
plot(x, y,
main = "PIB vs Esperanza de Vida",
xlim = c(0, 5000000000),#cincomilmillones
col = rainbow(length(y)),
pch = 20,
xlab = "PIB (Producto Interno Bruto)",
ylab = "Esperanza de Vida")
legend("bottomright",
legend = paste("pib"),
col = rainbow(length(y)),
)
texto <- ("muestra la esperanza de vida de acurdo al pib deacuerdo con la grafica los paise con pib de cinco mil miilones pueden tener la misma esperanza con paise de cien mil millones de us ")
print(texto)
## [1] "muestra la esperanza de vida de acurdo al pib deacuerdo con la grafica los paise con pib de cinco mil miilones pueden tener la misma esperanza con paise de cien mil millones de us "
boxplot(life_expectancy ~ continent, data = gapminder_2000,
col = brewer.pal(9, "Set1"),
outline = FALSE,
ylim = c(0, 100),
main = "Boxplot: Esperanza de vida vs Región")
abline(h = mean(gapminder_2000$life_expectancy), col = "blue", lwd = 2)
text(x = 1, y = mean(gapminder_2000$gdp),
labels = paste("Media PIB: ", round(mean(gapminder_2000$life_expectancy), 2)),
col = "blue", pos = 3)
par(mfrow=c(1,2))
# Boxplot PIB vs Región
boxplot(life_expectancy ~ continent, data = gapminder_2000,
col = brewer.pal(9, "Set1"),
outline = FALSE,
ylim = c(0, 100),
main = "Boxplot: Esperanza de vida vs Región")
abline(h = mean(gapminder_2000$life_expectancy), col = "blue", lwd = 2)
text(x = 1, y = mean(gapminder_2000$gdp),
labels = paste("Media PIB: ", round(mean(gapminder_2000$life_expectancy), 2)),
col = "blue", pos = 3)
y <- gapminder_2000$life_expectancy
x <- gapminder_2000$gdp
plot(x, y,
main = "PIB vs Esperanza de Vida",
xlim = c(0, 5000000000),#cincomilmillones
col = rainbow(length(y)),
pch = 20,
xlab = "PIB (Producto Interno Bruto)",
ylab = "Esperanza de Vida")
legend("bottomright",
legend = paste("pib"),
col = rainbow(length(y)),
)
