更改ggplot中stat_compare_mean()输出的字体系列
更改ggplot中stat_compare_mean()输出的字体系列
提问于 2020-04-09 22:25:40
是否可以在下面的ggpboxplot中更改p值的字体系列？字体系列应为"Times New Roman“。
使用theme_bw(base_family = "Times New Roman")不会更改p值。
library(ggpubr)
library(ggplot2)
data("ToothGrowth")
# Box plot
p <- ggboxplot(ToothGrowth, x = "supp", y = "len",
color = "supp", palette = "jco",
add = "jitter",
facet.by = "dose", short.panel.labs = FALSE)
p + stat_compare_means(label = "p.format")
p + theme_bw(base_family = "Times New Roman")我也尝试了普通主题(text= ...)。它不起作用。
# Box plot
p <- ggboxplot(ToothGrowth, x = "supp", y = "len",
color = "supp", palette = "jco",
add = "jitter",
facet.by = "dose", short.panel.labs = FALSE)
p + stat_compare_means(label = "p.format")
p + theme(text = element_text(family = "Times New Roman"))请注意:我取自以下网站的示例：https://rpkgs.datanovia.com/ggpubr/reference/stat_compare_means.html
非常，非常感谢！
万事如意，阿娜
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-04-09 23:14:43
你很接近，family =参数直接在stat_compare_means()中使用。
来自help(stat_compare_means)
Usage
stat_compare_means(mapping = NULL, data = NULL, method = NULL,
paired = FALSE, method.args = list(), ref.group = NULL,
comparisons = NULL, hide.ns = FALSE, label.sep = ", ",
label = NULL, label.x.npc = "left", label.y.npc = "top",
label.x = NULL, label.y = NULL, tip.length = 0.03,
bracket.size = 0.3, step.increase = 0, symnum.args = list(),
geom = "text", position = "identity", na.rm = FALSE,
show.legend = NA, inherit.aes = TRUE, ...)
<snip>
... other arguments to pass to geom_text or geom_label.因此，这段代码应该可以做您想要做的事情。
ggboxplot(ToothGrowth, x = "supp", y = "len",
color = "supp", palette = "jco",
add = "jitter",
facet.by = "dose", short.panel.labs = FALSE) +
stat_compare_means(label = "p.format",family = "Times New Roman")
#Use this if on Windows: stat_compare_means(label = "p.format",family = "TT Times New Roman")
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/61123450
复制相关文章
相似问题
腾讯云开发者
