Аннотирующие результаты тестирования в ggplot

Question

Я пытаюсь создать ggplot, который будет показывать результат теста на графике. Я сейчас использую линию annotate("text",x=1,y=10,label='atop(bold("P-value = 0.286"))',cex=7,parse=TRUE). Единственная проблема заключается в том, что мне приходится менять значение вручную каждый раз, когда меняются результаты теста. Я хотел бы вставить ttest$p.value вместо номера на этикетке, но держать его жирным шрифтом. Есть идеи?

Answer 1

Вы можете просто использовать оператор вставки, чтобы помочь поместить динамическое p-значение в шаг аннотирования. Пример здесь очень уродливый, но вы поймете идею, просто замените мой p_val в шаге аннотации на ваш ttest $ p.value:

rawdata <- data.frame('var1' = runif(100,1,100),
                      'var2' = runif(100,1,100))

library(ggplot2)

p_val <- .286

ggplot(rawdata,aes(x=1:100,y=var1)) + geom_line() + 
  annotate("text",x=50,y=10,label=paste0('atop(bold("p_value is ',p_val,'"))'),cex=7,parse=TRUE)