The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.
Streamlined creation of segments on the y-axis of ‘ggplot2’ plots
This project builds on top of gg.gap v1.4 by Jiacheng Lou, et al.
What changed with respect to upstream?
- Improved handling of subtitles and captions. These were duplicated and
placed in the gap between the new segments of the plot.
- Legends are now supported by the core functionality.
- The code was heavily refactored following the tidyverse style guide and Clean
Code principles.
- The project has a new name after lossing the punctuation mark from the
former name as per the recommendations of the style guide.
Future work:
- Support the creation of gaps on the x-axis
- Introduce testing
- Revise the examples provided
You can install gggap from CRAN:
install.packages("gggap")A development version can be retrieved from Github:
# install.packages("devtools")
devtools::install_github("cmoralesmx/gggap", ref="dev")data(mtcars)
library(ggplot2)
p <- ggplot(data = mtcars, aes(x = gear, fill = gear)) +
geom_bar() +
ggtitle("Number of Cars by Gears") +
xlab("Gears")
# single segments and missing `tick_width`
gggap(plot = p, segments = c(5, 10), ylim = c(0, 50))
# `tick_width` can be one or more numbers
gggap(
plot = p,
segments = c(5, 10),
tick_width = c(1, 10),
ylim = c(0, 50)
)
# segments list cantains more than one number vectors
gggap(
plot = p,
segments = list(c(2.5, 4),c(5, 10)),
tick_width = c(1, 0.5, 10),
ylim = c(0, 50))
# `rel_heights` can set the relative height for segments and segmented y-axis
gggap(
plot = p,
segments = list(c(2.5, 4),c(5, 10)),
tick_width = c(1, 0.5, 10),
rel_heights = c(0.2, 0, 0.2, 0,1),
ylim = c(0, 50)
)
# reversed y-axis
p <- ggplot(
data = mtcars,
aes(x = gear, fill = gear)
) +
geom_bar() +
ggtitle("Number of Cars by Gears") +
xlab("Gears")+
scale_y_continuous(trans = 'reverse')
# single segments and missing tick_width
gggap(plot = p, segments = c(10, 5), ylim = c(15, 0))
# for facet()
library(ggplot2)
p <- ggplot(mtcars, aes(mpg, hp)) + geom_point()
p1 <- p + facet_wrap(~cyl, scales = "free")
gggap(plot = p1, ylim = c(60, 200), segments = c(100, 120))These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.