在降价输出中折叠文本和图像

时间:2015-05-05 18:31:40

标签: r knitr

我正在尝试使用HTML中的knitr包创建R文件。这听起来很简单,但我似乎无法找到解决方案:

我希望能够使用小+按钮折叠输出中的文本和图像。有人会碰巧知道我该怎么做吗?

例如,我想在下一行用以下文字折叠下面的图像:

```{r,echo=FALSE,warning=FALSE}
p <- ggplot(sumRevenue, aes(x=Date, y=Revenue, fill=clusters)) + scale_x_date(breaks=x_breaks, labels=x_labels) +
  geom_bar(stat="identity", position = "fill",alpha=0.6) +
  scale_y_continuous(labels = percent_format()) + xlab('') +
  ggtitle('Physical filing percent spread for segments') + theme_bw() + ylab('Percent Spread') +
  theme(axis.text.y=element_text(hjust=0, angle=0), 
        axis.text.x = element_text(hjust=1, angle=45),
        panel.grid.minor.x = element_blank(),
        panel.grid.minor.y = element_blank(),
        panel.grid.major.x=element_line(color='grey90',linetype='dashed'),
        panel.grid.major.y=element_line(color='grey90',linetype='dashed'),
        plot.title=element_text(size=20),
        axis.text=element_text(size=10),
        legend.key=element_blank(),
        legend.title=element_blank()) +
  scale_fill_manual(values=c("#a6cee3","#1f78b4","#b2df8a")) 
p
```
Some text here

任何指针都会非常感激。

0 个答案:

没有答案