Change facet label text and background colour

RGgplot2

R Problem Overview

How can I change the grey facet labels (A and B) into say red background with white text?

library(data.table)
A = data.table(x = 1:4, y = 1:4, z = c('A','A','B','B'))
ggplot(A) + geom_point(aes(x = x, y = y)) + facet_wrap(~z) + theme_bw()

enter image description here

R Solutions

Solution 1 - R

You can do:

ggplot(A) +
  geom_point(aes(x = x, y = y)) +
  facet_wrap(~z) +
  theme_bw()+
  theme(strip.background =element_rect(fill="red"))+
  theme(strip.text = element_text(colour = 'white'))

enter image description here

Solution 2 - R

For anyone else looking to change individual facet labels, there's a solution here:

g <- ggplot_gtable(ggplot_build(p))
stripr <- which(grepl('strip-r', g$layout$name))
fills <- c("red","green","blue","yellow")
k <- 1
for (i in stripr) {
  j <- which(grepl('rect', g$grobs[[i]]$grobs[[1]]$childrenOrder))
  g$grobs[[i]]$grobs[[1]]$children[[j]]$gp$fill <- fills[k]
  k <- k+1
}
grid::grid.draw(g)

enter image description here

Categories
Recommended R Solutions
Recommended Ggplot2 Solutions

Previous Solution:

Vue.JS value tied on input having the focus

vue.jsOnfocus

Next Solution:

Using media breakpoints in Bootstrap 4-alpha

Twitter BootstrapBootstrap 4Bootstrap 5

Attributions

All content for this solution is sourced from the original question on Stackoverflow.

The content on this page is licensed under the Attribution-ShareAlike 4.0 International (CC BY-SA 4.0) license.

Content TypeOriginal AuthorOriginal Content on Stackoverflow
Questionjf328View Question on Stackoverflow
Solution 1 - RHaborymeView Answer on Stackoverflow
Solution 2 - Rfilups21View Answer on Stackoverflow