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: about 2 months ago
JSON representation

ggplot2 tech themes, scales, and geoms

Lists

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)

```