使用Plotly与gridExtra合并Iris数据集图表：移除重复标题与图例求助

嘿，这个问题我熟！你用subplot合并两个ggplotly图表时出现重复的标题和图例，是因为每个转成plotly的ggplot对象都自带了这些元素，咱们只需要针对性地移除其中一个的多余部分就行，给你两种实用的方法：

方法一：在ggplot阶段就移除多余元素 #

在创建ggplot对象时，直接给其中一个图去掉标题和图例，再转成plotly，这样合并后就不会有重复了：

library(plotly)
library(ggplot2)
library(dplyr)

# 第一个图保留标题和图例（可以自定义标题）
ggiris1 <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species) +
  labs(title = "花瓣宽度 vs 花萼长度")

# 第二个图移除图例和标题
ggiris2 <- qplot(Petal.Length, Sepal.Length, data = iris, color = Species) +
  theme(legend.position = "none") +  # 隐藏图例
  labs(title = NULL)  # 清空标题

# 转换为plotly对象并合并
ply1 <- ggplotly(ggiris1)
ply2 <- ggplotly(ggiris2)
subplot(ply1, ply2, nrows = 1)

方法二：直接修改Plotly对象的布局 #

如果已经生成了plotly对象，也可以通过layout()函数直接修改其中一个的布局，隐藏多余的标题和图例：

library(plotly)
library(ggplot2)
library(dplyr)

# 先创建基础的ggplot和plotly对象
ggiris1 <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggiris2 <- qplot(Petal.Length, Sepal.Length, data = iris, color = Species)
ply1 <- ggplotly(ggiris1)
ply2 <- ggplotly(ggiris2)

# 修改第二个plotly对象，移除图例和标题
ply2 <- ply2 %>%
  layout(showlegend = FALSE,  # 关闭图例显示
         title = "")  # 清空标题

# 合并图表
subplot(ply1, ply2, nrows = 1)

额外小技巧：添加全局统一标题 #

如果想要给整个合并后的图表加一个统一的大标题，可以在subplot之后再用layout()设置：

subplot(ply1, ply2, nrows = 1) %>%
  layout(title = list(text = "Iris数据集：花萼长度与花瓣特征的关系", x = 0.5))

这样整个画布就只有一个全局标题和一个图例啦，完美解决你的问题！

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