一行代码绘制9幅统计图表，这个可视化工具有点东西...

# \donttest{
# Import and process example data
ramp_data <- spiro(
  file = spiro_example("zan_ramp"),
  hr_file = spiro_example("hr_ramp.tcx")
)

# Display the traditional Wasserman 9-Panel Plot
spiro_plot(ramp_data)


# Display selected panels, here V-Slope
spiro_plot(ramp_data, which = 5)


# Modify the arrangement of plots by passing arguments to
# cowplot::plot_grid() via the grid_args argument
spiro_plot(ramp_data, which = c(4, 5, 6, 8), grid_args = list(nrow = 1))


# Modify the appearance of plots using the style_args argument
spiro_plot(ramp_data, style_args = list(size = 0.3, color_VCO2 = "black"))


# Modify the appearance of plots by passing arguments to ggplot2::theme() via
# the style_args argument
spiro_plot(ramp_data,
  style_args = list(axis.title.x = ggplot2::element_text(colour = "green"))
)

# }

spiro_plot(ramp_data, which = 5)

spiro_plot(ramp_data, which = c(4, 5, 6, 8), grid_args = list(nrow = 1))

spiro_plot(ramp_data, style_args = list(size = 0.3, color_VCO2 = "black"))

spiro_plot(ramp_data,
  style_args = list(axis.title.x = ggplot2::element_text(colour = "green"))
)