Question

enter image description here我正在读取一个csv文件并使用ggplot制作一个盒子图并且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")

使用ggplot向x轴文本

0 个答案: