Separate Boxplots with groups

[meitei]

I have the following boxplots.
How can I separate these boxplots into four group of boxplots.
Top row content separate boxplots of Jerry and Tom showing X and y
Bottom row content separate boxplots of Jerry and Tom showing a and b.

suppressPackageStartupMessages({
  library(dplyr, warn.conflicts = FALSE)
  library(data.table)
  library(ggplot2)
  library(tidyr)
})
dat=data.frame(
  name=c(rep("Tom",4),rep("Jerry",4)),
  Address=c(rep(c("X","y","a","b"),2)),
  Price=c(86,84,45,57,85,81,35,41)
)

dat=dat %>% 
  mutate(Address=factor(Address, levels =unique(Address)))

dat %>%
  group_by(name) %>%
  ggplot(aes(x = Address, y = Price, fill = Address)) +
  geom_boxplot(fatten = 1,outlier.size = 0.8,lwd=0.7) +
  facet_wrap(~ name)

[M_AcostaCH]

Is something like this:

dat %>%
  ggplot(aes(x = Address, y = Price, fill = Address)) +
  geom_boxplot(fatten = 1, outlier.size = 0.8, lwd = 0.7) +
  facet_grid(rows = vars(name), cols = vars(Address))

# maybe is better make a geom_point(), because you have only a number in Price and boxplot dont look very well

[meitei]

Thank you for your response. This loooks okay. However, I want to remove the unused x-axis names.
For instance, Only in first plot and b at last boxplot.
moreover, I was trying to use replex my problem with small sample size.

[Flm]

I think you need to do some testing manually. For example this could give you a hint on how to get started

Ggplot: How to remove axis labels on selected facets only?

One way to do this is to replace the year values with empty strings of progressively increasing length, and then set space="free_x" and scales="free_x" in facet_grid. You could just hard-code this for your example, but you could also try to make it more general to deal with arbitrary numbers of companies and years, as in the code below. First we use as.numeric to convert Company into its numeric factor codes and use these as a grouping variable. Then, when this code is odd (as tested by company.numeric %% 2 == 1), we replace the Year values with a sequence of blank strings (if Year isn't already sorted, it needs to be sorted before doing this). # For every other Company, replace Year with …