如何在ggplotly中重命名多个变量？

library(ggplot2)
library(plotly)

# 创建一个示例数据框
df <- data.frame(x = 1:10, y = 1:10, z = 1:10)

# 创建一个ggplot对象
p <- ggplot(df, aes(x, y, color = z)) +
  geom_point()

# 使用ggplotly()函数将ggplot对象转换为plotly对象
p <- ggplotly(p)

# 使用scale_x_continuous()和scale_y_continuous()函数来重命名变量
p <- p %>%
  layout(xaxis = list(title = "新的x轴变量名"),
         yaxis = list(title = "新的y轴变量名"))

# 打印出重命名后的图形
print(p)