Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://rivasiker.github.io/ggHoriPlot/
A user-friendly, highly customizable R package for building horizon plots in ggplot2
https://rivasiker.github.io/ggHoriPlot/
data-science data-visualization ggplot2 horizon-plots r r-package
Last synced: 3 months ago
JSON representation
A user-friendly, highly customizable R package for building horizon plots in ggplot2
- Host: GitHub
- URL: https://rivasiker.github.io/ggHoriPlot/
- Owner: rivasiker
- Created: 2021-03-16T12:21:34.000Z (over 3 years ago)
- Default Branch: master
- Last Pushed: 2024-07-12T08:59:47.000Z (4 months ago)
- Last Synced: 2024-07-29T07:33:47.868Z (3 months ago)
- Topics: data-science, data-visualization, ggplot2, horizon-plots, r, r-package
- Language: R
- Homepage: https://rivasiker.github.io/ggHoriPlot/
- Size: 36.3 MB
- Stars: 138
- Watchers: 2
- Forks: 2
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
Awesome Lists containing this project
README
---
output: github_document
---```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/"
)
```# ggHoriPlot: horizon plots in ggplot2
[![R-CMD-check](https://github.com/rivasiker/ggHoriPlot/actions/workflows/check-standard.yaml/badge.svg)](https://github.com/rivasiker/ggHoriPlot/actions/workflows/check-standard.yaml)
[![CRAN](https://www.r-pkg.org/badges/version/ggHoriPlot)](https://CRAN.R-project.org/package=ggHoriPlot)
[![downloads](https://cranlogs.r-pkg.org/badges/grand-total/ggHoriPlot)](https://CRAN.R-project.org/package=ggHoriPlot)
[![codecov](https://codecov.io/gh/rivasiker/ggHoriPlot/branch/master/graph/badge.svg?token=8V5E63YVM2)](https://app.codecov.io/gh/rivasiker/ggHoriPlot)This package allows building horizon plots in ggplot2. You can learn more about the package in `vignette("ggHoriPlot")`.
## Installation
You can install `ggHoriPlot` from CRAN via:
``` r
install.packages("ggHoriPlot")
```You can also install the development version of the package from GitHub with the following command:
``` r
#install.packages("devtools")
devtools::install_github("rivasiker/ggHoriPlot")
```## Basic example
Load the libraries:
```{r libraries, warning=FALSE, message=FALSE}
library(tidyverse)
library(ggHoriPlot)
library(ggthemes)```
Load the dataset and calculate the cutpoints and origin:
```{r set}
utils::data(climate_CPH)cutpoints <- climate_CPH %>%
mutate(
outlier = between(
AvgTemperature,
quantile(AvgTemperature, 0.25, na.rm=T)-
1.5*IQR(AvgTemperature, na.rm=T),
quantile(AvgTemperature, 0.75, na.rm=T)+
1.5*IQR(AvgTemperature, na.rm=T))) %>%
filter(outlier)ori <- sum(range(cutpoints$AvgTemperature))/2
sca <- seq(range(cutpoints$AvgTemperature)[1],
range(cutpoints$AvgTemperature)[2],
length.out = 7)[-4]round(ori, 2) # The origin
round(sca, 2) # The horizon scale cutpoints
```
Build the horizon plots in `ggplot2` using `geom_horizon()`:
```{r CPH_climate}
climate_CPH %>% ggplot() +
geom_horizon(aes(date_mine,
AvgTemperature,
fill = ..Cutpoints..),
origin = ori, horizonscale = sca) +
scale_fill_hcl(palette = 'RdBu', reverse = T) +
facet_grid(Year~.) +
theme_few() +
theme(
panel.spacing.y=unit(0, "lines"),
strip.text.y = element_text(size = 7, angle = 0, hjust = 0),
axis.text.y = element_blank(),
axis.title.y = element_blank(),
axis.ticks.y = element_blank(),
panel.border = element_blank()
) +
scale_x_date(expand=c(0,0),
date_breaks = "1 month",
date_labels = "%b") +
xlab('Date') +
ggtitle('Average daily temperature in Copenhagen',
'from 1995 to 2019')```
## Learn more
You can check out the full functionality of `ggHoriPlot` in the following guides:
- [Getting started](https://rivasiker.github.io/ggHoriPlot/articles/ggHoriPlot.html)
- [Examples with real data](https://rivasiker.github.io/ggHoriPlot/articles/examples.html)