如何让R中plot_ly分面直方图匹配ggplot2样式并自定义样式？

针对你提出的统一X轴范围与标题、自定义分面颜色的需求，可以通过以下步骤实现：

关键修改点 #

• 统一X轴范围：先计算全局数据中Est.Age的最小/最大值，让所有子图共用该范围
• 自定义分面颜色：提前为每个Ancestry因子水平分配对应颜色，在生成子图时指定
• 统一X轴标题：仅保留最下方子图的X轴标题，隐藏其他子图的X轴标题与冗余刻度

完整实现代码 #

library(plotly)
library(dplyr)
library(RColorBrewer) # 可选，用于生成规范色板，也可自定义颜色向量

# 生成示例数据
set.seed(123) # 设置随机种子保证结果可复现
x <- data.frame(Ancestry = as.factor(sample(1:7,200, replace=T)), 
                Est.Age = rnorm(200, mean=50, sd=20))

# 1. 定义自定义颜色：对应Ancestry的因子顺序
# 可替换为你需要的颜色向量，比如c("#FF0000", "#00FF00", ...)
color_vec <- setNames(brewer.pal(nlevels(x$Ancestry), "Set1"), 
                      levels(x$Ancestry))

# 2. 计算全局X轴范围，保证所有分面一致
x_range <- range(x$Est.Age)

# 3. 生成分面子图并组合
x %>% 
  group_by(Ancestry) %>%
  group_map(function(.data, .group) {
    # 获取当前分组对应的颜色
    current_color <- color_vec[as.character(.group)]
    
    plot_ly(data = .data, x = ~Est.Age, 
            type = "histogram", nbinsx = 18, bingroup = 1,
            marker = list(color = current_color)) %>%
      # 为每个子图设置统一的X轴范围
      layout(xaxis = list(range = x_range))
  }, .keep = TRUE) %>%
  # 组合子图，共享X轴，设置行数
  subplot(nrow = 3, shareX = TRUE, titleX = FALSE) %>%
  # 统一设置X轴标题，仅显示在最底部
  layout(xaxis = list(title = "Age"),
         # 隐藏其他子图的X轴标题与刻度标签
         xaxis2 = list(title = "", showticklabels = FALSE),
         xaxis3 = list(title = "", showticklabels = FALSE),
         xaxis4 = list(title = "", showticklabels = FALSE),
         xaxis5 = list(title = "", showticklabels = FALSE),
         xaxis6 = list(title = "", showticklabels = FALSE),
         xaxis7 = list(title = "", showticklabels = FALSE))

代码解释 #

• 颜色自定义：color_vec通过setNames将颜色与Ancestry的因子水平一一绑定，确保每个分面的颜色与你其他图表的样式一致
• 全局X范围：x_range计算所有数据的年龄范围，每个子图都使用该范围，避免分面间X轴缩放不一致
• 子图组合与布局：subplot的shareX=TRUE保证X轴刻度对齐，titleX=FALSE关闭子图默认的X轴标题；后续layout仅为最底部的X轴设置标题，隐藏其他子图的X轴元素，实现类似ggplot2的分面效果

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