print("Before we dive into plots...")

batting_table <- read.csv("/home/marianne/Downloads/Batting.csv")

head(batting_table)

summary(batting_table)

batting_table <- subset(batting_table, yearID >= 2004)

batting_table$Avg <- with(batting_table, H / AB)

library(ggplot2)
ggplot(data=batting_table) + geom_histogram(aes(Avg), binwidth=0.05)

batting_table <- subset(batting_table, AB >= 10)
hist <- ggplot(data=batting_table) + geom_histogram(aes(Avg), binwidth=0.05)
hist

suppressPackageStartupMessages(library(devtools))
suppressMessages(install_github("ropensci/plotly"))
suppressPackageStartupMessages(library(plotly))

py <- plotly("ggplot2examples", "3gazttckd7")  # Instantiate plotly object

collab_hist <- py$ggplotly(hist)

enhanc_hist <- py$get_figure("mkcor", 305)

str(enhanc_hist)

enhanc_hist$data[[2]]  # Data for second trace

enhanc_hist$data[[2]]$name <- "Very Good"

enhanc_hist$data[[2]]$x[[1]] <- 0.35
enhanc_hist$data[[2]]$x[[2]] <- 0.35

enhanc_hist$data[[2]]$x

py$plotly(enhanc_hist$data, kwargs=list(layout=enhanc_hist$layout))

bar <- ggplot(data=batting_table) + geom_bar(aes(Avg), binwidth=0.05) + facet_wrap(~yearID)

bar

py$ggplotly(bar)

# CSS styling within IPython notebook
display_html(getURL("https://raw.githubusercontent.com/plotly/python-user-guide/master/custom.css"))