在R中的plotly 3D散点图中显示特定平面（XY）

对于x轴和y轴，showgrid=TRUE时，是否有任何方法消除从x轴和y轴延伸的垂直线，以便显示单个平面

library(plotly)

itemName = c("Alpha", "Bravo", "Charley", "Delta", "Echo", "Foxtrot") 
security = c(0.8583241, 0.7516891, 0.5390520, 0.4569594, 0.3228843, 0.1722286) 
miniX = c(-885.108, -1030.000, -805.889, -695.755, -887.871, -640.986) 
miniY   = c(-445.135, -298.563, -797.709, -806.598, -963.091, -1010)
miniZ   = c(423.694, 417.075, 616.456, 571.223, 575.304, 412.72)

df = data.frame(itemName, security, miniX, miniY, miniZ)

# set a range of colors
colors <- c('#f42f28', '#f2e30e', '#2d9b37', '#31a6f3') 


######### set up 3d scatter plot  #########
p1 <- plot_ly(df, 
             x = miniX, 
             y = miniY, 
             z = miniZ, 
             mode = "markers", 
             size = security, 
             color = security, 
             colors = colors,
             marker = list(symbol = 'circle', sizemode = 'diameter'), sizes = c(10, 20),
             text = paste('Item:', itemName, '<br>Security:', security),
             hoverlabel = list(bgcolor = '#ffffff', bordercolor = 'ffffff', font = list(color = '#000000')),
             hoverinfo = "text"
) %>%
  add_markers() %>%
  layout(title = 'Locales',
         scene = list(xaxis = list(title = '', autorange = TRUE, showgrid = TRUE, zeroline = FALSE, showline = FALSE, autotick = TRUE, ticks = '', showticklabels = FALSE),
                      yaxis = list(title = '', autorange = TRUE, showgrid = TRUE, zeroline = FALSE, showline = FALSE, autotick = TRUE, ticks = '', showticklabels = FALSE),
                      zaxis = list(title = '', autorange = TRUE, showgrid = FALSE, zeroline = FALSE, showline = FALSE, autotick = TRUE, ticks = '', showticklabels = FALSE)
         )
  )

# Output the plot
p1

library（plotly）
itemName=c（“阿尔法”、“布拉沃”、“查理”、“德尔塔”、“回声”、“狐步”）
安全=c（0.8583241、0.7516891、0.5390520、0.4569594、0.322843、0.172286）
miniX=c（-885.108，-1030.000，-805.889，-695.755，-887.871，-640.986）
miniY=c（-445.135，-298.563，-797.709，-806.598，-963.091，-1010）
miniZ=c（423.694417.075616.456571.223575.304412.72）
df=data.frame（itemName、security、miniX、miniY、miniZ）
#设置一系列颜色
颜色%
添加_标记（）%>%
布局（标题='Locales'，
场景=列表（xaxis=列表（标题=“”，自动范围=真，显示栅格=真，零线=假，显示线=假，自动点击=真，勾号=“”，显示勾号标签=假），
yaxis=list（title=''，autorange=TRUE，showgrid=TRUE，zeroline=FALSE，showline=FALSE，autotick=TRUE，ticks=''，showticklabels=FALSE），
zaxis=list（title=''，autorange=TRUE，showgrid=FALSE，zeroline=FALSE，showline=FALSE，autotick=TRUE，ticks=''，showticklabels=FALSE）
)
)
#输出绘图
p1