- this slope chart will transition from one set of data to another on click of the update button.
To do:
- enable going back to original data on re-click
- color gradient based on difference between y1,y2
# Making an NHL Small Multiple | |
# this is only minimally annotated - sorry | |
# Libraries we'll use | |
library(dplyr) | |
library(magrittr) | |
library(XML) | |
library(ggthemes) | |
library(ggplot2) |
### Example Viridis Plot | |
library(ggplot2) | |
library(viridis) | |
library(season) | |
library(gridExtra) | |
pa<-ggplot(schz, aes(year, month, fill = SczBroad)) + | |
geom_tile(colour="gray20", size=1.5, stat="identity") + | |
scale_fill_viridis(option="A") + |
#Geom Tiling | |
df <- data.frame(Var1=rep(LETTERS[1:20],20), | |
Var2=rep(LETTERS[1:20],each=20), | |
Value=sample(1:100, replace=T, 400) | |
) | |
Simple Time Series based on code from d3noob and Scott Murray.
Block created by blockbuilder.
### Earnings Dumbbell Chart | |
library(ggplot2) | |
library(tidyr) | |
library(dplyr) | |
library(scales) | |
schoolearnings <- read.csv("schoolearnings.csv", stringsAsFactors=FALSE) | |
df <- schoolearnings %>% gather(gender,value,2:3) |
library(shiny) | |
library(dplyr) | |
library(rcdimple) | |
library(htmltools) | |
## INTERACTIVE APP | |
ex_data <- read.delim( | |
"http://pmsi-alignalytics.github.io/dimple/data/example_data.tsv" | |
) |
forked from emeeks's block: Simple Correlation Matrix - Labels Above Cells
forked from micahstubbs's block: Simple Correlation Matrix - Labels Above Cells