Adding horizontal title/label to bar charts in ggplot R-CodePudding

is there a way to plot a bar graph in ggplot and group the bars accordingly using a horizontal line with label. It should look something like in the image below but for multiple groups and bars in one single graph only.

For context, I'm planning to group three bars for each horizontal label in one graph. For example, the first 3 bars would represent my control, the next three bars would be for treatment 1, the next three would be for treatment 2, and so on.

Let me know if you have a template for making such a graph. Thanks!

CodePudding user response：

The default approach to achieve the kind of grouping would be via faceting, However, TBMK the default element_rect provided by ggplot2 does not offer the option to just draw a top line.

One option would be to create a custom theme element to achieve that. To this end I adapted the code for the default element_rect where I replaced the ´rectGrobby alinesGrob`.

Moreover, to also add the top lines for the axis labels I draw on ggh4x to add the axis labels via facets too. Doing so allows to use the custom theme element to add the top lines for the "axis labels" too (Of course would it be possible to create another custom theme element.).

Using mtcars as example data:

element_rect2 <- function(colour = NULL, size = NULL, linetype = NULL,
                          color = NULL, inherit.blank = FALSE) {
  if (!is.null(color)) {
    colour <- color
  }
  structure(list(
    colour = colour, size = size,
    linetype = linetype, inherit.blank = inherit.blank
  ),
  class = c("element_rect2", "element_rect", "element")
  )
}

element_grob.element_rect2 <- function(element, x = unit(c(0, 1), "npc"), y = unit(c(1, 1), "npc"),
                                       colour = NULL, size = NULL, linetype = NULL, ...) {
  gp <- grid::gpar(lwd = size, col = colour, lty = linetype)
  element_gp <- grid::gpar(lwd = element$size, col = element$colour, lty = element$linetype)
  gp <- modifyList(element_gp, gp)
  grid::linesGrob(x, y - unit(gp$lwd, unit = "pt"), gp = gp, ...)
}

library(ggplot2)
library(ggh4x)

ggplot(mtcars, aes(factor(cyl)))  
  geom_bar()  
  scale_y_continuous(expand = expansion(mult = c(0, .05)))  
  labs(x = NULL, y = NULL)  
  facet_wrap2(am ~ cyl,
    strip.position = "bottom", scales = "free_x",
    strip = strip_nested(
      background_x = list(
        element_rect2(size = 2),
        element_rect2(size = 2)
      ),
      by_layer_x = TRUE
    ),
    nrow = 1
  )  
  theme_minimal()  
  theme(
    panel.grid = element_blank(),
    axis.line.y = element_line(size = .75, lineend = "square"),
    axis.ticks.y = element_line(size = .75),
    axis.text.x = element_blank(),
    strip.placement = "outside"
  )

CodePudding user response：

You can use geom_bar() from the ggplot2 package to make similar looking bar plots.

library(ggplot2)
data(iris)
ggplot(iris, aes(x = Species, y = Petal.Length))   
  geom_bar(stat = "identity", fill = "black")  
  theme_bw()