用 profvis 进行性能分析

原创

navysummer 2019-02-11 14:26:00 博主文章分类：R ©著作权

文章标签 时间轴函数调用 github 文章分类 后端开发

©著作权归作者所有：来自51CTO博客作者navysummer的原创作品，请联系作者获取转载授权，否则将追究法律责任

Rprof( ) 函数提供了有用的信息帮助我们找到代码瓶颈，进而提升代码性能。

RStudio 也发布了一个增强版的分析工具 profvis( )，它还提供了用于分析 R 代码的交

互式可视化功能（https://rstudio.github.io/profvis/）。

它是一个 R 扩展包，已经集成到 RStudio 中。要安装这个包，请运行以下代码：

install.packages("profvis")

一旦安装成功，我们就可以用 profvis( ) 来分析代码，并将结果进行可视化：

library(profvis)
profvis({
my_cumsum1 <- function(x) {
y <- numeric( )
sum_x <- 0
for (xi in x) {
sum_x <- sum_x + xi
y <- c(y, sum_x)
}
y
}
x <- rnorm(1000)
for (i in 1:1000) {
my_ _cumsum1(x)
}
})

分析完成后，会出现一个带有交互式用户界面的新选项卡，如图 13-4 所示。

用 profvis 进行性能分析_github

图 13-4

图 13-4 的上部显示了代码、内存使用情况和消耗时间，下部显示了函数调用，以及垃

圾收集发生的时间轴。我们可以单击并选择一行代码，查看函数执行的时间轴。

与 summaryRprof( ) 返回的结果相比，这种交互式可视化提供了更丰富的信息，使我们

能够更多地了解在这么长的时间里代码是如何运行的。这样，我们可以很容易地识别慢的

代码，以及可能引发问题的某些模式。

接下来，对 my_cumsum2( ) 做同样的分析：

profvis({
my_cumsum2 <- function(x) {
y <- numeric(length(x))
y[[1]] <- x[[1]]
for (i in 2:length(x)) {
y[[i]] <- y[[i-1]] + x[[i]]
}
y
}
x <- rnorm(1000)
for (i in 1:1000) {
my_ _cumsum2(x)
}
})