有多种方法可以实现这一目标。我想最简单的方法是创建一个函数，将 KPI 的条形图保存到文件中：

save_KPI_plot <- function(fn, kpi_data) {
    png(paste0(fn, ".png"))
    # Plot code
    dev.off()
}

您可以按以下方式调用该函数，

save_KPI_plot("kpi_1", kpi_1_data)

或将您的文件名存储在一个列表中，将您的数据存储在另一个列表中，然后遍历两者：

kpi_fns <- list("filename_1", "filename_2")
kpi_data <- list(kpi_1_data, kpi_2_data)
for (i in seq_along(kpi_fns)) {
    save_KPI_plot(kpi_fns[i], kpi_data[i])
}

如果您喜欢使用不同的图像格式，您可以更改png()为bmp()或jpeg()。