values <-read.csv("C:/Users/Brian Faith/Desktop/Northwestern/MSDS 401 Q2/R Data/nba team values.csv")
str(values)
## 'data.frame':    30 obs. of  2 variables:
##  $ team : chr  "New York" "Golden State" "LA Lakers" "Chicago" ...
##  $ value: num  5 4.7 4.6 3.3 3.2 2.75 2.65 2.5 2.45 2.15 ...
barplot(values$value,
        main = "Forbes NBA Team Values", xlab = "NBA Teams", ylab = "$ Value Billions",
        col = heat.colors(30))