rich-iannone

# Install the latest version of DiagrammeR from GitHub
devtools::install_github("rich-iannone/DiagrammeR")

# Ensure that the package is loaded
library("DiagrammeR")

# So, here's a script that essentially takes an empty graph series, and
# creates a new graph on each new day it is triggered. It will create
# random nodes each time it's triggered and add those nodes to the graph
# belonging to the current day. Throughout the script, '_SELF_' refers

hrbrmstr

library(ggplot2)
library(rbokeh)
library(htmlwidgets)

structure(list(wk = structure(c(16069, 16237, 16244, 16251, 16279,
16286, 16300, 16307, 16314, 16321, 16328, 16335, 16342, 16349,
16356, 16363, 16377, 16384, 16391, 16398, 16412, 16419, 16426,
16440, 16447, 16454, 16468, 16475, 16496, 16503, 16510, 16517,
16524, 16538, 16552, 16559, 16566, 16573), class = "Date"), n = c(1L,
1L, 1L, 1L, 3L, 1L, 3L, 2L, 4L, 2L, 3L, 2L, 5L, 5L, 1L, 1L, 3L,

timelyportfolio

added as d3_table() in d3r

---

Although very handy and useful, I think most new R developers do not even know that tables exist. They are a little tricky to use, but they offer some nice functionality. These tables become even more useful when we can visualize them as networks. This little bit of code is a rough first attempt at converting tables to network nodes and edges.

live example

jeroen

# Nested data
library(jsonlite)
mydata <- jsonlite::fromJSON('https://gist.githubusercontent.com/mbostock/4063269/raw/a05a94858375bd0ae023f6950a2b13fac5127637/flare.json')

# Root node
mydata$name
mydata$children$name

# First child
mydata$children[[1,"name"]]

hrbrmstr

Main differences are:

• All the initial data acquisition & munging is kept in one pipeline and the data structure is kept as a tbl_df
• I ended up having to use html_session since the site was rejecting the access (login req'd) w/o it
• The for loop is now an apply iteration and pbapply gives you a progress bar for free which is A Good Thing given how long that operation took :-)
• The move to pbapply makes it possible to do the row-binding and left-joining in a single pipeline, which keeps everything in a tbl_df.
• Your for solution can be made almost as efficient if you do a img_list <- vector("list", 150) so the list size is pre-allocated.

BTW: the popup code is brilliant and tigris is equally as brilliant!

jalapic

timelyportfolio

@jalapic did these really nice set of touch heatmap charts. On Twitter, there was a discussion how to do this interactively with d3.js or some other JavaScript. I definitely have some ideas how to accomplish this, but for now let's see how we can kind of do it in rbokeh. There is just a small issue with palette selection in Bokeh that does not let us allow a no color that prevents us from getting really close.

## https://gist.github.com/jalapic/3616c0197ece24060e99
library(rbokeh)
library(dplyr)

gana <- read.csv("https://gist.githubusercontent.com/jalapic/3616c0197ece24060e99/raw/2bc2361c5fceb9be80dece9b7ffa14d129a3edfb/gana.csv")

figure() %>%

hrbrmstr

library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)
library(scales)
library(gridExtra)
library(grid)

# use the NPR story data file ---------------------------------------------
# and be kind to NPR's bandwidth budget

timelyportfolio

I thought it would be interesting to produce an interactive parcoords version of the parallel coordinates chart in this post Looking After Datasets by Antony Unwin on the Revolution Analytics blog.

example

live example

code

# devtools::install_github("timelyportfolio/parcoords")
# install.packages("dynRB") # for the finch data
data("finch",package="dynRB")

slowkow

library(ggplot2)
library(FField)

# You'll have to play with repulsion, cex.x, and cex.y to get satisfactory results.
plot_text <- function(x, y, label, repulsion = 1, cex.x = 110, cex.y = 40) {
  dat <- data.frame(xpos = x, ypos = y, label = label)
  dat$label <- as.character(dat$label)
  
  # Use the FField package to repel the text labels away from each other.
  dat <- cbind(