小编zzk*_*zzk的帖子

我不确定这是不是一个真正的错误,或者我错过了什么,但在这里它.我有一个ggplot函数(plot_data),我想在循环中调用.我已将该功能包含在自己的块中.调用该函数在第一种情况(标题为"工作"的块)的循环中工作正常,在这种情况下,plot_data函数后跟一个条形图.但是,在第二种情况下,plot_data()函数后面跟着一个热图,但奇怪的是,热图会抑制plot_data函数.无论是否在plot_data函数周围调用plot()或print(),都会发生这种情况.

有没有办法让ggplots与knitr一起行动？在地狱中如何抑制前一个函数调用的输出？

以下代码为我重现了错误:

[preamble omitted]
\begin{document}

<<setup, eval=TRUE, echo=FALSE, cache=FALSE>>=
plot_data <- function(data) {
    require(ggplot2)
    require(reshape)
    d.melt <- melt(data)
    ggplot(data=d.melt, aes(x=X2, y=value, group=X1, colour=X1)) + geom_line(size=.5) +
          scale_x_discrete("") +
          scale_y_continuous("Value")
    }
@

<<works, echo=FALSE, results='asis', out.width='.3\\linewidth', dev='pdf', cache=TRUE >>=
set.seed(10010)
data <- matrix(runif(10000, 1,100), ncol=100)
for (i in 1:10) {
    ind <- sample(1:100, 10)
    plot(plot_data(data[ind,]))
    barplot(ind)
}
@

<<doesnt-work, echo=FALSE, results='asis', out.width='.3\\linewidth', dev='pdf', cache=TRUE >>=
set.seed(10010)
data <- matrix(runif(10000, 1,100), ncol=100)
for (i in 1:10) {
    ind <- sample(1:100, 10) …