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

# 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))

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)

R相关问答推荐

如何创建构成多个独立列条目列表的收件箱框列？

检测(并替换)字符串中的数学符号

单击 map 后，将坐标复制到剪贴板

为什么st_join(ob1，ob2，left = True)返回具有比ob1更多功能的sf对象？

selectInput不返回ALL，并将因子转换为shiny 的数字

如何在格子中添加双曲曲线

单个轮廓重叠条的单独图例

在R中为马赛克图中的每个字段着色

如何在所有绘图中保持条件值的 colored颜色 相同？

非线性混合效应模型(NLME)预测变量的置信区间

R—将各种CSV数字列转换为日期

我正在努力用R计算数据集中的中值逐步距离

如何将一些单元格的内容随机 Select 到一个数据框中？

在不对R中的变量分组的情况下取两行的平均值

数值型数据与字符混合时如何进行绑定

通过R：文件名未正确写入[已解决]将.nc文件转换和导出为.tif文件

使用函数从R中的列中删除标高

排序R矩阵的行和列

R中从因数到数字的转换

如何根据顺序/序列从数据框中排除值