1

For the following sample df

df = data.frame(x = c(2,3,4),y = c(4,5,6),group.a= c("1","1","2"),group.b = c("a","b","b"))

I want to just add a horizontal line in-between the y axis facet grids and after browsing different posts here I have tried using the panel.border = element_rect() argument however that gives me all four borders (top, right, bottom, left)

ggplot(df,aes(x=x,y=y)) + facet_grid(group.a~group.b) + theme_minimal() +
    theme(legend.position = "bottom",
          legend.title = element_blank(),
          legend.direction = "horizontal",
          legend.margin = margin(-20,0,0,0),
          panel.grid = element_blank(),
          panel.border = element_rect(color = "black", fill = NA, size = .5)
          axis.text.x = element_blank(),
          axis.line.y = element_line(size = .5),
          axis.line.x = element_line(size = .5),
          strip.placement = "outside")

enter image description here

Is there a way to just have the bottom and left border of the panel borders? Thanks!

Jeff238
  • 396
  • 2
  • 15

1 Answers1

4

There aren't any theme elements that fit the bill here; you would need custom annotations. Fortunately, annotation_custom applies to each panel, so this can be done with a couple of lines of code

library(ggplot2)

df = data.frame(x = c(2,3,4),y = c(4,5,6),
                group.a= c("1","1","2"),group.b = c("a","b","b"))

ggplot(df,aes(x=x,y=y)) + 
  facet_grid(group.a~group.b) + 
  geom_point(col = "white") +
  theme_minimal() +
  annotation_custom(grid::linesGrob(y = c(0, 0), gp = grid::gpar(lwd = 3))) +
  annotation_custom(grid::linesGrob(x = c(0, 0), gp = grid::gpar(lwd = 3))) +
  theme(panel.grid = element_blank(),
        strip.placement = "outside",
        axis.text.x = element_blank())

enter image description here

Allan Cameron
  • 147,086
  • 7
  • 49
  • 87
  • Hi Allan thanks for the response, can I just ask is it possible to not have the two vertical lines in the middle (between facet a and b) so literally just adding the horizontal lines between facet 1 and 2? – Jeff238 Jul 31 '22 at 13:54
  • @Jeff238 yes, just remove the second `annotation_custom` – Allan Cameron Jul 31 '22 at 14:06