APA_Print уравнения в Папайе против ggplot2 (название)

Я использую пакет папайи в уценке R (который я люблю). Если я сделаю что-то вроде этого:

The test regression equation was: `r testregressionx1$full_result$modelfit$r2`

Я получу что-то вроде этого, как только я вяжу в pdf (отформатирован правильно):

R 2 = .10, 90% CI [0.00, 0.45], F(1,10) = 1.07, 239, p = .326

Однако, если я попытаюсь добавить эту информацию в заголовок рисунка ggplot2 следующим образом:

+ggtitle(testregressionx1$full_result$modelfit$r2)

Я получаю что-то вроде этого (что плохо):

R^2 = .10$, 90\% CI $[0.00$, $0.45]$, $F(1, 1 ...

Как я могу получить такую ​​же распечатку на рисунке, как и в тексте? Кроме того, как я могу ссылаться только на r2 и p-значение на рисунке?

Большое спасибо!

Источник

2 ответа

Решение

Поскольку вы не предоставите воспроизводимый пример, я поработаю с примером из документации.

library("papaja")

ctl <- c(4.17, 5.58, 5.18, 6.11, 4.50, 4.61, 5.17, 4.53, 5.33, 5.14)
trt <- c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69)
group <- gl(2, 10, 20, labels = c("Ctl", "Trt"))
weight <- c(ctl, trt)
lm_fit <- lm(weight ~ group)

lm_res <- apa_print(lm_fit)

Как отметил Мариус, вы можете использовать latex2exp::TeX() преобразовать математику LaTeX в R-выражение. Проблема здесь в том, что это преобразование не является безупречным с этой строкой, поэтому оно требует некоторого дополнительного форматирования:

# Escape brackets and remove backslash in front of percent sign
modified_r2 <- gsub("\\]", "\\\\]", 
               gsub("\\[", "\\\\[",
               gsub("\\\\", "", lm_res$full_result$modelfit$r2)))

ggplot(data.frame(weight, group), aes(x = group, y = weight)) +
  geom_point() +
  ggtitle(TeX(modified_r2))

Если вам нужно только R^2 и значение p, вам также необходимо изменить строку символов. Например,

library("stringr")

modified_r2 <- paste0(
  str_extract(lm_res$estimate$modelfit$r2, "\\$R\\^2 = \\.\\d\\d\\$"),
  ", ", 
  str_extract(lm_res$statistic$modelfit$r2, "\\$p = \\.\\d+\\$"))
Источник

papaja генерирует символьные строки, которые RMarkdown может интерпретировать как уравнения TeX (где знаки доллара открывают math среда в TeX).

Насколько я знаю, ggplot2 не понимает уравнения TeX. Однако вы можете преобразовать уравнения TeX в выражения R, например, с помощью latex2exp пакет, а затем используйте выражения R в вашем ggplot.

my_tex_expression <- "$R^2 = .146$"

library(ggplot2)
ggplot(npk) + 
  geom_point(aes(x = N, y = yield)) + 
  xlab(latex2exp::TeX(my_tex_expression))

График вывода Может также быть полезно проверить этот пост на stackru: помещая математические символы и индексы, смешанные с обычными буквами в R/ggplot2

Источник
Другие вопросы по тегам