ejercicios

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

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

datos_1952 <- filter(gapminder, year == 1952)
ggplot(datos_1952, aes(lifeExp,continent)) +
  geom_boxplot()

datos_2007 <- filter(gapminder, year == 2007)
ggplot(datos_2007, aes(lifeExp,continent)) +
  geom_boxplot()