Import data

# excel file
data <- read_excel("data/MyData.xlsx")
data
## # A tibble: 60 × 2
##    Column1   Column2               
##    <chr>     <chr>                 
##  1 team_code full_name             
##  2 ATL       Atlanta Thrashers     
##  3 HFD       Hartford Whalers      
##  4 MNS       Minnesota North Stars 
##  5 QUE       Quebec Nordiques      
##  6 WIN       Winnipeg Jets (1979)  
##  7 CLR       Colorado Rockies      
##  8 SEN       Ottawa Senators (1917)
##  9 HAM       Hamilton Tigers       
## 10 PIR       Pittsburgh Pirates    
## # ℹ 50 more rows

Plot prices

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