20 changed files with 547 additions and 290 deletions
|
Before Width: | Height: | Size: 35 KiB After Width: | Height: | Size: 35 KiB |
@ -0,0 +1,17 @@ |
|||||
|
## Test environments |
||||
|
* local OS X install, R 3.3.2 |
||||
|
* ubuntu 14.04 (on travis-ci), old, current, devel |
||||
|
* win-builder (devel and release) |
||||
|
|
||||
|
## R CMD check results |
||||
|
|
||||
|
0 errors | 0 warnings | 0 notes |
||||
|
|
||||
|
## Reverse dependencies |
||||
|
|
||||
|
This is a new release, so there are no reverse dependencies. |
||||
|
|
||||
|
--- |
||||
|
|
||||
|
* Fixes errors in the CRAN checks after the ggplot2 2.2.1 release |
||||
|
* Adds new functionality (new geoms and stats and scales) |
||||
@ -1,55 +0,0 @@ |
|||||
% Generated by roxygen2: do not edit by hand |
|
||||
% Please edit documentation in R/geom_twoway_bar.r |
|
||||
\name{geom_twoway_bar} |
|
||||
\alias{geom_twoway_bar} |
|
||||
\title{Two-way bar chart} |
|
||||
\usage{ |
|
||||
geom_twoway_bar(mapping = NULL, data = NULL, stat = "identity", |
|
||||
width = NULL, ..., na.rm = FALSE, show.legend = NA, |
|
||||
inherit.aes = TRUE) |
|
||||
} |
|
||||
\arguments{ |
|
||||
\item{mapping}{Set of aesthetic mappings created by \code{\link{aes}} or |
|
||||
\code{\link{aes_}}. If specified and \code{inherit.aes = TRUE} (the |
|
||||
default), it is combined with the default mapping at the top level of the |
|
||||
plot. You must supply \code{mapping} if there is no plot mapping.} |
|
||||
|
|
||||
\item{data}{The data to be displayed in this layer. There are three |
|
||||
options: |
|
||||
|
|
||||
If \code{NULL}, the default, the data is inherited from the plot |
|
||||
data as specified in the call to \code{\link{ggplot}}. |
|
||||
|
|
||||
A \code{data.frame}, or other object, will override the plot |
|
||||
data. All objects will be fortified to produce a data frame. See |
|
||||
\code{\link{fortify}} for which variables will be created. |
|
||||
|
|
||||
A \code{function} will be called with a single argument, |
|
||||
the plot data. The return value must be a \code{data.frame.}, and |
|
||||
will be used as the layer data.} |
|
||||
|
|
||||
\item{stat}{Override the default connection between \code{geom_bar} and |
|
||||
\code{stat_count}.} |
|
||||
|
|
||||
\item{width}{Bar width. By default, set to 90\% of the resolution of the data.} |
|
||||
|
|
||||
\item{...}{other arguments passed on to \code{\link{layer}}. These are |
|
||||
often aesthetics, used to set an aesthetic to a fixed value, like |
|
||||
\code{color = "red"} or \code{size = 3}. They may also be parameters |
|
||||
to the paired geom/stat.} |
|
||||
|
|
||||
\item{na.rm}{If \code{FALSE}, the default, missing values are removed with |
|
||||
a warning. If \code{TRUE}, missing values are silently removed.} |
|
||||
|
|
||||
\item{show.legend}{logical. Should this layer be included in the legends? |
|
||||
\code{NA}, the default, includes if any aesthetics are mapped. |
|
||||
\code{FALSE} never includes, and \code{TRUE} always includes.} |
|
||||
|
|
||||
\item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, |
|
||||
rather than combining with them. This is most useful for helper functions |
|
||||
that define both data and aesthetics and shouldn't inherit behaviour from |
|
||||
the default plot specification, e.g. \code{\link{borders}}.} |
|
||||
} |
|
||||
\description{ |
|
||||
Two-way bar chart |
|
||||
} |
|
||||
@ -0,0 +1,280 @@ |
|||||
|
--- |
||||
|
title: "ggalt examples" |
||||
|
author: "Bob Rudis" |
||||
|
date: "`r Sys.Date()`" |
||||
|
output: rmarkdown::html_vignette |
||||
|
vignette: > |
||||
|
%\VignetteIndexEntry{ggalt examples} |
||||
|
%\VignetteEngine{knitr::rmarkdown} |
||||
|
%\VignetteEncoding{UTF-8} |
||||
|
--- |
||||
|
```{r include=FALSE} |
||||
|
knitr::opts_chunk$set(collapse=TRUE, comment="##", fig.retina=1, fig.height=6, fig.width=8) |
||||
|
``` |
||||
|
```{r} |
||||
|
library(ggplot2) |
||||
|
library(gridExtra) |
||||
|
library(ggalt) |
||||
|
|
||||
|
# current verison |
||||
|
packageVersion("ggalt") |
||||
|
|
||||
|
set.seed(1492) |
||||
|
dat <- data.frame(x=c(1:10, 1:10, 1:10), |
||||
|
y=c(sample(15:30, 10), 2*sample(15:30, 10), 3*sample(15:30, 10)), |
||||
|
group=factor(c(rep(1, 10), rep(2, 10), rep(3, 10))) |
||||
|
) |
||||
|
``` |
||||
|
|
||||
|
### Splines! |
||||
|
|
||||
|
```{r splines} |
||||
|
ggplot(dat, aes(x, y, group=group, color=group)) + |
||||
|
geom_point() + |
||||
|
geom_line() |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point() + |
||||
|
geom_line() + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(spline_shape=-0.4, size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(spline_shape=0.4, size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(spline_shape=1, size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(spline_shape=0, size=0.5) |
||||
|
|
||||
|
ggplot(dat, aes(x, y, group=group, color=factor(group))) + |
||||
|
geom_point(color="black") + |
||||
|
geom_smooth(se=FALSE, linetype="dashed", size=0.5) + |
||||
|
geom_xspline(spline_shape=-1, size=0.5) |
||||
|
``` |
||||
|
|
||||
|
#### Alternate (better) density plots |
||||
|
|
||||
|
```{r bkde_ash} |
||||
|
# bkde |
||||
|
|
||||
|
data(geyser, package="MASS") |
||||
|
|
||||
|
ggplot(geyser, aes(x=duration)) + |
||||
|
stat_bkde(alpha=1/2) |
||||
|
|
||||
|
ggplot(geyser, aes(x=duration)) + |
||||
|
geom_bkde(alpha=1/2) |
||||
|
|
||||
|
ggplot(geyser, aes(x=duration)) + |
||||
|
stat_bkde(bandwidth=0.25) |
||||
|
|
||||
|
ggplot(geyser, aes(x=duration)) + |
||||
|
geom_bkde(bandwidth=0.25) |
||||
|
|
||||
|
set.seed(1492) |
||||
|
dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), |
||||
|
rating = c(rnorm(200),rnorm(200, mean=.8))) |
||||
|
|
||||
|
ggplot(dat, aes(x=rating, color=cond)) + geom_bkde(fill="#00000000") |
||||
|
|
||||
|
ggplot(dat, aes(x=rating, fill=cond)) + geom_bkde(alpha=0.3) |
||||
|
|
||||
|
# ash |
||||
|
|
||||
|
set.seed(1492) |
||||
|
dat <- data.frame(x=rnorm(100)) |
||||
|
grid.arrange(ggplot(dat, aes(x)) + stat_ash(), |
||||
|
ggplot(dat, aes(x)) + stat_bkde(), |
||||
|
ggplot(dat, aes(x)) + stat_density(), |
||||
|
nrow=3) |
||||
|
|
||||
|
cols <- RColorBrewer::brewer.pal(3, "Dark2") |
||||
|
ggplot(dat, aes(x)) + |
||||
|
stat_ash(alpha=1/3, fill=cols[3]) + |
||||
|
stat_bkde(alpha=1/3, fill=cols[2]) + |
||||
|
stat_density(alpha=1/3, fill=cols[1]) + |
||||
|
geom_rug() + |
||||
|
labs(x=NULL, y="density/estimate") + |
||||
|
scale_x_continuous(expand=c(0,0)) + |
||||
|
theme_bw() + |
||||
|
theme(panel.grid=element_blank()) + |
||||
|
theme(panel.border=element_blank()) |
||||
|
``` |
||||
|
|
||||
|
### Alternate 2D density plots |
||||
|
|
||||
|
```{r bkde2d} |
||||
|
m <- ggplot(faithful, aes(x = eruptions, y = waiting)) + |
||||
|
geom_point() + |
||||
|
xlim(0.5, 6) + |
||||
|
ylim(40, 110) |
||||
|
|
||||
|
m + geom_bkde2d(bandwidth=c(0.5, 4)) |
||||
|
|
||||
|
m + stat_bkde2d(bandwidth=c(0.5, 4), aes(fill = ..level..), geom = "polygon") |
||||
|
|
||||
|
``` |
||||
|
|
||||
|
### `coord_proj` LIVES! (still needs a teensy bit of work) |
||||
|
|
||||
|
```{r coord_proj} |
||||
|
world <- map_data("world") |
||||
|
world <- world[world$region != "Antarctica",] |
||||
|
|
||||
|
gg <- ggplot() |
||||
|
gg <- gg + geom_cartogram(data=world, map=world, |
||||
|
aes(x=long, y=lat, map_id=region)) |
||||
|
gg <- gg + coord_proj("+proj=wintri") |
||||
|
gg |
||||
|
``` |
||||
|
|
||||
|
### ProPublica StateFace |
||||
|
|
||||
|
```{r stateface} |
||||
|
# Run show_stateface() to see the location of the TTF StateFace font |
||||
|
# You need to install it for it to work |
||||
|
|
||||
|
set.seed(1492) |
||||
|
dat <- data.frame(state=state.abb, |
||||
|
x=sample(100, 50), |
||||
|
y=sample(100, 50), |
||||
|
col=sample(c("#b2182b", "#2166ac"), 50, replace=TRUE), |
||||
|
sz=sample(6:15, 50, replace=TRUE), |
||||
|
stringsAsFactors=FALSE) |
||||
|
gg <- ggplot(dat, aes(x=x, y=y)) |
||||
|
gg <- gg + geom_stateface(aes(label=state, color=col, size=sz)) |
||||
|
gg <- gg + scale_color_identity() |
||||
|
gg <- gg + scale_size_identity() |
||||
|
gg |
||||
|
``` |
||||
|
|
||||
|
### Encircling points automagically |
||||
|
|
||||
|
```{r encircle} |
||||
|
d <- data.frame(x=c(1,1,2),y=c(1,2,2)*100) |
||||
|
|
||||
|
gg <- ggplot(d,aes(x,y)) |
||||
|
gg <- gg + scale_x_continuous(expand=c(0.5,1)) |
||||
|
gg <- gg + scale_y_continuous(expand=c(0.5,1)) |
||||
|
|
||||
|
gg + geom_encircle(s_shape=1, expand=0) + geom_point() |
||||
|
|
||||
|
gg + geom_encircle(s_shape=1, expand=0.1, colour="red") + geom_point() |
||||
|
|
||||
|
gg + geom_encircle(s_shape=0.5, expand=0.1, colour="purple") + geom_point() |
||||
|
|
||||
|
gg + geom_encircle(data=subset(d, x==1), colour="blue", spread=0.02) + |
||||
|
geom_point() |
||||
|
|
||||
|
gg +geom_encircle(data=subset(d, x==2), colour="cyan", spread=0.04) + |
||||
|
geom_point() |
||||
|
|
||||
|
gg <- ggplot(mpg, aes(displ, hwy)) |
||||
|
gg + geom_encircle(data=subset(mpg, hwy>40)) + geom_point() |
||||
|
|
||||
|
ss <- subset(mpg,hwy>31 & displ<2) |
||||
|
|
||||
|
gg + geom_encircle(data=ss, colour="blue", s_shape=0.9, expand=0.07) + |
||||
|
geom_point() + geom_point(data=ss, colour="blue") |
||||
|
``` |
||||
|
|
||||
|
### Step ribbons |
||||
|
|
||||
|
```{r stepribbon} |
||||
|
x <- 1:10 |
||||
|
df <- data.frame(x=x, y=x+10, ymin=x+7, ymax=x+12) |
||||
|
|
||||
|
gg <- ggplot(df, aes(x, y)) |
||||
|
gg <- gg + geom_ribbon(aes(ymin=ymin, ymax=ymax), |
||||
|
stat="stepribbon", fill="#b2b2b2") |
||||
|
gg <- gg + geom_step(color="#2b2b2b") |
||||
|
gg |
||||
|
|
||||
|
gg <- ggplot(df, aes(x, y)) |
||||
|
gg <- gg + geom_ribbon(aes(ymin=ymin, ymax=ymax), |
||||
|
stat="stepribbon", fill="#b2b2b2", |
||||
|
direction="vh") |
||||
|
gg <- gg + geom_step(color="#2b2b2b") |
||||
|
gg |
||||
|
``` |
||||
|
|
||||
|
### Lollipop charts |
||||
|
|
||||
|
```{r lollipop} |
||||
|
df <- read.csv(text="category,pct |
||||
|
Other,0.09 |
||||
|
South Asian/South Asian Americans,0.12 |
||||
|
Interngenerational/Generational,0.21 |
||||
|
S Asian/Asian Americans,0.25 |
||||
|
Muslim Observance,0.29 |
||||
|
Africa/Pan Africa/African Americans,0.34 |
||||
|
Gender Equity,0.34 |
||||
|
Disability Advocacy,0.49 |
||||
|
European/European Americans,0.52 |
||||
|
Veteran,0.54 |
||||
|
Pacific Islander/Pacific Islander Americans,0.59 |
||||
|
Non-Traditional Students,0.61 |
||||
|
Religious Equity,0.64 |
||||
|
Caribbean/Caribbean Americans,0.67 |
||||
|
Latino/Latina,0.69 |
||||
|
Middle Eastern Heritages and Traditions,0.73 |
||||
|
Trans-racial Adoptee/Parent,0.76 |
||||
|
LBGTQ/Ally,0.79 |
||||
|
Mixed Race,0.80 |
||||
|
Jewish Heritage/Observance,0.85 |
||||
|
International Students,0.87", stringsAsFactors=FALSE, sep=",", header=TRUE) |
||||
|
|
||||
|
library(ggplot2) |
||||
|
library(ggalt) |
||||
|
library(scales) |
||||
|
|
||||
|
gg <- ggplot(df, aes(y=reorder(category, pct), x=pct)) |
||||
|
gg <- gg + geom_lollipop(point.colour="steelblue", point.size=2, horizontal=TRUE) |
||||
|
gg <- gg + scale_x_continuous(expand=c(0,0), labels=percent, |
||||
|
breaks=seq(0, 1, by=0.2), limits=c(0, 1)) |
||||
|
gg <- gg + labs(x=NULL, y=NULL, |
||||
|
title="SUNY Cortland Multicultural Alumni survey results", |
||||
|
subtitle="Ranked by race, ethnicity, home land and orientation\namong the top areas of concern", |
||||
|
caption="Data from http://stephanieevergreen.com/lollipop/") |
||||
|
gg <- gg + theme_minimal() |
||||
|
gg <- gg + theme(panel.grid.major.y=element_blank()) |
||||
|
gg <- gg + theme(panel.grid.minor=element_blank()) |
||||
|
gg <- gg + theme(axis.line.y=element_line(color="#2b2b2b", size=0.15)) |
||||
|
gg <- gg + theme(axis.text.y=element_text(margin=margin(r=0, l=0))) |
||||
|
gg <- gg + theme(plot.margin=unit(rep(30, 4), "pt")) |
||||
|
gg <- gg + theme(plot.title=element_text(face="bold")) |
||||
|
gg <- gg + theme(plot.subtitle=element_text(margin=margin(b=10))) |
||||
|
gg <- gg + theme(plot.caption=element_text(size=8, margin=margin(t=10))) |
||||
|
gg |
||||
|
``` |
||||
|
|
||||
|
### Dumbbell charts |
||||
|
|
||||
|
```{r dumbbell2, message=FALSE, fig.width=7, fig.height=2.5} |
||||
|
df <- data.frame(trt=LETTERS[1:5], l=c(20, 40, 10, 30, 50), r=c(70, 50, 30, 60, 80)) |
||||
|
|
||||
|
ggplot(df, aes(y=trt, x=l, xend=r)) + |
||||
|
geom_dumbbell(size=3, color="#e3e2e1", |
||||
|
colour_x = "#5b8124", colour_xend = "#bad744", |
||||
|
dot_guide=TRUE, dot_guide_size=0.25) + |
||||
|
labs(x=NULL, y=NULL, title="ggplot2 geom_dumbbell with dot guide") + |
||||
|
theme_minimal() + |
||||
|
theme(panel.grid.major.x=element_line(size=0.05)) |
||||
|
``` |
||||
Loading…
Reference in new issue