ggstatsplot::ggbetweenstats:在 R 中的比较中增加 p 值的字体大小
ggstatsplot::ggbetweenstats: Increase font size in p-values in comparisons in R
首先,我为我糟糕的英语道歉。
我正在使用 ggstatsplot::ggbetweenstats
来比较我的组。但是,我注意到这些比较中的 p-values 中的字体大小很小。因此,我想寻求一些帮助来增加这些 p 值中的字体大小。我将 post 我的脚本使用“Edgar Anderson 的 Iris 数据”中的数据作为示例。
library(ggplot2)
library(RVAideMemoire)
library(ggpubr)
library(ggstatsplot)
iris.table <- iris
ggstatsplot::ggbetweenstats(data = iris.table, x = class, y = sepal_l, plot.type = "box", type = "parametric", k = 3, outlier.tagging = FALSE, mean.plotting = FALSE, xlab = "Species", ylab = "Sepal Length", ggstatsplot.layer = FALSE, pairwise.comparisons = TRUE, pairwise.display = "significant", p.adjust.method = "BH", point.args = list(position = ggplot2::position_jitterdodge(dodge.width = 0.15), size = 1.5, stroke = 0))+
ggplot2::scale_color_manual(values = c("black", "black", "black"))+
scale_x_discrete(labels = c("Iris setosa", "Iris versicolor", "Iris virginica"))+
theme(text = element_text(size=13), axis.text.x = element_text(size = 12), axis.text = element_text(size = 13), axis.text.y = element_text(size = 12), plot.caption = element_text(size = 13), plot.subtitle = element_text(size = 13))
这对于当前的实现来说确实并不简单。
我现在添加了一个新参数来改变与成对比较几何相关的美学。从 GitHub 下载 ggstatsplot
后,您可以执行以下操作:
set.seed(123)
library(ggstatsplot)
ggbetweenstats(
iris, Species, Sepal.Length,
pairwise.comparisons = TRUE,
ggsignif.args = list(textsize = 6, tip_length = 0.01)
)
由 reprex package (v0.3.0.9001)
于 2020-08-18 创建
首先,我为我糟糕的英语道歉。
我正在使用 ggstatsplot::ggbetweenstats
来比较我的组。但是,我注意到这些比较中的 p-values 中的字体大小很小。因此,我想寻求一些帮助来增加这些 p 值中的字体大小。我将 post 我的脚本使用“Edgar Anderson 的 Iris 数据”中的数据作为示例。
library(ggplot2)
library(RVAideMemoire)
library(ggpubr)
library(ggstatsplot)
iris.table <- iris
ggstatsplot::ggbetweenstats(data = iris.table, x = class, y = sepal_l, plot.type = "box", type = "parametric", k = 3, outlier.tagging = FALSE, mean.plotting = FALSE, xlab = "Species", ylab = "Sepal Length", ggstatsplot.layer = FALSE, pairwise.comparisons = TRUE, pairwise.display = "significant", p.adjust.method = "BH", point.args = list(position = ggplot2::position_jitterdodge(dodge.width = 0.15), size = 1.5, stroke = 0))+
ggplot2::scale_color_manual(values = c("black", "black", "black"))+
scale_x_discrete(labels = c("Iris setosa", "Iris versicolor", "Iris virginica"))+
theme(text = element_text(size=13), axis.text.x = element_text(size = 12), axis.text = element_text(size = 13), axis.text.y = element_text(size = 12), plot.caption = element_text(size = 13), plot.subtitle = element_text(size = 13))
这对于当前的实现来说确实并不简单。
我现在添加了一个新参数来改变与成对比较几何相关的美学。从 GitHub 下载 ggstatsplot
后,您可以执行以下操作:
set.seed(123)
library(ggstatsplot)
ggbetweenstats(
iris, Species, Sepal.Length,
pairwise.comparisons = TRUE,
ggsignif.args = list(textsize = 6, tip_length = 0.01)
)
由 reprex package (v0.3.0.9001)
于 2020-08-18 创建