Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/koundy/ggplot_theme_Publication
This repo consists of three themes for the ggplot2 and new colour palettes. Enjoy the new themes!
https://github.com/koundy/ggplot_theme_Publication
Last synced: 19 days ago
JSON representation
This repo consists of three themes for the ggplot2 and new colour palettes. Enjoy the new themes!
- Host: GitHub
- URL: https://github.com/koundy/ggplot_theme_Publication
- Owner: koundy
- Created: 2015-04-08T07:34:26.000Z (over 9 years ago)
- Default Branch: master
- Last Pushed: 2020-05-01T12:30:37.000Z (over 4 years ago)
- Last Synced: 2024-07-21T07:33:01.731Z (4 months ago)
- Language: R
- Homepage:
- Size: 1.37 MB
- Stars: 80
- Watchers: 7
- Forks: 22
- Open Issues: 1
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# ggplot theme for publication ready Plots
A ggplot theme which creates clean and simple graphics for plotting.
ggplot2 by [Hadley](https://github.com/hadley) is a very good package for data visualization in R. However the default plots made by the package requires some formatting before we can send them for publication. The package called [ggthemes](https://github.com/jrnold/ggthemes) was written by [Jeffrey](https://github.com/jrnold) for this purpose and provides some excellent themes. But I want to try myself and improvise on the this. So, I have written my own theme (ofcourse with the help of in-built functions from ggthemes thanks to Jeffrey). My main problems with the aesthetics of default ggplot are
* Plot background
* Title and axes labels Font and size
* Axes themselves
* Axis ticks
* Colors
* Legend position
So, here I tried to fix each one of them and create my own theme and color palette. This theme will produce plots with bold axes, bold axes labels and legend at the bottom leaving extra space for the plotting area. The color palette is also designed with the help of [color brewer](http://colorbrewer2.org/) using bold and contrasting colors so, one can easily distinguish any two colors . Feel free to comment and enjoy the theme if you like it.
## UPDATE
The following examples are updated to show only dark themes which are new. The good old `theme_Pulication` is also available.
# Examples of plots with dark themes
```r
suppressPackageStartupMessages(library(tidyverse))
suppressPackageStartupMessages(library(gridExtra))
source('~/ggplot_theme_Publication-2.R')
```
```r
Scatter <- ggplot(mtcars, aes(mpg,disp,color=factor(carb))) +
geom_point(size=3) +
labs(title="Scatter Plot")
#ggplotly(Scatter+ scale_colour_Publication() + theme_dark_blue())
grid.arrange((Scatter + scale_colour_Publication() + theme_dark_blue()),
(Scatter + scale_colour_Publication() + theme_dark_grey()),nrow=1)
```
```r
Bar <- ggplot(mtcars, aes(factor(carb),fill=factor(carb))) +
geom_bar(alpha=0.7) +
labs(title="Bar Plot")
#ggplotly(Bar + scale_colour_Publication() + theme_dark_blue())
grid.arrange((Bar + scale_fill_Publication() + theme_dark_blue()),
(Bar + scale_fill_Publication() + theme_dark_grey()),nrow=1)
```
```r
Bubble <- ggplot(mtcars, aes(mpg,disp,color=factor(carb),size=hp)) +
geom_point(alpha=0.7) +
labs(title="Bubble Plot") +
scale_size_continuous(range = c(3,10))
grid.arrange((Bubble + scale_colour_Publication() + theme_dark_blue()),
(Bubble + scale_colour_Publication() + theme_dark_grey()),nrow=1)
```
```r
library(reshape2)
```
```
##
## Attaching package: 'reshape2'
```
```
## The following object is masked from 'package:tidyr':
##
## smiths
```
```r
mtcars$Index <- 1:nrow(mtcars)
dat <- melt(mtcars,id.vars = c("Index"),measure.vars = c("drat","wt"))
Line <- ggplot(dat,aes(Index,value,colour=variable))+
geom_line(size=1.3) +
labs(title="Line Plot")
grid.arrange((Line + scale_colour_Publication() + theme_dark_blue()),
(Line + scale_colour_Publication() + theme_dark_grey()),nrow=1)
```
```r
P <- ggplot(data = mpg,aes(cty, hwy,color=class)) +
geom_point(size=3) +
facet_wrap(~ manufacturer,scales="free") +
labs(title="Plot With Facets")
P +scale_colour_Publication()+ theme_dark_grey()
```
```r
P +scale_colour_Publication()+ theme_dark_blue()
```
