How do I apply for loop for multiple comparisons statistics using ggpubr or rstatix in facet_wrap with free scales

Question

I am pretty new to coding and have been teaching myself R. I tried writing some code to carry out multiple comparison statistics for facet_wrap plots with free scales but I am u