R语言Plotly多子图Y轴刻度字号不生效问题求助

你的代码存在几个核心问题导致Y轴刻度字号设置失效，以下是修正思路和完整代码：

问题分析 #

• X轴变量名错误：代码中绘图用了~BUSINESS_DATE，但数据框列名是DATE，这会导致绘图异常，需先修正这个基础错误。
• 参数名拼写错误：Plotly中控制刻度字体的参数是tickfont，而非你写的tick_font，这直接导致设置不生效。
• 子图合并时轴设置被覆盖：subplot()合并子图时会默认统一管理轴配置，单独在每个子图的layout里设置yaxis参数易被全局覆盖，需给每个子图的Y轴分配唯一ID再统一配置。

修正后的代码 #

library(plotly)
library(tidyr)

# 创建示例数据
set.seed(123)
df <- data.frame(
  DATE = seq(as.Date("2021-01-01"), as.Date("2021-01-10"), by = "day"),
  FEATURE1 = rnorm(10),
  FEATURE2 = rnorm(10),
  FEATURE3 = rnorm(10),
  FEATURE4 = rnorm(10),
  FEATURE5 = rnorm(10),
  FEATURE6 = rnorm(10),
  FEATURE7 = rnorm(10),
  FEATURE8 = rnorm(10),
  FEATURE9 = rnorm(10),
  FEATURE10 = rnorm(10)
)

# 宽表转长表
df_long <- pivot_longer(df, cols = -DATE, names_to = "Feature", values_to = "Value")

# 获取目标特征列表（保留原代码去掉第一个特征的逻辑）
features <- unique(df_long$Feature)[-1]

# 创建带唯一Y轴ID的子图列表
plots <- lapply(seq_along(features), function(i) {
  feature <- features[i]
  yaxis_id <- paste0("yaxis", i)
  
  plot_ly(df_long[df_long$Feature == feature, ], 
          x = ~DATE, y = ~Value, 
          type = "scatter", mode = "lines",
          line = list(color = "blue"), 
          showlegend = FALSE, 
          text = paste0("Feature: ", feature)) %>%
    layout(
      # 指定当前子图的Y轴ID及基础配置
      !!yaxis_id := list(
        title = feature,
        titlefont = list(size = 20),
        tickfont = list(size = 20)
      ),
      annotations = list(
        list(x = 0.5, y = 1, text = feature, showarrow = FALSE, 
             xref = "paper", yref = "paper", font = list(size = 6))
      )
    )
})

# 合并子图并确保轴配置生效
subplot(plots, nrows = 5, shareX = TRUE, titleX = TRUE)

关键修正点 #

1. 修正X轴变量名的错误引用，将~BUSINESS_DATE改为~DATE。
2. 把错误的tick_font参数改为Plotly标准的tickfont。
3. 给每个子图的Y轴分配唯一ID（yaxis1到yaxis9），避免合并时配置冲突。
4. 使用!!yaxis_id :=的方式动态绑定轴配置，确保每个子图的Y轴设置被正确识别。

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