如何在R中提取dygraphs与plotly图形的轴范围？

Base R 绘图轴范围提取 #

已掌握通过par('usr')提取base R绘图的轴范围，示例代码：

plot(Sepal.Length ~ Sepal.Width, iris)
(Horizontal_Axis_Limits <- par('usr')[1:2])
(Vertical_Axis_Limits <- par('usr')[3:4])

dygraphs 绘图轴范围提取 #

dygraphs生成交互式HTML图形，默认轴范围基于数据极值并添加少量内边距。以下是两种提取方式：

方式1：基于数据计算默认轴范围 #

默认情况下dygraph会给y轴范围添加5%的内边距，若数据为单值则使用[val-1, val+1]作为范围：

# 提取x轴（时间）范围
x_range <- range(index(Data))

# 计算y轴范围
y_min <- min(Data)
y_max <- max(Data)
if (y_min == y_max) {
  y_range <- c(y_min - 1, y_max + 1)
} else {
  y_pad <- (y_max - y_min) * 0.05
  y_range <- c(y_min - y_pad, y_max + y_pad)
}

方式2：从dygraph对象配置中提取 #

若手动设置过valueRange，或渲染后配置已生成，可直接访问对象内部属性：

# 获取x轴范围（转换为POSIXct格式）
x_config <- Figure_1$x$attrs$axes$x
x_range_ms <- x_config$valueRange
x_range <- as.POSIXct(x_range_ms / 1000, origin = "1970-01-01")

# 获取y轴范围
y_range <- Figure_1$x$attrs$axes$y$valueRange

注：未手动设置valueRange时，该属性可能为NULL，此时需用方式1计算。

plotly 绘图轴范围提取 #

R的plotly支持提取初始轴范围和交互式调整后的实时范围：

方式1：提取初始轴范围 #

直接从plotly对象的布局配置中获取：

# 提取x轴范围（转换为日期格式）
x_range <- as.Date(Figure_2$x$layout$xaxis$range, origin = "1970-01-01")

# 提取y轴范围
y_range <- Figure_2$x$layout$yaxis$range

方式2：提取交互式调整后的实时范围 #

当用户在交互式环境中调整轴范围（缩放、平移）后，可通过event_data()捕获：

# 触发轴调整操作后，运行以下代码
relayout_data <- plotly::event_data("plotly_relayout")

# 提取x轴当前范围
x_current_range <- c(relayout_data$`xaxis.range[0]`, relayout_data$`xaxis.range[1]`)
x_current_range <- as.Date(x_current_range, origin = "1970-01-01")

# 提取y轴当前范围
y_current_range <- c(relayout_data$`yaxis.range[0]`, relayout_data$`yaxis.range[1]`)

注：该方式需在交互式环境（RStudio Viewer、Shiny、浏览器）中运行，且用户触发了轴调整操作。

内容的提问来源于stack exchange，提问作者David Moore