DATA 110 Lab I

Part 1

## Read Data
library(ggplot2)
nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv",sep = ",")

## Sort Data
nba <- nba[order(nba$PTS),]

## Set row number to Names of Players
row.names(nba) <- nba$Name

#remove 1st column
nba <- nba [,2:20]

## Convert from DataFrame to Matrix
nba_matrix <- data.matrix(nba)

## Create a heatmap
nba_heatmap <- heatmap(nba_matrix, Rowv = NA, Colv = NA, col = cm.colors(256),scale = "column", margins = c(5,10))

## Color Selection
nba_heatmap <- heatmap(nba_matrix, Rowv = NA, Colv = NA, col = heat.colors(256),scale = "column", margins = c(5,10))

## Clean it up.

## Read Data
data <- read.csv("http://datasets.flowingdata.com/post-data.txt",sep = ",")

## Load the portfolio package
#install.packages("portfolio")
library(portfolio)

## Loading required package: grid

## Loading required package: lattice

## Loading required package: nlme

## Make the Treemap
map.market(id=data$id, area=data$views, group=data$category, color=data$comments, main="FlowingData Maps")

## Customize