0

我在合并直方图和密度图时遇到了麻烦。它们融合得很好，但不知何故左 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, face="bold", 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, x = "Length", color = "Protokoll", fill = "Protokoll", 
            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'),
        title = element_text(size=14, 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 功能不适用于此情节。

4

0 回答 0