为什么我的 ggplot2 y 轴标题不加粗？

问题描述

我在合并直方图和密度图时遇到了麻烦。它们融合得很好，但不知何故左 y 轴没有变粗。右边的 y 轴（我有两个 y 轴）变粗，x 轴也是。

lenhist <- gghistogram(final_len,x = "Length",add = "mean",rug = TRUE,fill = "Protokoll",color = "Protokoll",palette = "npg",binwidth = 1,alpha = 0.8) +
  #ylab = "Klonotüüpide arv") +    #add_density = TRUE)+
  #lims(y= c(0,10000)) + #maksimaalne exp_len count väärtus on 9579
  theme(axis.title.y = element_text(size=14,face="bold",colour = "black"),#here i tell the y axis title to go bold
        axis.text=element_text(size=14),title = element_text(size=14,vjust = 2)) +
  labs(y = "Klonotüüpide arv") + 
  theme_minimal() +
  #rremove("x.axis")+
  #rremove("xlab") +
  rremove("x.text") +
  rremove("x.ticks") +
  rremove("legend") 
lenhist

lendens <- ggdensity(
  final_len,alpha = 0.08,palette = "npg") +
  scale_y_continuous(expand = expansion(mult = c(0,0.05)),position = "right",name = "Tihedus") +
  #(name = "Tihedus",sec.axis = sec_axis(trans = "identity",name = "Count"),rremove("x.axis")+
  rremove("xlab") +
  rremove("x.text") +
  rremove("x.ticks") +
  rremove("legend") + 
  theme_minimal() +
  theme(axis.text=element_text(size=12),axis.title=element_text(size=13,face='bold'),face='bold',vjust = 2),legend.text=element_text(size=12),legend.title=element_text(size=13,face = "bold")) + 
  labs(title = "CDR3 pikkuste jaotus",subtitle = NULL,x = "CDR3 pikkus",y = "Tihedus")
lendens
#merging the two plots
aligned_plots <- align_plots(lenhist,lendens,align="hv",axis="tblr")
final_length <- ggdraw(aligned_plots[[1]]) + draw_plot(aligned_plots[[2]])
final_length
ggsave(filename = "cdr3density3.png",plot =  ggplot2::last_plot(),dpi = 320,height = 5,width = 10)

此外，ggsave 功能不适用于此图。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2 ggsave r r