- 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