¿Cómo se ven los datos crudos?
pinguinos <- read.csv("https://raw.githubusercontent.com/allisonhorst/palmerpenguins/master/inst/extdata/penguins_raw.csv")
pinguinos %>% head()
## studyName Sample.Number Species Region Island
## 1 PAL0708 1 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## 2 PAL0708 2 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## 3 PAL0708 3 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## 4 PAL0708 4 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## 5 PAL0708 5 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## 6 PAL0708 6 Adelie Penguin (Pygoscelis adeliae) Anvers Torgersen
## Stage Individual.ID Clutch.Completion Date.Egg
## 1 Adult, 1 Egg Stage N1A1 Yes 2007-11-11
## 2 Adult, 1 Egg Stage N1A2 Yes 2007-11-11
## 3 Adult, 1 Egg Stage N2A1 Yes 2007-11-16
## 4 Adult, 1 Egg Stage N2A2 Yes 2007-11-16
## 5 Adult, 1 Egg Stage N3A1 Yes 2007-11-16
## 6 Adult, 1 Egg Stage N3A2 Yes 2007-11-16
## Culmen.Length..mm. Culmen.Depth..mm. Flipper.Length..mm. Body.Mass..g. Sex
## 1 39.1 18.7 181 3750 MALE
## 2 39.5 17.4 186 3800 FEMALE
## 3 40.3 18.0 195 3250 FEMALE
## 4 NA NA NA NA <NA>
## 5 36.7 19.3 193 3450 FEMALE
## 6 39.3 20.6 190 3650 MALE
## Delta.15.N..o.oo. Delta.13.C..o.oo. Comments
## 1 NA NA Not enough blood for isotopes.
## 2 8.94956 -24.69454 <NA>
## 3 8.36821 -25.33302 <NA>
## 4 NA NA Adult not sampled.
## 5 8.76651 -25.32426 <NA>
## 6 8.66496 -25.29805 <NA>
knitr::kable(pinguinos %>% head())
| PAL0708 |
1 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N1A1 |
Yes |
2007-11-11 |
39.1 |
18.7 |
181 |
3750 |
MALE |
NA |
NA |
Not enough blood for isotopes. |
| PAL0708 |
2 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N1A2 |
Yes |
2007-11-11 |
39.5 |
17.4 |
186 |
3800 |
FEMALE |
8.94956 |
-24.69454 |
NA |
| PAL0708 |
3 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N2A1 |
Yes |
2007-11-16 |
40.3 |
18.0 |
195 |
3250 |
FEMALE |
8.36821 |
-25.33302 |
NA |
| PAL0708 |
4 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N2A2 |
Yes |
2007-11-16 |
NA |
NA |
NA |
NA |
NA |
NA |
NA |
Adult not sampled. |
| PAL0708 |
5 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N3A1 |
Yes |
2007-11-16 |
36.7 |
19.3 |
193 |
3450 |
FEMALE |
8.76651 |
-25.32426 |
NA |
| PAL0708 |
6 |
Adelie Penguin (Pygoscelis adeliae) |
Anvers |
Torgersen |
Adult, 1 Egg Stage |
N3A2 |
Yes |
2007-11-16 |
39.3 |
20.6 |
190 |
3650 |
MALE |
8.66496 |
-25.29805 |
NA |
## `summarise()` has grouped output by 'Species'. You can override using the
## `.groups` argument.
| Adelie Penguin (Pygoscelis adeliae) |
FEMALE |
3368.836 |
| Adelie Penguin (Pygoscelis adeliae) |
MALE |
4043.493 |
| Adelie Penguin (Pygoscelis adeliae) |
NA |
NA |
| Chinstrap penguin (Pygoscelis antarctica) |
FEMALE |
3527.206 |
| Chinstrap penguin (Pygoscelis antarctica) |
MALE |
3938.971 |
| Gentoo penguin (Pygoscelis papua) |
FEMALE |
4679.741 |
| Gentoo penguin (Pygoscelis papua) |
MALE |
5484.836 |
| Gentoo penguin (Pygoscelis papua) |
NA |
NA |
¿Existe diferencia en las tallas entre cada especie de pingüinos?
Gráficas estáticas usando ggplot2
## Warning: Removed 2 rows containing non-finite values (stat_boxplot).
Gráficas dinámicas usando rbokeh
¿Y cómo se ve su distribución espacial?
pinguinos <- pinguinos %>% mutate(lon = runif(n = nrow(pinguinos), min = -63.85, max = -63.25))
pinguinos <- pinguinos %>% mutate(lat = runif(n = nrow(pinguinos), min = -64.776404, max = -64.460535))
leaflet(data = pinguinos) %>%
addTiles() %>%
setView(-63.60, -64.5764, 8) %>%
addMarkers(~lon, ~lat,
popup = paste("Especie:", pinguinos$Species, "<br>",
"Sexo:", pinguinos$Sex, "<br>",
"Stage:", pinguinos$Stage, "<br>",
"Comments:", pinguinos$Comments),
label = ~as.character(Species),
clusterOptions = markerClusterOptions())