library("devtools")
install_github("geomdöner", "tlevine")
Windows users also must first install Rtools.
library(geomdoner)
mpg$truck <- mpg$class
levels(mpg$truck) <- c(TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,TRUE)
mpg$y2008 <- mpg$year == 2008 # Alternative is 1999
mpg$id <- row.names(mpg)
set.seed(693)
ggplot(mpg[sample.int(nrow(mpg), 8),]) +
aes(label = paste0('Make #', id, ' (', manufacturer, ' ', model, ')'),
border = drv,
knoblauch = truck,
scharf = grepl('auto', trans),
zwiebeln = y2008,
tomaten = TRUE, salat = TRUE,
x = hwy, y = cty) +
xlab('Highway miles per gallon') +
ylab('City miles per gallon') +
ggtitle('Milage of eight automobile makes.\n(Each döner is a make.)') +
geom_text() + geom_doner()
Make #142 (nissan altima): döner box
- ohne knoblauch
- ohne kräuter
- ohne scharf
- ohne zwiebeln
- mit tomaten
- mit salat
Make #13 (audi a4 quattro): döner
- ohne knoblauch
- ohne kräuter
- ohne scharf
- ohne zwiebeln
- mit tomaten
- mit salat
Make #107 (honda civic): döner box
- ohne knoblauch
- ohne kräuter
- mit scharf
- mit zwiebeln
- mit tomaten
- mit salat
Make #86 (ford f150 pickup 4wd): döner
- mit knoblauch
- ohne kräuter
- ohne scharf
- ohne zwiebeln
- mit tomaten
- mit salat
Make #42 (dodge caravan 2wd): döner box
- ohne knoblauch
- ohne kräuter
- mit scharf
- mit zwiebeln
- mit tomaten
- mit salat
Make #98 (ford mustang): döner
- ohne knoblauch
- ohne kräuter
- mit scharf
- mit zwiebeln
- mit tomaten
- mit salat
Make #175 (toyota 4runner 4wd): döner
- mit knoblauch
- ohne kräuter
- mit scharf
- ohne zwiebeln
- mit tomaten
- mit salat
Make #118 (hyundai tiburon): döner box
- ohne knoblauch
- ohne kräuter
- ohne scharf
- mit zwiebeln
- mit tomaten
- mit salat