sivartravis

require(quantmod)
require(ggplot2)
require(reshape2)
require(plyr)
require(scales)

# Download some Data, e.g. the CBOE VIX 
getSymbols("^VIX",src="yahoo")

# Make a dataframe

sivartravis

library(rgdal)
library(rgeos)
library(ggplot2)
library(readr)
library(tidyr)
library(dplyr)
library(grid)

us <- readOGR("us_states_hexgrid.geojson", "OGRGeoJSON")

sivartravis

Built with blockbuilder.org

d3.js Exploding Boxplots from d3_exploding_boxplot in htmlwidget form for R

Installation

# get newest htmlwidgets

devtools::install_github("ramnathv/htmlwidgets")

sivartravis

#look at steps in constructing a horizon plot version
#of http://www.mebanefaber.com/timing-model/
#do horizon of percent above or below 10 month / 200 day moving average

require(lattice)
require(latticeExtra)
require(quantmod)


#since we are focused on the horizon plot, let's just look at one stock

sivartravis

library(magrittr)
library(dplyr)
library(nycflights13)
library(evaluate)
library(ggplot2)

# Define the plot
makeplot <- function(mydata){
  date <- as.Date(paste("2013", mydata[1,"month"], mydata[1,"day"], sep="-"))
  ggplot(mydata, aes(distance, arr_delay)) + 

sivartravis

(function() {
d3.layout.timeline = function() {
    var timelines = [];
    var dateAccessor = function (d) {return new Date(d)};
    var processedTimelines = [];
    var startAccessor = function (d) {return d.start};
    var endAccessor = function (d) {return d.end};
    var size = [500,100];
    var timelineExtent = [-Infinity, Infinity];
    var setExtent = [];

sivartravis

Stacked bars showing estimated religion by top 5 countries in 2010. This is an example from the tutorial Splitting Charts. The data shown is from this report on The Global Religious Landscape from Pew Research, generated using this processing script.

• Draws from Stacked-to-Grouped Bars
• Tooltip logic draws from World City Explorer

sivartravis

A small multiples visualization of donut charts showing the proportion and total number of lynchings by US State and by Race from 1882-1968. Area corresponds to the number of people lynched. The data from the Archives at Tuskegee Institute.

Inspired by

• American Lynches Map by @ Malcolm_Decuire
• State Grid by @enjalot - created in this Video of Block Remix

forked from curran's block: Lynchings by State Pie Charts

sivartravis

Updated reusable slopegraph sketch, from my previous slopegraph version

This version allows for multiple sets/columns and will adapted accordingly. Added some interaction to toggle the sets/columns and also toggle highlighted line.

data source

sivartravis

library(ggraph)
library(gganimate)
library(igraph)
# Data from http://konect.uni-koblenz.de/networks/sociopatterns-infectious
infect <- read.table('out.sociopatterns-infectious', skip = 2, sep = ' ', stringsAsFactors = FALSE)
infect$V3 <- NULL
names(infect) <- c('from', 'to', 'time')
infect$timebins <- as.numeric(cut(infect$time, breaks = 100))

# We want that nice fading effect so we need to add extra data for the trailing