Skip to content

Instantly share code, notes, and snippets.

View meyera's full-sized avatar

Alexander Meyer meyera

View GitHub Profile
@meyera
meyera / viridis_scales.R
Created July 12, 2016 07:14 — forked from hrbrmstr/viridis_scales.R
viridis color/fill scales for ggplot2
viridis_pal <- function(alpha=1) {
function(n) {
viridis(n, alpha)
}
}
scale_color_viridis <- function(..., alpha=1, discrete=TRUE) {
if (discrete) {
discrete_scale("colour", "viridis", viridis_pal(alpha), ...)
#' ---
#' output:
#' html_document:
#' keep_md: TRUE
#' ---
#+ include = FALSE
library(dplyr)
#' Responses to [my