-
Notifications
You must be signed in to change notification settings - Fork 1
/
ejercicio.Rmd
86 lines (55 loc) · 2.83 KB
/
ejercicio.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
---
title: "Ejercicio"
output: html_document
---
```{r setup, include=FALSE}
library(tidyverse)
library(gapminder)
```
Vimos que los datos de gapminder tienen para varios años la esperanza de vida y el producto interno bruto per cápita:
```{r}
glimpse(gapminder)
```
Podemos hacer una gráfica en la cuál se muestre el GDP per cápita vs la esperanza de vida:
```{r}
p <- ggplot(gapminder, aes(gdpPercap, lifeExp)) + scale_x_log10()
```
Vimos una gráfica en la cuál se mostraba una línea suavizada para cada continente. Veamos ahora la siguiente gráfica.
```{r, message=FALSE, warning=FALSE}
p + geom_point(aes(color = continent)) + geom_smooth()
```
 ¿Cuál es la diferencia? ¿Por qué en esta gráfica solamente hay una línea suavizada y cómo modificarías _únicamente_ la última línea para obtener una gráfica como la que vimos antes?
 Haz una gráfica de dispersión de la esperanza de vida en el eje $y$ contra el año en el eje $x$. Completa el siguiente código para obtener una gráfica como la que se muestra a continuación.
```{r,eval=FALSE}
ggplot(gapminder, aes(x = <rellenar>, y = <rellenar>)) +
geom_jitter()
```
 Haz una gráfica de pequeños múltiplos por continente pero ahora utilizando gráficas de línea. Completa el siguiente código para hacer una gráfica como la de abajo.
```{r, eval=FALSE}
ggplot(gapminder, aes(x = <rellenar>, y = <rellenar>, group = <rellenar>)) +
geom_line() +
facet_wrap(~<rellenar>)
```
 Agrega a al gráfica anterior una curva ajustada, smooth o lm. Investiga la ayuda de `geom_smooth()` para que el ajuste utilice el _método_ LOESS y con una línea gruesa (`lwd = 3`). La primera línea de código filtra los países que _no_ están en Oceanía, es decir, quita los países de Oceanía (es decir, `filter()` los datos donde `continent! = "Oceania"`).
```{r, eval = FALSE}
gapminder_2 <- filter(gapminder, continent != "Oceania")
ggplot(gapminder_2, aes(x = <rellenar>, y = <rellenar>, group = <rellenar>)) +
geom_line(alpha = 1/2) +
geom_smooth(aes(group = <rellenar>), <rellenar>) +
facet_wrap(~<rellenar>)
```
 Haz una gráfica de pequeños múltiplos por continente donde se muestre un diagrama de dispersión de GDP per cápita en el eje $x$ y esperanza de vida en el eje $y$ y una curva suavizada con área sombreada de error estándar.
```{r, fig.height=15, fig.width=3, message=FALSE, warning=FALSE, eval=FALSE}
ggplot(gapminder, aes(x = <rellenar>, y = <rellenar>)) +
geom_point() +
geom_smooth(aes(group = <rellenar>)) +
facet_wrap(~<rellenar>, ncol = 1) +
scale_x_log10() +
theme_bw()
```
<div style="width:300px; height=200px">
</div>