不能使用Rmd文件在Rshiny报表中叠加两幅图形

Question

我构建了一个RSiny应用程序，它可以使用downloadHandler下载html报告。但是，在Rmd文件中，虽然我尝试了许多选项，但我不能并排堆叠两个。您可以在下面的Rmd文件中看到我的代码。在这段代码之后，我仍然可以得到两台垂直犁。它不起作用。你能帮忙吗？谢谢

Rmd文件：

{r echo=FALSE, out.width="49%", fig.width=3, fig.height=3,fig.show='hold',fig.align='center'}

ggplotly(qplot( params$sdr_v$Voltage_sensor, params$sdr_v$sdr, xlab= "Voltage sensors", ylab = "SDR(mV/day)")+
geom_point(aes(x = params$sdr_v$Voltage_sensor, y= params$sdr_v$sdr))+
theme(axis.text.x = element_text(angle = 45, vjust = 1.0, hjust = 1.0))+
theme(legend.position = "none",axis.text.x=element_blank()))

ggplotly(qplot( params$sdr_s$Voltage_sensor, params$sdr_s$sdr_soc, xlab= "Voltage sensors", ylab = "SDR (%SOC/day)")+
geom_point(aes(x = params$sdr_s$Voltage_sensor, y= params$sdr_s$sdr_soc, colour=params$sdr_s$sdr_soc>0.016))+
scale_colour_manual(values = c("black", "red"))+
theme(axis.text.x = element_text(angle = 45, vjust = 1.0, hjust = 1.0))+
theme(legend.position = "none",axis.text.x=element_blank()))

Answer 1

manipulateWidget图形是"HTML“，因此您可以从包中使用combineWidgets。

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

图书馆(巧妙地)

图书馆(ManipulateWidget)

```{r}

gg1 <- gg1(mtcar，aes(wt，mpg)) + geom_point()

gg2 <- carat(钻石，aes(克拉，价格))+geom_point(α= 0.2)

ggly1 <- ggplotly(gg1)

ggly2 <- ggplotly(gg2)

combineWidgets(ggly1，ggly2，nrow = 1)

​

​

如果要使用页面的全部宽度，请设置块选项out.width = "100%"：

​

​