I spent some time trying to modify the following code so that the data for each variable aligns with each grey concentric circle. This is my last post (Adding grey concentric circles to circular boxplot background) which relates to this question, but now I am adding two more variables and they do not align with the two extra grey concentric circles I have successfully added to the plot.
Here is my data:
dput(BAT_sample)
structure(list(sample = c("BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT", "BAT",
"BAT"), process = c("Cell_cycle", "Cell_cycle", "Cell_cycle",
"Cell_cycle", "Cell_cycle", "Cell_cycle", "Cell_cycle", "Cell_cycle",
"Cell_cycle", "Cell_cycle", "Cell_cycle", "Cell_cycle", "ECM",
"ECM", "ECM", "ECM", "ECM", "ECM", "ECM", "ECM", "ECM", "ECM",
"ECM", "ECM", "ECM", "ECM", "ECM", "Immune", "Immune", "Immune",
"Immune", "Immune", "Immune", "Immune", "Immune", "Immune", "Immune",
"Immune", "Immune", "Immune", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Localization", "Localization",
"Localization", "Localization", "Metabolism", "Metabolism", "Metabolism",
"Metabolism", "Metabolism", "Metabolism", "Metabolism", "Metabolism",
"Metabolism", "Metabolism", "Metabolism", "Metabolism", "Signaling",
"Signaling", "Signaling", "Signaling", "Signaling", "Signaling",
"Signaling", "Signaling", "Signaling", "Signaling", "Signaling",
"Signaling", "Transcription", "Transcription", "Transcription",
"Transcription", "Transcription", "Transcription", "Transcription",
"Transcription", "Translation", "Translation", "Translation",
"Translation", "Translation"), pathway = c("REACTOME_M_PHASE",
"REACTOME_MITOTIC_G1_PHASE_AND_G1_S_TRANSITION", "REACTOME_MITOTIC_G2_G2_M_PHASES",
"REACTOME_MITOTIC_METAPHASE_AND_ANAPHASE", "REACTOME_MITOTIC_PROMETAPHASE",
"REACTOME_MITOTIC_PROPHASE", "REACTOME_MITOTIC_SPINDLE_CHECKPOINT",
"REACTOME_RECOGNITION_OF_DNA_DAMAGE_BY_PCNA_CONTAINING_REPLICATION_COMPLEX",
"REACTOME_RECRUITMENT_OF_NUMA_TO_MITOTIC_CENTROSOMES", "REACTOME_RESOLUTION_OF_SISTER_CHROMATID_COHESION",
"REACTOME_S_PHASE", "REACTOME_TP53_REGULATES_TRANSCRIPTION_OF_DNA_REPAIR_GENES",
"HALLMARK_EPITHELIAL_MESENCHYMAL_TRANSITION", "KEGG_CELL_ADHESION_MOLECULES_CAMS",
"KEGG_ECM_RECEPTOR_INTERACTION", "KEGG_FOCAL_ADHESION", "REACTOME_ANCHORING_OF_THE_BASAL_BODY_TO_THE_PLASMA_MEMBRANE",
"REACTOME_CELL_CELL_COMMUNICATION", "REACTOME_COLLAGEN_BIOSYNTHESIS_AND_MODIFYING_ENZYMES",
"REACTOME_COLLAGEN_CHAIN_TRIMERIZATION", "REACTOME_COLLAGEN_DEGRADATION",
"REACTOME_COLLAGEN_FORMATION", "REACTOME_DEGRADATION_OF_THE_EXTRACELLULAR_MATRIX",
"REACTOME_ECM_PROTEOGLYCANS", "REACTOME_EXTRACELLULAR_MATRIX_ORGANIZATION",
"REACTOME_INTEGRIN_CELL_SURFACE_INTERACTIONS", "REACTOME_NCAM1_INTERACTIONS",
"HALLMARK_HYPOXIA", "HALLMARK_IL2_STAT5_SIGNALING", "HALLMARK_INTERFERON_ALPHA_RESPONSE",
"HALLMARK_TGF_BETA_SIGNALING", "KEGG_ADIPOCYTOKINE_SIGNALING_PATHWAY",
"KEGG_ALZHEIMERS_DISEASE", "KEGG_APOPTOSIS", "KEGG_BLADDER_CANCER",
"KEGG_CHEMOKINE_SIGNALING_PATHWAY", "KEGG_CHRONIC_MYELOID_LEUKEMIA",
"KEGG_GLIOMA", "KEGG_HUNTINGTONS_DISEASE", "REACTOME_TOLL_LIKE_RECEPTOR_CASCADES",
"HALLMARK_PROTEIN_SECRETION", "HALLMARK_UNFOLDED_PROTEIN_RESPONSE",
"KEGG_ENDOCYTOSIS", "KEGG_LYSOSOME", "KEGG_SNARE_INTERACTIONS_IN_VESICULAR_TRANSPORT",
"KEGG_UBIQUITIN_MEDIATED_PROTEOLYSIS", "REACTOME_CLATHRIN_MEDIATED_ENDOCYTOSIS",
"REACTOME_COPI_DEPENDENT_GOLGI_TO_ER_RETROGRADE_TRAFFIC", "REACTOME_COPI_MEDIATED_ANTEROGRADE_TRANSPORT",
"REACTOME_COPII_MEDIATED_VESICLE_TRANSPORT", "REACTOME_ENDOSOMAL_SORTING_COMPLEX_REQUIRED_FOR_TRANSPORT_ESCRT",
"REACTOME_ER_TO_GOLGI_ANTEROGRADE_TRANSPORT", "REACTOME_GOLGI_TO_ER_RETROGRADE_TRANSPORT",
"REACTOME_INTRA_GOLGI_AND_RETROGRADE_GOLGI_TO_ER_TRAFFIC", "REACTOME_INTRA_GOLGI_TRAFFIC",
"REACTOME_LYSOSOME_VESICLE_BIOGENESIS", "REACTOME_MEMBRANE_TRAFFICKING",
"REACTOME_POST_TRANSLATIONAL_PROTEIN_MODIFICATION", "REACTOME_PROTEIN_LOCALIZATION",
"REACTOME_RAB_GEFS_EXCHANGE_GTP_FOR_GDP_ON_RABS", "REACTOME_RAB_GERANYLGERANYLATION",
"REACTOME_RAB_REGULATION_OF_TRAFFICKING", "REACTOME_TBC_RABGAPS",
"REACTOME_TRANS_GOLGI_NETWORK_VESICLE_BUDDING", "REACTOME_TRANSPORT_OF_MATURE_TRANSCRIPT_TO_CYTOPLASM",
"REACTOME_TRANSPORT_TO_THE_GOLGI_AND_SUBSEQUENT_MODIFICATION",
"REACTOME_VEGFR2_MEDIATED_VASCULAR_PERMEABILITY", "REACTOME_VESICLE_MEDIATED_TRANSPORT",
"HALLMARK_CHOLESTEROL_HOMEOSTASIS", "HALLMARK_GLYCOLYSIS", "HALLMARK_OXIDATIVE_PHOSPHORYLATION",
"KEGG_AMINOACYL_TRNA_BIOSYNTHESIS", "KEGG_CITRATE_CYCLE_TCA_CYCLE",
"KEGG_FATTY_ACID_METABOLISM", "KEGG_GLYCEROPHOSPHOLIPID_METABOLISM",
"KEGG_OXIDATIVE_PHOSPHORYLATION", "KEGG_PURINE_METABOLISM", "KEGG_PYRIMIDINE_METABOLISM",
"KEGG_STEROID_BIOSYNTHESIS", "REACTOME_CHOLESTEROL_BIOSYNTHESIS",
"HALLMARK_KRAS_SIGNALING_UP", "REACTOME_CDC42_GTPASE_CYCLE",
"REACTOME_INTRACELLULAR_SIGNALING_BY_SECOND_MESSENGERS", "REACTOME_RAC1_GTPASE_CYCLE",
"REACTOME_RAC2_GTPASE_CYCLE", "REACTOME_RAC3_GTPASE_CYCLE", "REACTOME_RAS_PROCESSING",
"REACTOME_REGULATION_OF_RAS_BY_GAPS", "REACTOME_RHO_GTPASE_CYCLE",
"REACTOME_RHO_GTPASE_EFFECTORS", "REACTOME_RHO_GTPASES_ACTIVATE_FORMINS",
"REACTOME_RHOA_GTPASE_CYCLE", "KEGG_RNA_POLYMERASE", "KEGG_SPLICEOSOME",
"REACTOME_ACTIVATION_OF_THE_MRNA_UPON_BINDING_OF_THE_CAP_BINDING_COMPLEX_AND_EIFS_AND_SUBSEQUENT_BINDING_TO_43S",
"REACTOME_FORMATION_OF_RNA_POL_II_ELONGATION_COMPLEX", "REACTOME_FORMATION_OF_TC_NER_PRE_INCISION_COMPLEX",
"REACTOME_FORMATION_OF_THE_EARLY_ELONGATION_COMPLEX", "REACTOME_GENE_EXPRESSION_TRANSCRIPTION",
"REACTOME_GENERIC_TRANSCRIPTION_PATHWAY", "KEGG_RIBOSOME", "REACTOME_EUKARYOTIC_TRANSLATION_INITIATION",
"REACTOME_FORMATION_OF_A_POOL_OF_FREE_40S_SUBUNITS", "REACTOME_MITOCHONDRIAL_TRANSLATION",
"REACTOME_TRANSLATION"), label = c("BAT_REACTOME_M_PHASE(390)",
"BAT_REACTOME_MITOTIC_G1_PHASE_AND_G1_S_TRANSITION(130)", "BAT_REACTOME_MITOTIC_G2_G2_M_PHASES(183)",
"BAT_REACTOME_MITOTIC_METAPHASE_AND_ANAPHASE(225)", "BAT_REACTOME_MITOTIC_PROMETAPHASE(193)",
"BAT_REACTOME_MITOTIC_PROPHASE(121)", "BAT_REACTOME_MITOTIC_SPINDLE_CHECKPOINT(111)",
"BAT_REACTOME_RECOGNITION_OF_DNA_DAMAGE_BY_PCNA_CONTAINING_REPLICATION_COMPLEX(30)",
"BAT_REACTOME_RECRUITMENT_OF_NUMA_TO_MITOTIC_CENTROSOMES(88)",
"BAT_REACTOME_RESOLUTION_OF_SISTER_CHROMATID_COHESION(122)",
"BAT_REACTOME_S_PHASE(148)", "BAT_REACTOME_TP53_REGULATES_TRANSCRIPTION_OF_DNA_REPAIR_GENES(43)",
"BAT_HALLMARK_EPITHELIAL_MESENCHYMAL_TRANSITION(194)", "BAT_KEGG_CELL_ADHESION_MOLECULES_CAMS(127)",
"BAT_KEGG_ECM_RECEPTOR_INTERACTION(83)", "BAT_KEGG_FOCAL_ADHESION(197)",
"BAT_REACTOME_ANCHORING_OF_THE_BASAL_BODY_TO_THE_PLASMA_MEMBRANE(95)",
"BAT_REACTOME_CELL_CELL_COMMUNICATION(88)", "BAT_REACTOME_COLLAGEN_BIOSYNTHESIS_AND_MODIFYING_ENZYMES(65)",
"BAT_REACTOME_COLLAGEN_CHAIN_TRIMERIZATION(37)", "BAT_REACTOME_COLLAGEN_DEGRADATION(55)",
"BAT_REACTOME_COLLAGEN_FORMATION(77)", "BAT_REACTOME_DEGRADATION_OF_THE_EXTRACELLULAR_MATRIX(108)",
"BAT_REACTOME_ECM_PROTEOGLYCANS(47)", "BAT_REACTOME_EXTRACELLULAR_MATRIX_ORGANIZATION(246)",
"BAT_REACTOME_INTEGRIN_CELL_SURFACE_INTERACTIONS(73)", "BAT_REACTOME_NCAM1_INTERACTIONS(17)",
"BAT_HALLMARK_HYPOXIA(199)", "BAT_HALLMARK_IL2_STAT5_SIGNALING(199)",
"BAT_HALLMARK_INTERFERON_ALPHA_RESPONSE(94)", "BAT_HALLMARK_TGF_BETA_SIGNALING(53)",
"BAT_KEGG_ADIPOCYTOKINE_SIGNALING_PATHWAY(67)", "BAT_KEGG_ALZHEIMERS_DISEASE(161)",
"BAT_KEGG_APOPTOSIS(82)", "BAT_KEGG_BLADDER_CANCER(41)", "BAT_KEGG_CHEMOKINE_SIGNALING_PATHWAY(175)",
"BAT_KEGG_CHRONIC_MYELOID_LEUKEMIA(73)", "BAT_KEGG_GLIOMA(64)",
"BAT_KEGG_HUNTINGTONS_DISEASE(173)", "BAT_REACTOME_TOLL_LIKE_RECEPTOR_CASCADES(146)",
"BAT_HALLMARK_PROTEIN_SECRETION(94)", "BAT_HALLMARK_UNFOLDED_PROTEIN_RESPONSE(111)",
"BAT_KEGG_ENDOCYTOSIS(180)", "BAT_KEGG_LYSOSOME(119)", "BAT_KEGG_SNARE_INTERACTIONS_IN_VESICULAR_TRANSPORT(36)",
"BAT_KEGG_UBIQUITIN_MEDIATED_PROTEOLYSIS(132)", "BAT_REACTOME_CLATHRIN_MEDIATED_ENDOCYTOSIS(141)",
"BAT_REACTOME_COPI_DEPENDENT_GOLGI_TO_ER_RETROGRADE_TRAFFIC(96)",
"BAT_REACTOME_COPI_MEDIATED_ANTEROGRADE_TRANSPORT(95)", "BAT_REACTOME_COPII_MEDIATED_VESICLE_TRANSPORT(68)",
"BAT_REACTOME_ENDOSOMAL_SORTING_COMPLEX_REQUIRED_FOR_TRANSPORT_ESCRT(31)",
"BAT_REACTOME_ER_TO_GOLGI_ANTEROGRADE_TRANSPORT(148)", "BAT_REACTOME_GOLGI_TO_ER_RETROGRADE_TRANSPORT(129)",
"BAT_REACTOME_INTRA_GOLGI_AND_RETROGRADE_GOLGI_TO_ER_TRAFFIC(187)",
"BAT_REACTOME_INTRA_GOLGI_TRAFFIC(37)", "BAT_REACTOME_LYSOSOME_VESICLE_BIOGENESIS(34)",
"BAT_REACTOME_MEMBRANE_TRAFFICKING(562)", "BAT_REACTOME_POST_TRANSLATIONAL_PROTEIN_MODIFICATION(1310)",
"BAT_REACTOME_PROTEIN_LOCALIZATION(103)", "BAT_REACTOME_RAB_GEFS_EXCHANGE_GTP_FOR_GDP_ON_RABS(89)",
"BAT_REACTOME_RAB_GERANYLGERANYLATION(62)", "BAT_REACTOME_RAB_REGULATION_OF_TRAFFICKING(115)",
"BAT_REACTOME_TBC_RABGAPS(34)", "BAT_REACTOME_TRANS_GOLGI_NETWORK_VESICLE_BUDDING(71)",
"BAT_REACTOME_TRANSPORT_OF_MATURE_TRANSCRIPT_TO_CYTOPLASM(79)",
"BAT_REACTOME_TRANSPORT_TO_THE_GOLGI_AND_SUBSEQUENT_MODIFICATION(178)",
"BAT_REACTOME_VEGFR2_MEDIATED_VASCULAR_PERMEABILITY(29)", "BAT_REACTOME_VESICLE_MEDIATED_TRANSPORT(709)",
"BAT_HALLMARK_CHOLESTEROL_HOMEOSTASIS(71)", "BAT_HALLMARK_GLYCOLYSIS(200)",
"BAT_HALLMARK_OXIDATIVE_PHOSPHORYLATION(195)", "BAT_KEGG_AMINOACYL_TRNA_BIOSYNTHESIS(41)",
"BAT_KEGG_CITRATE_CYCLE_TCA_CYCLE(30)", "BAT_KEGG_FATTY_ACID_METABOLISM(40)",
"BAT_KEGG_GLYCEROPHOSPHOLIPID_METABOLISM(76)", "BAT_KEGG_OXIDATIVE_PHOSPHORYLATION(128)",
"BAT_KEGG_PURINE_METABOLISM(157)", "BAT_KEGG_PYRIMIDINE_METABOLISM(96)",
"BAT_KEGG_STEROID_BIOSYNTHESIS(17)", "BAT_REACTOME_CHOLESTEROL_BIOSYNTHESIS(28)",
"BAT_HALLMARK_KRAS_SIGNALING_UP(198)", "BAT_REACTOME_CDC42_GTPASE_CYCLE(94)",
"BAT_REACTOME_INTRACELLULAR_SIGNALING_BY_SECOND_MESSENGERS(260)",
"BAT_REACTOME_RAC1_GTPASE_CYCLE(172)", "BAT_REACTOME_RAC2_GTPASE_CYCLE(85)",
"BAT_REACTOME_RAC3_GTPASE_CYCLE(91)", "BAT_REACTOME_RAS_PROCESSING(29)",
"BAT_REACTOME_REGULATION_OF_RAS_BY_GAPS(67)", "BAT_REACTOME_RHO_GTPASE_CYCLE(421)",
"BAT_REACTOME_RHO_GTPASE_EFFECTORS(245)", "BAT_REACTOME_RHO_GTPASES_ACTIVATE_FORMINS(135)",
"BAT_REACTOME_RHOA_GTPASE_CYCLE(141)", "BAT_KEGG_RNA_POLYMERASE(27)",
"BAT_KEGG_SPLICEOSOME(123)", "BAT_REACTOME_ACTIVATION_OF_THE_MRNA_UPON_BINDING_OF_THE_CAP_BINDING_COMPLEX_AND_EIFS_AND_SUBSEQUENT_BINDING_TO_43S(60)",
"BAT_REACTOME_FORMATION_OF_RNA_POL_II_ELONGATION_COMPLEX(55)",
"BAT_REACTOME_FORMATION_OF_TC_NER_PRE_INCISION_COMPLEX(53)",
"BAT_REACTOME_FORMATION_OF_THE_EARLY_ELONGATION_COMPLEX(32)",
"BAT_REACTOME_GENE_EXPRESSION_TRANSCRIPTION(1061)", "BAT_REACTOME_GENERIC_TRANSCRIPTION_PATHWAY(842)",
"BAT_KEGG_RIBOSOME(84)", "BAT_REACTOME_EUKARYOTIC_TRANSLATION_INITIATION(118)",
"BAT_REACTOME_FORMATION_OF_A_POOL_OF_FREE_40S_SUBUNITS(100)",
"BAT_REACTOME_MITOCHONDRIAL_TRANSLATION(89)", "BAT_REACTOME_TRANSLATION(227)"
), label2 = c("REACTOME_M_PHASE(390)", "REACTOME_MITOTIC_G1_PHASE_AND_G1_S_TRANSITION(130)",
"REACTOME_MITOTIC_G2_G2_M_PHASES(183)", "REACTOME_MITOTIC_METAPHASE_AND_ANAPHASE(225)",
"REACTOME_MITOTIC_PROMETAPHASE(193)", "REACTOME_MITOTIC_PROPHASE(121)",
"REACTOME_MITOTIC_SPINDLE_CHECKPOINT(111)", "REACTOME_RECOGNITION_OF_DNA_DAMAGE_BY_PCNA_CONTAINING_REPLICATION_COMPLEX(30)",
"REACTOME_RECRUITMENT_OF_NUMA_TO_MITOTIC_CENTROSOMES(88)", "REACTOME_RESOLUTION_OF_SISTER_CHROMATID_COHESION(122)",
"REACTOME_S_PHASE(148)", "REACTOME_TP53_REGULATES_TRANSCRIPTION_OF_DNA_REPAIR_GENES(43)",
"HALLMARK_EPITHELIAL_MESENCHYMAL_TRANSITION(194)", "KEGG_CELL_ADHESION_MOLECULES_CAMS(127)",
"KEGG_ECM_RECEPTOR_INTERACTION(83)", "KEGG_FOCAL_ADHESION(197)",
"REACTOME_ANCHORING_OF_THE_BASAL_BODY_TO_THE_PLASMA_MEMBRANE(95)",
"REACTOME_CELL_CELL_COMMUNICATION(88)", "REACTOME_COLLAGEN_BIOSYNTHESIS_AND_MODIFYING_ENZYMES(65)",
"REACTOME_COLLAGEN_CHAIN_TRIMERIZATION(37)", "REACTOME_COLLAGEN_DEGRADATION(55)",
"REACTOME_COLLAGEN_FORMATION(77)", "REACTOME_DEGRADATION_OF_THE_EXTRACELLULAR_MATRIX(108)",
"REACTOME_ECM_PROTEOGLYCANS(47)", "REACTOME_EXTRACELLULAR_MATRIX_ORGANIZATION(246)",
"REACTOME_INTEGRIN_CELL_SURFACE_INTERACTIONS(73)", "REACTOME_NCAM1_INTERACTIONS(17)",
"HALLMARK_HYPOXIA(199)", "HALLMARK_IL2_STAT5_SIGNALING(199)",
"HALLMARK_INTERFERON_ALPHA_RESPONSE(94)", "HALLMARK_TGF_BETA_SIGNALING(53)",
"KEGG_ADIPOCYTOKINE_SIGNALING_PATHWAY(67)", "KEGG_ALZHEIMERS_DISEASE(161)",
"KEGG_APOPTOSIS(82)", "KEGG_BLADDER_CANCER(41)", "KEGG_CHEMOKINE_SIGNALING_PATHWAY(175)",
"KEGG_CHRONIC_MYELOID_LEUKEMIA(73)", "KEGG_GLIOMA(64)", "KEGG_HUNTINGTONS_DISEASE(173)",
"REACTOME_TOLL_LIKE_RECEPTOR_CASCADES(146)", "HALLMARK_PROTEIN_SECRETION(94)",
"HALLMARK_UNFOLDED_PROTEIN_RESPONSE(111)", "KEGG_ENDOCYTOSIS(180)",
"KEGG_LYSOSOME(119)", "KEGG_SNARE_INTERACTIONS_IN_VESICULAR_TRANSPORT(36)",
"KEGG_UBIQUITIN_MEDIATED_PROTEOLYSIS(132)", "REACTOME_CLATHRIN_MEDIATED_ENDOCYTOSIS(141)",
"REACTOME_COPI_DEPENDENT_GOLGI_TO_ER_RETROGRADE_TRAFFIC(96)",
"REACTOME_COPI_MEDIATED_ANTEROGRADE_TRANSPORT(95)", "REACTOME_COPII_MEDIATED_VESICLE_TRANSPORT(68)",
"REACTOME_ENDOSOMAL_SORTING_COMPLEX_REQUIRED_FOR_TRANSPORT_ESCRT(31)",
"REACTOME_ER_TO_GOLGI_ANTEROGRADE_TRANSPORT(148)", "REACTOME_GOLGI_TO_ER_RETROGRADE_TRANSPORT(129)",
"REACTOME_INTRA_GOLGI_AND_RETROGRADE_GOLGI_TO_ER_TRAFFIC(187)",
"REACTOME_INTRA_GOLGI_TRAFFIC(37)", "REACTOME_LYSOSOME_VESICLE_BIOGENESIS(34)",
"REACTOME_MEMBRANE_TRAFFICKING(562)", "REACTOME_POST_TRANSLATIONAL_PROTEIN_MODIFICATION(1310)",
"REACTOME_PROTEIN_LOCALIZATION(103)", "REACTOME_RAB_GEFS_EXCHANGE_GTP_FOR_GDP_ON_RABS(89)",
"REACTOME_RAB_GERANYLGERANYLATION(62)", "REACTOME_RAB_REGULATION_OF_TRAFFICKING(115)",
"REACTOME_TBC_RABGAPS(34)", "REACTOME_TRANS_GOLGI_NETWORK_VESICLE_BUDDING(71)",
"REACTOME_TRANSPORT_OF_MATURE_TRANSCRIPT_TO_CYTOPLASM(79)", "REACTOME_TRANSPORT_TO_THE_GOLGI_AND_SUBSEQUENT_MODIFICATION(178)",
"REACTOME_VEGFR2_MEDIATED_VASCULAR_PERMEABILITY(29)", "REACTOME_VESICLE_MEDIATED_TRANSPORT(709)",
"HALLMARK_CHOLESTEROL_HOMEOSTASIS(71)", "HALLMARK_GLYCOLYSIS(200)",
"HALLMARK_OXIDATIVE_PHOSPHORYLATION(195)", "KEGG_AMINOACYL_TRNA_BIOSYNTHESIS(41)",
"KEGG_CITRATE_CYCLE_TCA_CYCLE(30)", "KEGG_FATTY_ACID_METABOLISM(40)",
"KEGG_GLYCEROPHOSPHOLIPID_METABOLISM(76)", "KEGG_OXIDATIVE_PHOSPHORYLATION(128)",
"KEGG_PURINE_METABOLISM(157)", "KEGG_PYRIMIDINE_METABOLISM(96)",
"KEGG_STEROID_BIOSYNTHESIS(17)", "REACTOME_CHOLESTEROL_BIOSYNTHESIS(28)",
"HALLMARK_KRAS_SIGNALING_UP(198)", "REACTOME_CDC42_GTPASE_CYCLE(94)",
"REACTOME_INTRACELLULAR_SIGNALING_BY_SECOND_MESSENGERS(260)",
"REACTOME_RAC1_GTPASE_CYCLE(172)", "REACTOME_RAC2_GTPASE_CYCLE(85)",
"REACTOME_RAC3_GTPASE_CYCLE(91)", "REACTOME_RAS_PROCESSING(29)",
"REACTOME_REGULATION_OF_RAS_BY_GAPS(67)", "REACTOME_RHO_GTPASE_CYCLE(421)",
"REACTOME_RHO_GTPASE_EFFECTORS(245)", "REACTOME_RHO_GTPASES_ACTIVATE_FORMINS(135)",
"REACTOME_RHOA_GTPASE_CYCLE(141)", "KEGG_RNA_POLYMERASE(27)",
"KEGG_SPLICEOSOME(123)", "REACTOME_ACTIVATION_OF_THE_MRNA_UPON_BINDING_OF_THE_CAP_BINDING_COMPLEX_AND_EIFS_AND_SUBSEQUENT_BINDING_TO_43S(60)",
"REACTOME_FORMATION_OF_RNA_POL_II_ELONGATION_COMPLEX(55)", "REACTOME_FORMATION_OF_TC_NER_PRE_INCISION_COMPLEX(53)",
"REACTOME_FORMATION_OF_THE_EARLY_ELONGATION_COMPLEX(32)", "REACTOME_GENE_EXPRESSION_TRANSCRIPTION(1061)",
"REACTOME_GENERIC_TRANSCRIPTION_PATHWAY(842)", "KEGG_RIBOSOME(84)",
"REACTOME_EUKARYOTIC_TRANSLATION_INITIATION(118)", "REACTOME_FORMATION_OF_A_POOL_OF_FREE_40S_SUBUNITS(100)",
"REACTOME_MITOCHONDRIAL_TRANSLATION(89)", "REACTOME_TRANSLATION(227)"
), ct = c(23.46994037, 0.444647699, 0.48059366, 23.69739708,
22.70996891, 23.14546877, 22.5125215, 24, 0.082823932, 21.14628873,
23.89962439, 3.101102259, 19.73857433, 1.345266962, 22.65473537,
22.67911727, 0.141658812, 23.55959968, 20.98039379, 21.37456775,
22.9452684, 21.75195704, 22.28943169, 21.3138143, 21.47333358,
22.99755994, 23.77524494, 23.79003339, 0.815225739, 0.851942805,
1.015518753, 5.676010891, 23.70933719, 2.122858012, 0.364197049,
0.841799576, 1.503949722, 23.5401555, 0.859226588, 0.431283406,
23.76634611, 23.61289283, 23.79740647, 1.57442503, 1.160093029,
0.705766171, 0.759801971, 22.63694137, 0.609374246, 0.5677071,
2.064455224, 0.718389348, 23.54391253, 23.54309661, 0.446556825,
3.690339167, 0.684838669, 0.007978021, 3.827062937, 0.292247265,
23.46627545, 0.8439002, 2.082217104, 2.63916836, 1.345782895,
1.238365008, 0.422770904, 0.642185135, 21.88912394, 20.85779058,
0.870736865, 23.42856467, 23.12505283, 5.896631702, 5.222270959,
1.401493428, 3.012183217, 1.429243788, 20.04868878, 18.72709574,
22.49595319, 23.0188008, 1.738478694, 23.50344452, 0.662628194,
0.485381794, 2.567074301, 2.930818844, 0.459018625, 23.61766479,
22.76335766, 23.95562557, 2.172868272, 1.555338843, 1.014142532,
3.140403508, 1.920081876, 3.125254729, 1.378153453, 1.313997739,
1.232344673, 1.061227107, 1.016804369, 2.021870852, 1.159067286
)), class = "data.frame", row.names = c(NA, -105L))
Here is my current code:
BAT %>%
mutate(ct = ifelse(ct > 12, ct - 24, ct)) %>%
ggplot(aes(as.numeric(factor(process)), ct, fill = process)) + # Set up the plot aesthetics
geom_vline(xintercept = c(-0.75, 1.00, 2.75, 4.25, 6.00, 7.75, 9.25, 11), linewidth = 5, color = 'gray92') + # grey vertical lines at each process step
stat_boxplot(geom = 'errorbar', width = 10, aes(color = process)) + # Error bars at the boxplot boundaries
geom_boxplot(width = 10, linewidth = 0, outlier.colour = NA) + # Boxplot without outline and no outliers
stat_boxplot(geom = 'errorbar', width = 10, aes(ymax = after_stat(middle), ymin = after_stat(middle))) + # Error bars at median level, width is black median line
geom_hline(yintercept = c(-12, -10, -8, -6, -4, -2, 0, 2, 4, 6, 8, 10), linetype = 5.5, alpha = 0.2) + # Horizontal dashed lines and transparency level of the lines
annotate('rect', xmax = -2, xmin = -Inf, ymin = -Inf, ymax = Inf, fill = 'white') + # White background rectangle for centering text
annotate('text', x = -8, y = 0, label = 'in vitro', fontface = 3, size = 10) + # Text annotation
coord_polar(theta = 'y', start = pi) + # Polar coordinate system for a circular plot
theme_void() + # Remove axis labels, ticks, and background
scale_x_continuous(limits = c(-9, 12)) + # X-axis limits
scale_y_continuous(limits = c(-12, 12), breaks = -12:11, labels = ~sprintf('%02d:00', ifelse(.x < 0, .x + 24,.x))) + # Convert 'ct' to 24-hour time format
theme(axis.text.x = element_text(), legend.position = 'top') + # Customize x-axis labels and Place legend at the top
scale_color_manual(values = c('#f67a74', '#ed9a64', '#99cb60', '#59de38', '#33d691', '#33ccd6',
'#a3acf0', '#df90f3', '#f16cd9')) + # Custom color palette for border color
scale_fill_manual(values = c('#f67a74', '#ed9a64', '#99cb60', '#59de38', '#33d691', '#33ccd6',
'#a3acf0', '#df90f3', '#f16cd9')) # Custom color palette for fill color
Your x axis values seem more complicated than they need to be. If you use a group
variable, your boxplots will all sit at integer values:
BAT %>%
mutate(ct = ifelse(ct > 12, ct - 24, ct)) %>%
ggplot(aes(as.numeric(factor(process)), ct, fill = process,
group = process)) +
geom_vline(xintercept = 1:8,
linewidth = 5, color = 'gray92') +
stat_boxplot(geom = 'errorbar', width = 0.8, aes(color = process)) +
geom_boxplot(width = 0.8, linewidth = 0, outlier.colour = NA) +
stat_boxplot(geom = 'errorbar', width = 0.8,
aes(ymax = after_stat(middle), ymin = after_stat(middle))) +
geom_hline(yintercept = c(-12, -10, -8, -6, -4, -2, 0, 2, 4, 6, 8, 10),
linetype = 5.5, alpha = 0.2) +
annotate('rect', xmax = -2, xmin = -Inf, ymin = -Inf, ymax = Inf,
fill = 'white') +
annotate('text', x = -8, y = 0, label = 'in vitro', fontface = 3, size = 10) +
coord_polar(theta = 'y', start = pi) +
theme_void() +
scale_x_continuous(limits = c(-5, 12)) +
scale_y_continuous(limits = c(-12, 12),
breaks = -12:11,
labels = ~sprintf('%02d:00', ifelse(.x < 0, .x + 24,.x))) +
theme(axis.text.x = element_text(), legend.position = 'top') +
scale_color_manual(values = c('#f67a74', '#ed9a64', '#99cb60',
'#59de38', '#33d691', '#33ccd6',
'#a3acf0', '#df90f3', '#f16cd9')) +
scale_fill_manual(values = c('#f67a74', '#ed9a64', '#99cb60',
'#59de38', '#33d691', '#33ccd6',
'#a3acf0', '#df90f3', '#f16cd9'))