3.6 Ejercicios

3.6.1 Ej: Hidden Figures IMDB

Usando los siguientes objetos crea una lista de tres elementos con nombres: director, stars y reviews.

director_hf <- "Theodore Melfi"
stars_hf <- c( "Taraji P. Henson", "Octavia Spencer", "Janelle Monáe",
             "Kirsten Dunst", "Kevin Costner", "Jim Parsons", 
             "Mahershala Ali")
reviews_hf <- data.frame(
    scores = c(9, 6, 5, 10),
    source = c( rep("IMDB", 4) ),
    comments = c("It made for an old-fashioned movie going experience...",
                 "Evident Heroism, Hidden Doubts",
                 "OK, but very disappointing",
                 "Don't let Hidden Figures be a hidden treasure!")
    )

La lista se llama hidden_figures:

hidden_figures <- list(
  director = ,
  stars = ,
  reviews = 
)
str(hidden_figures)

---

3.6.2 Ej: Calificación promedio

Extrae los scores de la película hidden_figures y con la función mean() calcula el promedio.

1. Primero deberás extraer el elemento que contiene los scores. Es un dataframe.
2. Después deberás seleccionar la columna de scores.
3. Por último calcular el promedio y asignarlo a avg_reviews_hf.

Tip: Usando la función str() sobre la lista ubica el nivel en el que esta el valor scores.

reviews_df <- hidden_figures
reviews_vec <- 
avg_reviews_hf <- mean(  )
avg_reviews_hf

---

3.6.3 Ej: Pesos a dolares

El siguiente vector presenta el precio de la gasolina en diferentes localidades.

gas_cdmx <- c(15.82, 15.77, 15.83, 15.23, 14.95, 15.42, 15.55)
gas_cdmx

## [1] 15.82 15.77 15.83 15.23 14.95 15.42 15.55

Usando la siguiente lista de tipo de cambio por mes:

• Julio: 17.3808
• Agosto: 17.6084
  
• Septiembre: 17.7659

Crea un dataframe donde cada variable/columna sea el precio en dolares por cada mes.

gas_usd_df <- data.frame(
  julio = gas_cdmx/
  agosto = 
  septiembre = 
)
print(gas_usd_df)