Import data

# excel file
Olympics <- read_excel("../00_data/myDataOlympics.xlsx")
Olympics

Apply the following dplyr verbs to your data

Filter rows

filter(Olympics, medal == "Gold", team == "United States")

Arrange rows

arrange(Olympics, age)

Select columns

select(Olympics, id:team, medal)

Add columns

Olympics_sml <- select(Olympics, 
  name:city, 
  ends_with("sport"), 
  event, 
  medal)