library(ggplot2)
library(gapminder)
library(dplyr)

datos_1952 <- filter(gapminder, year == 1952)
View(gapminder)

# Completar esta sección
ggplot(datos_1952, aes(lifeExp, continent)) +
  geom_boxplot()