Multiple pies facet_wrap in columns and rows in ggplot

Question

I would like to have a plot with three main columns (Variable Letter_ph), and 4 rows (Variable_tr), with full pies which are filled by the values from Type_tx.

Such as this

But I have this, can I please have some help? Thank you

data <- tibble::tibble(
          value = c(18.3,47.2,53.5,8.6,61.4,114.24,43.7,0,82.7,9.017,18.49,35.79,3.76,25.2,56.5,21.3,0,42.36,18.14,0,47.69,2.4,3.1,10.0,1.18,4.1,9.1,3.1,5.0,21.2,1.5,6.6,18.6,6.4,0,12.5),
  Letter_ph = c("I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F","I", "M", "F"),
      Variable_tr = rep(c(rep("A",3),rep("B",3),rep("C",3),rep("A",3),rep("B",3),rep("C",3),rep("A",3),rep("B",3),rep("C",3),rep("A",3),rep("B",3),rep("C",3))),
        Type_tx = rep(c(rep("T1",9),rep("T2",9),rep("T3",9), rep("T4", 9))))
        


ggplot( data, aes( x = "", y = Variable_tr, fill=Type_tx ) ) + 
      geom_bar( stat = "identity" ) + 
      facet_wrap( ~ Variable_tr, ncol=4 ) + 
   theme_classic()+
  theme(axis.text = element_blank(),
        axis.ticks = element_blank(),
        panel.grid  = element_blank())+ 
  coord_polar(theta='y', start = pi / 3)+
      xlab("Letter ph (IMF)")

Answer 1

You could use facet_grid:

ggplot( data, aes( x = "",  y=value,fill=Type_tx ) ) + 
  geom_bar( stat='Identity') + 
  facet_grid( vars(Letter_ph),vars(Variable_tr)   ) + 
  theme_classic()+
  theme(axis.text = element_blank(),
        axis.ticks = element_blank(),
        panel.grid  = element_blank())+ 
  coord_polar(theta='y', start = pi / 3)+
  xlab("Letter ph (IMF)")+ylab('Variable_tr')