我在R闪亮的应用程序上使用ploly（）创建了一个3D散点图。代码如下：

output$threeDscatterPlot <- renderPlotly({
    data <- dataInput()$data
      plot.obj <<-list() 
      plot.obj$data <<- data 
      var7 <<- with(plot.obj$data,get(input$variable7)) 
      var8 <<- with(plot.obj$data,get(input$variable8)) 
      var9 <<- with(plot.obj$data,get(input$variable9)) 
      var10 <<- with(plot.obj$data,get(input$variable10)) 
      var10 <-  as.factor(var10)
      print(names(plot.obj$data))
p <- plot_ly(plot.obj$data, x = var7, y = var8 , z = var9 , type = "scatter3d", mode = "markers" , 
              color = var10 , colors = "Paired" ) 
       p %>%  layout(legend = list(x = 1, y = 0.5 , bgcolor = "#E2E2E2"))

 })

var7 var8 var9是连续变量

3D绘图非常清晰，但是x轴标签、y轴标签和z轴标签是var 7、var 8、var 9

我的问题是：我们如何将x，y，z轴的标题更改为在dataset/dataframe中的var7/8/9的实际变量名称？我尝试使用xaxi. zaxi， yaxi，但它似乎不起作用我们如何添加图例标题就在图例之上？

全部在R Shiny App中完成

提前谢谢