See http://animation.r-forge.r-project.org/knitr/ for a preview of all knitr themes in HTML, and http://rclickhandbuch.files.wordpress.com/2014/09/knitrthemesoverview.pdf for a preview in LaTeX (credit to Berry Boessenkool).
The knitr themes manual can be found at (Rnw source).
| ############################################################################### | |
| # This program is free software: you can redistribute it and/or modify | |
| # it under the terms of the GNU General Public License as published by | |
| # the Free Software Foundation, either version 3 of the License, or | |
| # (at your option) any later version. | |
| # | |
| # This program is distributed in the hope that it will be useful, | |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| # GNU General Public License for more details. |
| #' When plotting multiple data series that share a common x axis but different y axes, | |
| #' we can just plot each graph separately. This suffers from the drawback that the shared axis will typically | |
| #' not align across graphs due to different plot margins. | |
| #' One easy solution is to reshape2::melt() the data and use ggplot2's facet_grid() mapping. However, there is | |
| #' no way to label individual y axes. | |
| #' facet_grid() and facet_wrap() were designed to plot small multiples, where both x- and y-axis ranges are | |
| #' shared acros all plots in the facetting. While the facet_ calls allow us to use different scales with | |
| #' the \code{scales = "free"} argument, they should not be used this way. | |
| #' A more robust approach is to the grid package grid.draw(), rbind() and ggplotGrob() to create a grid of | |
| #' individual plots where the plot axes are properly aligned within the grid. |
| library(rgdal) | |
| library(rgeos) | |
| library(ggplot2) | |
| library(readr) | |
| library(tidyr) | |
| library(dplyr) | |
| library(grid) | |
| us <- readOGR("us_states_hexgrid.geojson", "OGRGeoJSON") |
| library("data.table") | |
| library("rowr") | |
| library("dplyr") | |
| library("ggplot2") | |
| library("Information") | |
| library("knitr") | |
| library("ggrepel") | |
| library("ggthemes") | |
| library("ggalt") | |
| library("xtable") |
| library(ggplot2) # devtools::install_github("hadley/ggplot2") or subtitles won't work | |
| library(tidyr) | |
| library(dplyr) | |
| library(readr) | |
| library(scales) | |
| URL <- "https://static01.nyt.com/newsgraphics/2016/04/21/undervote/ad8bd3e44231c1091e75621b9f27fe31d116999f/data.tsv" | |
| fil <- "nytimes_vote.tsv" | |
| if (!file.exists(fil)) download.file(URL, fil) |
| ## Purpose: illustrate use of magick, gganimate, and purrr | |
| ## Inspiration: | |
| ## https://rud.is/b/2016/07/27/u-s-drought-animations-with-the-witchs-brew-purrr-broom-magick/ | |
| ## and subsequent discussion on magick vs gganimate: | |
| ## https://twitter.com/hrbrmstr/status/758304420224466944 | |
| library(purrr) | |
| library(ggplot2) | |
| library(gganimate) | |
| library(animation) | |
| library(magick) |
| dualplot <- function(x1, y1, y2, x2 = x1, | |
| col = c("#C54E6D", "#009380"), | |
| lwd = c(1, 1), colgrid = NULL, | |
| mar = c(3, 6, 3, 6) + 0.1, | |
| ylab1 = paste(substitute(y1), collapse = ""), | |
| ylab2 = paste(substitute(y2), collapse = ""), | |
| nxbreaks = 5, | |
| yleg1 = paste(gsub("\n$", "", ylab1), "(left axis)"), | |
| yleg2 = paste(ylab2, "(right axis)"), | |
| ylim1 = NULL, ylim2 = NULL, ylim.ref = NULL, |
| library(rvest) | |
| library(tidyverse) | |
| library(ggbeeswarm) | |
| library(hrbrmisc) | |
| library(ggalt) | |
| library(gridExtra) | |
| sprintf("http://cran.rstudio.org/src/base/R-%d", 0:3) %>% | |
| map(read_html) %>% | |
| map(html_table) %>% |
