Как буквально печатать верхние индексы в R, не используемые в надписях или легендах?

Question

Я знаю, что в графе можно использовать выражение (), чтобы включить верхние индексы, например

plot(rnorm(20), xlab = expression(paste("n"^"th")))

Однако я буквально хочу распечатать верхние индексы, чтобы потом их можно было сохранить в файлах RTF. На самом деле, я хочу использовать их, чтобы указать степень статистической значимости, связанной с моими коэффициентами регрессии (вы знаете, как "0,24^*").

С помощью "expression(paste("n"^"th"))" я попытался print(), cat(), eval() и get (). Но никто из них не работал.

В настоящее время я использую пакет "rtf" для вывода файлов ".doc". Если кто-то предлагает использовать другие способы / пакеты, то все в порядке, если сам R не может отображать расширенные форматы в консоли, но результаты в любом случае могут быть сохранены в некоторых файлах.

Answer 1

Как вы видели, ?plotmath выражения работают только внутри графиков. Ничто в R не оптимизировано для вывода RTF.

Но, читая виньетку RTF, ясно, что вы можете написать команды rtf в своем выводе, и есть команда для надстрочного индекса. Пытаться

library(rtf)

rtf<-RTF("text.doc")
addText(rtf,"Hello\n")
addText(rtf,"0.05{\\super*}\n")
addText(rtf,"0.15*\n")
addText(rtf,"End")
done(rtf)

Answer 2

plot(rnorm(20), xlab = as.character("n^*"))

или даже

plot(rnorm(20), xlab = paste0("n","^","th"))

Не уверен, почему вы хотите использовать expression()