ggpubr中是否有一些代码可以将P值转换为非科学的值以添加到图形中

Question

GGPUBR已经将P值添加到散点图中，但是我需要它是非科学的。

我已经尝试了以下代码，但这不起作用。

compare_means(formula, data, method = "pearson", paired = FALSE,
group.by = NULL, ref.group = NULL, symnum.args = list(),
p.adjust.method = "holm", ...)



my_data <- read.csv("qPCR.csv")
 library(ggpubr)

 ggscatter(my_data, 
 x = "Intenties"                                                   
 y = "qPCR",
 size = 4,
 color = '#a8329b',
 add = 'reg.line',
 add.params = list(color='black'),
 cor.coef = TRUE,
 cor.coeff.args = list(output.type = 'text', size = 5, 
 color = '#a8329b',   label.sep = "\n"),
 cor.method = "pearson",
 conf.int = TRUE,    
 xlab = "Breath",                                                
 ylab = "qPCR ml/copies log")

Answer 1

P值并不是很科学，但如果你是说你得到了科学的记数法，我编造了一些数据，答案不是科学记数法。，a，1，the，the，1，on，the，on，the，on，on，p-值，如果你的意思是你得到了科学记数法，我编了一些数据，答案不是科学记数法。也许你只是得到了一个非常低的p值结果。

my_data <- data.frame("Intenties" = 1:100, "qPCR" = rnorm(100, 100, 15))

ggscatter(my_data, 
          x = "Intenties",                                                   
          y = "qPCR",
          size = 4,
          color = '#a8329b',
          add = 'reg.line',
          add.params = list(color='black'),
          cor.coef = FALSE,
          # cor.coeff.args = list(output.type = 'text', size = 5, 
          #                       color = '#a8329b',   label.sep = "\n"),
          cor.method = "pearson",
          conf.int = TRUE,    
          xlab = "Breath",                                                
          ylab = "qPCR ml/copies log") + 
  annotate("text", 25, 125, label = "p < 0.1")

​

​