时间戳

首页 > 解决方案 > 如何增加ggplot R中的轴标签文本大小？

r - 如何增加ggplot R中的轴标签文本大小？

问题描述

希望这是有道理的，并提前感谢您的时间:)

我制作了一个条形图，以可视化微阵列数据集中显着下调的基因的 Gene Ontology 富集。

我正在尝试增加标题“折叠浓缩”的大小、y 轴上的数字和 x 轴上的标签。我设法增加了标记条的数字的大小（在 geom_text 下），但我一直在努力如何增加上述文本的大小。

我的txt文件内容

处理 fold_enrichment FDR

Mammillary_axonal_complex_development 200 <0.01

Corticospinal_tract_morphogenesis 200 <0.1

脊索形态发生 200 <0.1

体节发生 52.27 <0.01

骨化 16.87 <0.1

Epithelial_tube_morphogenesis 12.85 <0.1

细胞分化调节 4.92 <0.01

我的代码

dnfgfr1d <- read.table("dnfgfr1d.txt", header = TRUE)

library(ggplot2) 

bc1d <- ggplot(dnfgfr1d, aes(x = reorder(process, fold_enrichment), y = fold_enrichment, fill = FDR)) + 
  geom_bar(stat = "identity", width = 0.5) +
  ggtitle("Genes down regulated by dnFGFR1") +
  geom_text(aes(label = fold_enrichment), nudge_y = 8, color = "black", size=4) + 
  scale_y_continuous(breaks = seq(0,220,by = 20), limits=c(0,220), expand=c(0,0)) +
  xlab("") +
  ylab("Fold enrichment") +
  labs(fill='FDR') +
  scale_x_discrete(labels=c("Regulation of cell differentiation",
                            "Epithelial tube morphogenesis",
                            "Ossification",
                            "Somitogenesis",
                            "Notochord morphogenesis",
                            "Corticospinal tract morphogenesis",
                            "Mammillary axonal complex development")) +
  coord_flip() +
  theme_classic() + 
  theme(plot.title = element_text(hjust=0.5))

bc1d + scale_fill_manual(breaks = c("<0.01", "<0.1"), 
                         values=c("#3399CC", "#000099"))

在此处输入图像描述

对此的任何帮助将不胜感激，因为我已经为此苦苦挣扎了一段时间，并且我需要反复使用此代码来为我的论文生成多个数字。

谢谢，

丽芙

标签： rggplot2

解决方案

这是 Henry Wang 的一个非常好的概述，它显示了可以通过theme()ggplot 中的函数修改的所有不同元素。

在您的情况下，您将不得不使用bc1d + theme(axis.text.x = element_text(size = 14))

请注意，您可以专门调整 x 轴或 y 轴的大小，因为它们是从继承而来的axis.text，因此也可以使用element.text()

如果您想了解更多详细信息，您可以随时访问@jared_mamrot 评论的参考。

推荐阅读