<!DOCTYPE html>

Week 4: Apply 3

Import data

# csv file
data <- read.csv("data/Salaries.csv")
data

## rank discipline yrs.since.phd yrs.service sex salary Arizona
Diamondbacks $4.00 Atlanta Braves $5.00 Baltimore Orioles $4.00 Boston
Red Sox $8.00 Chicago Cubs $9.00 Chicago White Sox $7.00 Cincinnati Reds
$6.25 Cleveland Indians $5.00 Colorado Rockies $3.00 Detroit Tigers
$5.00 Houston Astros $6.00 Kansas City Royals $4.00 Los Angeles Angels
$4.50 Los Angeles Dodgers $6.25 Miami Marlins $6.00 Milwaukee Brewers
$7.00 Minnesota Twins $8.50 New York Mets $10.50 New York Yankees $6.00
Oakland Athletics $5.50 Philadelphia Phillies $6.00 Pittsburgh Pirates
$6.00 San Diego Padres $5.00 San Francisco Giants $8.25 Seattle Mariners
$5.00 St. Louis Cardinals $5.00 Tampa Bay Rays $5.00 Texas Rangers $6.00
Toronto Blue Jays $5.67 Washington Nationals $7.00 MLB Average $5.98

Plot prices

data %>%
    
    ggplot(aes(rank)) +
    geom_bar()