Я применяю тест #tukeyhsd к фрейму данных, и в то же время я делаю блокпосты разных переменных, используя несколько фильтров. Я хочу показать результаты TukeyHSD на графике с помощью #positioning abc. На данный момент я могу просто получить результаты в verbatimtextoutput. Какая функция может мне помочь? Я не хочу использовать функции ggplot ..
вывод $ HSDRETMB <- renderPrint ({
df_bench <- CornQualityBenchmarkResults2019 </p>
year <- with(df_bench, interaction(Year))
chicken <- aov(RET ~ year, data = df_bench)
HSD.test(chicken,"year", group=TRUE,console=TRUE)
})
output $ HSDRETA <- renderPrint ({
df_bench <- CornQualityBenchmarkResults2019
hs <- aov (RET ~ Market, data = df_bench [c (df_bench $ Year% в% input $ selectYear),])
DF <-df.residual (HS)
MSerror <-deviance (Hs) / DF
с (df_bench [c (df_bench $ год% в% input $ selectYear),], HSD.test (вес, рынок, df, MSerror, группа = TRUE, консоль = TRUE))
}) </p>