Skip to content

Instantly share code, notes, and snippets.

View Sandy4321's full-sized avatar

Sandy4321

115 followers · 1.2k following
View GitHub Profile
@Sandy4321
Sandy4321 / summarySequenceDiagram
Created December 17, 2015 16:13 — forked from abresler/summarySequenceDiagram
Quick Little Sequence Diagram for Any R Data-frame
summarySequenceDiagram <- function(df = mtcars, column_fill = "#05ffff", stroke_fill = "#0D3FF3", stroke_width = 1, inBrowser = TRUE){
library(DiagrammeR)
library(dplyr)
if(inBrowser == T){
options(viewer = NULL)
}
connections <- sapply(
1:ncol(df)
, function(i){
paste0(
@Sandy4321
Sandy4321 / beautiful_time_plot
Created December 17, 2015 16:13 — forked from abresler/beautiful_time_plot
#http://rpubs.com/bradleyboehmke/median_income_trends
# Preprocessing & summarizing data
library(dplyr)
library(tidyr)
library(RCurl)
library(XLConnect)
library(magrittr)
appURL <- "https://www.census.gov/hhes/www/income/data/historical/household/2013/h08.xls"
f = CFILE("exfile.xls", mode="wb")
curlPerform(url = appURL, writedata = f@ref, ssl.verifypeer = FALSE)
@Sandy4321
Sandy4321 / gist:6fe82bf9b79015353afc
Created December 17, 2015 16:14 — forked from abresler/gist:1012f0fc103c6ef17607
nba_2015_random_forest_vars
library("ggthemes")
c("randomForest","dplyr","magrittr","ggplot2","ggthemes") -> packages
lapply(packages,library, character.only = TRUE)
getBREFTeamStatTable <- function(season_end = 2015, table_name = 'team', date = T){
c('rvest','dplyr','pipeR','RCurl', 'XML','reshape2') -> packages
lapply(packages, library, character.only = T)
'http://www.basketball-reference.com/leagues/' -> base
(season_end-1) %>>% paste0("-",season_end) -> season
'NBA' -> league
table_name %>>% tolower -> table_name
@Sandy4321
Sandy4321 / all_nba_play_types_by_player.csv
Created December 18, 2015 15:11 — forked from abresler/all_nba_play_types_by_player.csv
Play Types!
We can make this file beautiful and searchable if this error is corrected: It looks like row 5 should actually have 34 columns, instead of 5. in line 4.
name.table,id.season,is.offense,name.player,team,id.player,jersey,id.position,id.team,slug.team,city.team,gp,possesions,pct.play_type,pts,fga,fgm,ppp,ppp.worse,ppp.better,possesions.per_game,pts.per_game,fga.per_game,fgm.per_game,fg.miss.per_game,rank,pct.fg,pct.efg,pct.ft_achieved,pct.to,pct.shooting_foul,pct.and_1,pct.scored,stem.table
Post-Up,2015-16,TRUE,Paul Millsap,Atlanta Hawks,200794,4,F,1610612737,ATL,Atlanta,4,13,19.69700050354,20,8,7,1.53846001625061,25,0,3.25,5,2,1.75,0.25,1,87.5,87.5,30.7692307692308,15.3846153846154,30.7692307692308,7.69230769230769,76.9230769230769,Postup
Post-Up,2015-16,TRUE,Al Horford,Atlanta Hawks,201143,15,F-C,1610612737,ATL,Atlanta,4,11,15.0684995651245,12,8,6,1.09090995788574,17,7,2.75,3,2,1.5,0.5,2,75,75,0,27.2727272727273,0,0,54.5454545454545,Postup
Post-Up,2015-16,FALSE,Kent Bazemore,Atlanta Hawks,203145,24,G,1610612737,ATL,Atlanta,4,11,22.917,7,7,1,0.636,5,4,2.75,1.75,1.75,0.25,1.5,6,14.286,14.286,27.273,9.091,27.273,0,36.364,Postup
Post-Up,2015-16,FALSE,Al Horford,A
@Sandy4321
Sandy4321 / get_nba_days_scores.r
Created December 18, 2015 15:11 — forked from abresler/get_nba_days_scores.r
Gets game scores and more for any valid NBA date
packages <- #need all of these installed including some from github
c('dplyr',
'magrittr',
'jsonlite',
'tidyr',
'stringr',
'lubridate')
options(warn = -1)
lapply(packages, library, character.only = T)
@Sandy4321
Sandy4321 / get_nba_player_bokeh_shotchart.r
Created December 18, 2015 15:11 — forked from abresler/get_nba_player_bokeh_shotchart.r
#' Get's NBA player's season shot chart with specific parameters
#'
#' @param player
#' @param year_season_end
#' @param plot_hex
#' @param author
#' @param use_shot_zone_side
#' @param season_type
#' @param shot_areas
#' @param shot_types
@Sandy4321
Sandy4321 / nba_team_season_bokeh_shotchart.r
Created December 18, 2015 15:11 — forked from abresler/nba_team_season_bokeh_shotchart.r
Gets an NBA team season's shot chart, Roster and shot data years can be different, lots of other parameters as well.
#' Gets NBA team Bokeh Shot Chart
#'
#' @param team can be = #c("76ers", "Bucks", "Bulls", "Cavaliers", "Celtics", "Clippers",
#"Grizzlies", "Hawks", "Heat", "Hornets", "Jazz", "Kings", "Knicks",
#"Lakers", "Magic", "Mavericks", "Nets", "Nuggets", "Pacers",
#"Pelicans", "Pistons", "Raptors", "Rockets", "Spurs", "Suns",
#"Thunder", "Timberwolves", "Trail Blazers", "Warriors", "Wizards")
#' @param year_roster - year of the roster
#' @param year_data
#' @param plot_hex - T or F, shows
@Sandy4321
Sandy4321 / diagrammer-bball-vis.R
Created December 18, 2015 15:11 — forked from abresler/diagrammer-bball-vis.R
Simple visualization of NBA player movements using the DiagrammeR R package
library(DiagrammeR)
library(magrittr)
library(visNetwork)
moments <-
'https://gist.githubusercontent.com/rich-iannone/9c4e50cd5d811b841349/raw/65bc97ddac2f9e52a4252fcf2060007fe1afeb7d/moment.csv' %>%
read_csv()
# Generate the court
court <-
@Sandy4321
Sandy4321 / get_teams_seasons_rosters.r
Created December 18, 2015 15:12 — forked from abresler/get_teams_seasons_rosters.r
Gets teams seasons roster
packages <- #need all of these installed including some from github
c(
'dplyr',
'magrittr',
'jsonlite',
'tidyr',
'stringr',
'lubridate',
'stringr',
'tidyr'
@Sandy4321
Sandy4321 / get_days_boxscores_nbastat_r
Created December 18, 2015 15:12 — forked from abresler/get_days_boxscores_nbastat_r
How to get a days games
devtools::install_github("abresler/nbastatR")
devtools::install_github("hadley/purrr")
games <-
nbastatR::get_days_games(date = "11-30-2015")
all_days_gamelogs <-
games$id.game %>%
purrr::map(function(x)
nbastatR::get_games_ids_box_score_tables(game_id = x,
tables = c('Traditional', 'Usage',