如何在gg散点图中增加自动生成的R和p值的字体大小?

11dmarpk  于 5个月前  发布在  其他
关注(0)|答案(2)|浏览(75)

我想增加自动生成的r2和p值的字体大小。我使用了像+ theme(text = element_text(size = 18))这样的代码,但它没有做任何更改?
使用的代码如下所示

# Load data
data("mtcars")
df <- mtcars
# Convert cyl as a grouping variable
df$cyl <- as.factor(df$cyl)

ggscatter(df, x = "wt", y = "mpg",
          add = "reg.line",                         
          conf.int = TRUE,                          
          color = "cyl", palette = "jco",           
          shape = "cyl"                     
          )+
  stat_cor(aes(color = cyl), label.x = 3) +
 theme(text = element_text(size = 18))

字符串

laximzn5

laximzn51#

stat_cor使用geom_texthelp("geom_text")中的文档告诉您它“理解”size的美学。

library(ggpubr)

#recommended way
ggscatter(df, x = "wt", y = "mpg",
          add = "reg.line",                         
          conf.int = TRUE,                          
          color = "cyl", palette = "jco",           
          shape = "cyl",
          cor.coef = TRUE,
          cor.coeff.args = list(aes(color = cyl), label.x = 3),
          cor.coef.size = 12
)

#alternatively
ggscatter(df, x = "wt", y = "mpg",
          add = "reg.line",                         
          conf.int = TRUE,                          
          color = "cyl", palette = "jco",           
          shape = "cyl"                     
) +
  stat_cor(aes(color = cyl), label.x = 3, size = 12)

字符串

7cwmlq89

7cwmlq892#

stat_cor接受传递给geom_text或geom_label的其他参数,包括“size”和“colour”,因此您可以像下面这样更改命令
您也可以尝试:

stat_cor( aes(label = paste(..rr.label.., ..p.label.., sep = "~`,`~")),
label.x = 0.5, method = "spearman",label.sep = "\n", size = 10)

字符串

相关问题