Actividad 1 - Repaso de R

Instrucciones

En los grupos asignados en Canvas para la actividad 1 deberán resolver los problemas mostrados en esta presentación. Tendrán un tiempo definido para cada problema y al finalizar el tiempo deberán compartir su respuesta. Si su respuesta es correcta se les asignarán los puntos indicados en la diapositiva. Al finalizar, el grupo con mayor puntuación ganará un premio. La puntuación en esta actividad será otorgada por participación.

¡Suerte!

Problema 1: (1 minuto - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances

# A tibble: 6 × 4
  Especie              Familia           Orden          Abundancia
  <chr>                <chr>             <chr>               <dbl>
1 Quiscalus mexicanus  Icteridae         Passeriformes          42
2 Pharomachrus mocinno Trogonidae        Trogoniformes          13
3 Platalea ajaja       Threskiornithidae Pelecaniformes          7
4 Eudocimus albus      Threskiornithidae Pelecaniformes         23
5 La cerveza           Crambidae         Lepidoptera            37
6 La cucaracha         Crambidae         Lepidoptera            53

¿Qué resultado dará este código?

abundances |> 
  filter(Familia == "Crambidae")

# A tibble: 2 × 4
  Especie      Familia   Orden       Abundancia
  <chr>        <chr>     <chr>            <dbl>
1 La cerveza   Crambidae Lepidoptera         37
2 La cucaracha Crambidae Lepidoptera         53

Problema 2: (1 minuto - 1 punto)

¿Qué paquete o paquetes necesitarían para el código del problema 1? ¿Cómo los cargarían?

Problema 3: (1 minuto - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué resultado dará este código?

abundances |> 
  select(Especie, Abundancia) |> 
  filter(Especie == "Quiscalus mexicanus")

Problema 4: (1 minuto - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué resultado dará este código?

abundances |> 
  filter(Familia == "Threskiornithidae") |> 
  select(Especie, Abundancia)

Problema 5: (1 minuto - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué resultado dará este código?

abundances |> 
  filter(Familia == "Hicteridae") |> 
  select(Especie, Abundancia)

Problema 6: (1 minuto - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué resultado dará este código?

abundances |> 
  group_by(Orden) |> 
  summarise(Abundancia = sum(Abundancia))

Problema 7: (1.5 minutos - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Orden	Familia	Abundancia
Passeriformes	Icteridae	42
Trogoniformes	Trogonidae	13
Pelecaniformes	Threskiornithidae	7
Pelecaniformes	Threskiornithidae	23

Problema 8: (2.5 minutos - 2 puntos)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Clase	Orden	Familia	Especie	Abundancia
Aves	Passeriformes	Icteridae	Quiscalus mexicanus	42
Aves	Trogoniformes	Trogonidae	Pharomachrus mocinno	13
Aves	Pelecaniformes	Threskiornithidae	Platalea ajaja	7
Aves	Pelecaniformes	Threskiornithidae	Eudocimus albus	23
Insecta	Lepidoptera	Crambidae	La cerveza	37
Insecta	Lepidoptera	Crambidae	La cucaracha	53

Problema 9: (1.5 minutos - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Familia	Abundancia_promedio	Desviacion_estandar_abundancia
Crambidae	45	11.31371
Icteridae	42	NA
Threskiornithidae	15	11.31371
Trogonidae	13	NA

Problema 10: (2 minutos - 2 puntos)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Species	Family	Order	Abundance	Relative_abundance
Quiscalus mexicanus	Icteridae	Passeriformes	42	0.24000000
Pharomachrus mocinno	Trogonidae	Trogoniformes	13	0.07428571
Platalea ajaja	Threskiornithidae	Pelecaniformes	7	0.04000000
Eudocimus albus	Threskiornithidae	Pelecaniformes	23	0.13142857
La cerveza	Crambidae	Lepidoptera	37	0.21142857
La cucaracha	Crambidae	Lepidoptera	53	0.30285714

Tomen un descanso de 5 minutos

Problema 11: (2.5 minutos - 2 puntos)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

fjdkfjldfkjsd sdñfjaslkjdf asdf kasjdfñlaksjfd

abundances %>% 
  group_by(Familia) %>% 
  tally

# A tibble: 4 × 2
  Familia               n
  <chr>             <int>
1 Crambidae             2
2 Icteridae             1
3 Threskiornithidae     2
4 Trogonidae            1

¿Qué código utilizaría para generar este resultado?

Problema 12: (1.5 minutos - 1 puntos)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Problema 13: (2 minutos - 2 puntos)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Problema 14: (1 minutos - 1 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt()

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

¿Qué código utilizaría para generar este resultado?

Problema 15: (3 minutos - 3 punto)

Utilizando la siguiente tabla, llamada abundances:

abundances |> 
  gt() |> 
  tab_options(table.font.size = 12)

Especie	Familia	Orden	Abundancia
Quiscalus mexicanus	Icteridae	Passeriformes	42
Pharomachrus mocinno	Trogonidae	Trogoniformes	13
Platalea ajaja	Threskiornithidae	Pelecaniformes	7
Eudocimus albus	Threskiornithidae	Pelecaniformes	23
La cerveza	Crambidae	Lepidoptera	37
La cucaracha	Crambidae	Lepidoptera	53

Dibuje la gráfica que daría este código:

abundances_family <- abundances |> 
  group_by(Familia) |> 
  summarise(mean_abundance = mean(Abundancia),
            sd_abundance = sd(Abundancia)
            )

ggplot(abundances_family, 
       aes(x = Familia, y = mean_abundance)) +
  geom_bar(stat = "identity") +
  geom_errorbar(aes(ymin = mean_abundance,
                    ymax = mean_abundance + 
                      1.96*sd_abundance),
                width = 0.3) +
  labs(y = "Abundancia promedio") +
  scale_y_continuous(expand = expansion(c(0, 0.1))) +
  theme_classic()