Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/ricardo-bion/ggtech
ggplot2 tech themes, scales, and geoms
https://github.com/ricardo-bion/ggtech
Last synced: 2 months ago
JSON representation
ggplot2 tech themes, scales, and geoms
- Host: GitHub
- URL: https://github.com/ricardo-bion/ggtech
- Owner: ricardo-bion
- Created: 2015-04-02T19:00:39.000Z (almost 10 years ago)
- Default Branch: master
- Last Pushed: 2019-08-07T03:43:31.000Z (over 5 years ago)
- Last Synced: 2024-08-03T23:24:39.544Z (6 months ago)
- Language: R
- Homepage: https://twitter.com/ricardobion
- Size: 29.2 MB
- Stars: 387
- Watchers: 21
- Forks: 63
- Open Issues: 2
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
- awesome-r-dataviz - ggtech - ggplot2 tech themes, scales, and geoms . (ggplot / Themes)
README
---
title: "ggplot2 tech themes, scales, and geoms"
output:
html_document:
fig_height: 5
fig_width: 10
keep_md: yes
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(dpi=500)
options(warn=-1)
library(ggplot2)
```
### Install ggtech:
```{r, eval=FALSE}
devtools::install_github("ricardo-bion/ggtech",
dependencies=TRUE)
```
### Use ggtech:
Make sure to install the required fonts (instructions at the end of this file).
```{r}
library(ggtech)
d <- qplot(carat, data = diamonds[diamonds$color %in%LETTERS[4:7], ], geom = "histogram", bins=30, fill = color)
```
Tech themes and scales:
```{r}
d + theme_tech(theme="airbnb") +
scale_fill_tech(theme="airbnb") +
labs(title="Airbnb theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_airbnb_fancy() +
scale_fill_tech(theme="airbnb") +
labs(title="Airbnb theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_tech(theme="etsy") +
scale_fill_tech(theme="etsy") +
labs(title="Etsy theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_tech(theme="facebook") +
scale_fill_tech(theme="facebook") +
labs(title="Facebook theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_tech(theme="google") +
scale_fill_tech(theme="google") +
labs(title="Google theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_tech(theme="twitter") +
scale_fill_tech(theme="twitter") +
labs(title="Twitter theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d + theme_tech(theme="X23andme") +
scale_fill_tech(theme="X23andme") +
labs(title="23andme theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
Tech color scales:
```{r}
data("iris")
d1 <- qplot(x = Sepal.Length, y =Sepal.Width,colour = Species,data = iris,geom = "point")
```
```{r}
d1 + theme_tech(theme="airbnb") +
scale_color_tech(theme="airbnb") +
labs(title="Airbnb theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_airbnb_fancy() +
scale_color_tech(theme="airbnb") +
labs(title="Airbnb theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_tech(theme="etsy") +
scale_color_tech(theme="etsy") +
labs(title="Etsy theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_tech(theme="facebook") +
scale_color_tech(theme="facebook") +
labs(title="Facebook theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_tech(theme="google") +
scale_color_tech(theme="google") +
labs(title="Google theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_tech(theme="twitter") +
scale_color_tech(theme="twitter") +
labs(title="Twitter theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
```{r}
d1 + theme_tech(theme="X23andme") +
scale_color_tech(theme="X23andme") +
labs(title="23andme theme",
subtitle="now with subtitles for ggplot2 >= 2.1.0")
```
Tech geoms, inspired by [emoGG](https://github.com/dill/emoGG).
```{r}
d2 <- data.frame(x = c(1:4, 3:1), y=1:7)
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.25, theme="airbnb") +
theme_tech("airbnb") +
ggtitle("Airbnb geom")
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.15, theme="etsy") +
theme_tech("etsy")+
ggtitle("Etsy geom")
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.15, theme="facebook") +
theme_tech("facebook")+
ggtitle("Facebook geom")
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.25, theme="google") +
theme_tech("google" ) +
ggtitle("Google geom")
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.15, theme="twitter") +
theme_tech("twitter") +
ggtitle("Twitter geom")
```
```{r}
ggplot(aes(x,y), data=d2) +
geom_tech(size=0.15, theme="X23andme") +
theme_tech("X23andme") +
ggtitle("23andme geom")
```
### Install fonts:
You have to install the necessary fonts manually before using `ggtech`. Mofidy the `destfile` if you are using Windows or Unix.
```{r, eval=FALSE}
library(extrafont)
## Facebook
download.file("http://social-fonts.com/assets/fonts/facebook-letter-faces/facebook-letter-faces.ttf", "/Library/Fonts/facebook-letter-faces.ttf", method="curl")
font_import(pattern = 'facebook-letter-faces.ttf', prompt=FALSE)
## Google
download.file("http://social-fonts.com/assets/fonts/product-sans/product-sans.ttf", "/Library/Fonts/product-sans.ttf", method="curl")
font_import(pattern = 'product-sans.ttf', prompt=FALSE)
## Airbnb
download.file("https://dl.dropboxusercontent.com/u/2364714/airbnb_ttf_fonts/Circular%20Air-Medium%203.46.45%20PM.ttf", "/Library/Fonts/Circular Air-Medium 3.46.45 PM.ttf", method="curl")
download.file("https://dl.dropboxusercontent.com/u/2364714/airbnb_ttf_fonts/Circular%20Air-Bold%203.46.45%20PM.ttf", "/Library/Fonts/Circular Air-Bold 3.46.45 PM.ttf", method="curl")
font_import(pattern = 'Circular', prompt=FALSE)
## Etsy
download.file("https://www.etsy.com/assets/type/Guardian-EgypTT-Text-Regular.ttf", "/Library/Fonts/Guardian-EgypTT-Text-Regular.ttf", method="curl")
font_import(pattern = 'Guardian-EgypTT-Text-Regular.ttf', prompt=FALSE)
## Twitter
download.file("http://social-fonts.com/assets/fonts/pico-black/pico-black.ttf", "/Library/Fonts/pico-black.ttf", method="curl")
download.file("http://social-fonts.com/assets/fonts/arista-light/arista-light.ttf", "/Library/Fonts/arista-light.ttf", method="curl")
font_import(pattern = 'pico-black.ttf', prompt=FALSE)
font_import(pattern = 'arista-light.ttf', prompt=FALSE)
```