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