library(readr)
library(dplyr)
# Cargar datos de salarios
# salarios <- read.csv("Va la ruta en donde estan los datos")
salarios <- read.csv("https://raw.githubusercontent.com/rpizarrog/Curso-Titulacion-Data-Science-/master/2019/Datos/Salaries.csv")
# salarios # Ya no los queremos ver
str(salarios)
summary(salarios)
head(salarios) # Los primeros seis registros
filter(salarios, EmployeeName == "Kevin Lee")