6

我正在使用 ggplot 绘制条形图,并使用 R 中的管道工包将此函数创建为 Web api。

 library(plumber)
 library(ggplot2)
#' @get /histogram_test
#' @png
  histogram_test <- function(){
  mtcars=mtcars
  b=ggplot(mtcars,aes(mtcars$cyl))
  b+geom_bar()
}

然后我运行:

r <- plumb("plum_api.R")
r$run(port=8000)

但这不会返回浏览器上的图。

4

1 回答 1

6

因此,如果在最后一行我们只使用 print 命令作为:print(b+geom_bar()),它就可以工作。

于 2017-06-12T08:40:59.560 回答