R 使用ggplot向x轴文本添加换行符

我正在读一个csv文件，使用ggplot制作一个方框图，在x轴上的文本大小有问题。我不能缩小文本大小，因为我正在缩小手稿的整体图像，这是使轴可见的最佳大小。我想在x轴上的每个方框图下面有基因型名称，我在x轴上有基因型名称，但这似乎还不够，看起来有点尴尬。我想为至少最长的基因型（4-67/Chrimson）添加一个换行符，但我认为我做得不对。我已经尝试在scale_x_discrete和axis.text.x中使用设置新标签，但在这两种情况下，它要么跳过该变量，要么忽略该命令

仅供参考：数据框架有两个变量，群体活动和基因型，基因型有4个水平

提前谢谢你

这是我到目前为止的代码

dat5=read.csv("Time Point 120 Raw Data C-Test.csv") 

plot5<- ggplot(dat5, aes(x = Genotype, y = Group.Activity, col = Genotype, fill = Genotype, ymin= -40, ymax = 50)) +
      geom_boxplot(fatten = 1, lwd = .5, alpha = .6) +
      # reorder so x-axis is not alphabetical 
      scale_x_discrete(limits=c("4-67/Chrimson","4-67/+","+/Chrimson", "+/+"))+
      scale_fill_manual(values=c("#F99205", "#4ED55F", "#36A6D6", "#5752D0"))+
      scale_color_manual(values=c("#F99205", "#4ED55F", "#36A6D6", "#5752D0"))+
      geom_beeswarm(size = 1.5, alpha = .75, cex = 3)+
      ylab("Percent Activity After Baseline Subtraction")+
      theme_classic()+
      theme(axis.title.x = element_blank(), axis.text.x = element_text(size = 16, color="black"), axis.ticks.x = element_blank())+
      theme(axis.text.y = element_text(size = 24, color="black"), axis.ticks.y = element_blank())+
      theme(axis.title.y = element_text (size = 24, color="black"))+
      theme(axis.ticks.x = element_blank())+
      theme(legend.position = "none")

dat5=read.csv（“时间点120原始数据C-Test.csv”）
图5有数据或示例图像吗？很难仅仅用这些代码就知道你想要什么。你用谷歌搜索过吗？查看第二个例子：我在谷歌上搜索了一段时间，找到了几次用换行符替换空格的迭代，但似乎没有一次能在scale_x_离散中使用我的代码。我想这是因为我用scale_x_离散极限重新组织变量的顺序。我试过使用#levels（dat1Test$genetic）的Rivero-我已经包括了一张图片供你参考…没关系！！我在csv文件中重新组织了变量，而不是scale_x_离散。然后我可以添加换行符