Alex Bresler abresler

R evangelist, data-hunter, seed investor, Angus MacGyver-ist

abresler / gist:3249776

Created August 3, 2012 17:26 — forked from christophergandrud/gist:1284498

Simple Web Crawler for Text

	library(foreign)
	library(RCurl)


	addresses <- read.csv("~/links.csv") # Create a .csv file with all of the links you want to crawl

	for (i in addresses) full.text <- getURL(i)

	text.sub <- gsub("<.+?>", "", full.text) # Removes HTML tags
	text <- data.frame(text.sub)

abresler / gist:3249788

Created August 3, 2012 17:27 — forked from christophergandrud/gist:1287427

Google Motion Chart of World Bank External Debt Data

	# Create Google Motion Chart from World Bank Finance Data
	# Inspired by http://lamages.blogspot.com/2011/09/accessing-and-plotting-world-bank-data.html
	# Written by Christopher Gandrud
	# 15 October 2011

	library(WDI)
	library(gregmisc)
	library(googleVis)

abresler / get_fed_speeches.R

Created August 3, 2012 17:27 — forked from christophergandrud/get_fed_speeches.R

Gather Fed Speeches

	## Download websites

	addresses <- read.csv("~/links.full.csv")

	for (i in addresses){
	fed.text <- getURL(i)
	}

	fed.df <- as.data.frame(fed.text)

abresler / get_fed_speeches.R

Created August 3, 2012 17:27 — forked from christophergandrud/get_fed_speeches.R

Gather Fed Speeches

	## Download websites

	addresses <- read.csv("~/links.full.csv")

	for (i in addresses){
	fed.text <- getURL(i)
	}

	fed.df <- as.data.frame(fed.text)

abresler / price_and_volume.R

Created October 27, 2012 20:10 — forked from dsparks/price_and_volume.R

Scraping and plotting InTrade data

	# Scraping and plotting InTrade data
	doInstall <- TRUE # Change to FALSE if you don't want packages installed.
	toInstall <- c("ggplot2", "lubridate")
	if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	# Fin the "contractId" of the contract in which you're interested
	# Let's try Barack Obama to win the third Presidential debate:
	# http://www.intrade.com/v4/markets/contract/?contractId=766623
	contractID <- 766623 # second debate is 766621

abresler / Background_lines.R

Created October 27, 2012 20:23 — forked from dsparks/Background_lines.R

Faceted plots with reference geometries

	# Better alternatives to 3-D
	# Here are some examples of what we don't want to do:
	# http://stackoverflow.com/questions/12765497/create-a-ribbon-plot

	doInstall <- TRUE # Change to FALSE if you don't want packages installed.
	toInstall <- c("ggplot2")
	if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	# Air passenger data. ts converted to long matrix:

abresler / twitter_search.R

Created December 9, 2012 02:36 — forked from dsparks/twitter_search.R

Twitter search

	doInstall <- TRUE
	toInstall <- c("twitteR", "lubridate")
	if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	searchTerms <- c("New York", "Los Angeles", "Chicago", "Houston", "Philadelphia",
	"Phoenix", "San Antonio", "San Diego", "Dallas", "San Jose",
	"Jacksonville", "Indianapolis", "Austin", "San Francisco",
	"Columbus", "Fort Worth", "Charlotte", "Detroit", "El Paso",
	"Memphis")

abresler / index.html

Created June 9, 2013 20:20

Scatterplot

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>

	<script src='http://polychart.com/s/third_party/polychart2.standalone.js' type='text/javascript'></script>

	<style>
	.rChart {
	display: block;

abresler / index.html

Created June 9, 2013 20:22

Multibar Chart

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>
	<link rel='stylesheet' href='http://nvd3.org/src/nv.d3.css'>

	<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.8.3/jquery.min.js' type='text/javascript'></script>
	<script src='http://d3js.org/d3.v2.min.js' type='text/javascript'></script>
	<script src='http://nvd3.org/nv.d3.js' type='text/javascript'></script>
	<script src='http://nvd3.org/lib/fisheye.js' type='text/javascript'></script>

abresler / index.html

Created June 9, 2013 20:27

Map Yo

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>
	<link rel='stylesheet' href='http://cdn.leafletjs.com/leaflet-0.5.1/leaflet.css'>

	<script src='http://cdn.leafletjs.com/leaflet-0.5.1/leaflet.js' type='text/javascript'></script>
	<script src='https://rawgithub.com/leaflet-extras/leaflet-providers/gh-pages/leaflet-providers.js' type='text/javascript'></script>

	<style>