我想在html knitr文件中将plot输出旁边的一些文本输出与plotly对齐。例如，我希望下面函数的输出在文档中并排出现。
---
title: 'untitled'
output: html_document
---
```{r}
pacman::p_load(ggplot2, plotly, grid, gridExtra)
p1 <- ggplot(df, aes(y = var1, x =
var2, color = p_c)) + geom_point(aes(text = subjID)) +
geom_smooth(method = "lm")
ggplotly(p1, tooltip = "text")
cor.test(var1, var2)
```
我愚弄了Grobs（即grobText）和grid / gridExtra包 - 但这些似乎与plotly不兼容。例如：
```{r}
pacman::p_load(ggplot2, plotly, grid, gridExtra)
p1 <- ggplot(df, aes(y = var1, x =
var2, color = p_c)) + geom_point(aes(text = subjID)) +
geom_smooth(method = "lm")
p1 <- ggplotly(p1, tooltip = "text")
text1 <- cor.test(var1, var2)
text1 <- textGrob(text1)
grid.arrange(p1, text1, ncol = 2)
```
这将返回错误：gList中的错误（列表（x =列表（数据=列表（列表）（x = c（-28,1689,1122,284，：“gList”中仅允许'grobs'
我也考虑过flexdashboard，但我不希望输出显示在与报告其余部分分开的html页面中。
任何想法都值得赞赏，特别是如果有办法将flexdashboard的行格式插入到标准html rmarkdown文件的中间。