R Markdown
library(dslabs)
library(readr)
library(dplyr)
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
Tasa de divorcios
divorce_margarine
## divorce_rate_maine margarine_consumption_per_capita year
## 1 5.0 8.2 2000
## 2 4.7 7.0 2001
## 3 4.6 6.5 2002
## 4 4.4 5.3 2003
## 5 4.3 5.2 2004
## 6 4.1 4.0 2005
## 7 4.2 4.6 2006
## 8 4.2 4.5 2007
## 9 4.2 4.2 2008
## 10 4.1 3.7 2009
divorce_margarine %>% select(divorce_rate_maine, margarine_consumption_per_capita, year) %>% arrange(margarine_consumption_per_capita)
## divorce_rate_maine margarine_consumption_per_capita year
## 1 4.1 3.7 2009
## 2 4.1 4.0 2005
## 3 4.2 4.2 2008
## 4 4.2 4.5 2007
## 5 4.2 4.6 2006
## 6 4.3 5.2 2004
## 7 4.4 5.3 2003
## 8 4.6 6.5 2002
## 9 4.7 7.0 2001
## 10 5.0 8.2 2000