R z軸和同構圖上的3D散點圖

Question

我正在嘗試通過R接口設置3D散點圖。 我的電話是：

p.sagittale<-plot_ly(data=filter(temp,tipo=='Caucasici'), x = ~coordX.Sagg , y = ~ coordY.Sagg, z = ~coordZ.Sagg,text = ~punti) %>% 
add_markers(color=~cluster) %>% 
layout(title = paste('Caucasici','Dente',i,'Sagittale'), xaxis = myaxis.list, yaxis = myaxis.list, zaxis=myaxis.list)

myaxis.list的定義如前：

myaxis.list<- list(
    zeroline = TRUE,
    showline = TRUE,
    mirror = "ticks",
    gridcolor = toRGB("gray50"),
    gridwidth = 2,
    zerolinecolor = toRGB("blue"),
    zerolinewidth = 4,
    linecolor = toRGB("black"),
    linewidth = 6,
    autotick = FALSE,
    ticks = "outside",
    tick0 = 0,
    dtick = 0.25
  )

我有兩個問題：1.我收到警告：

“警告消息：'布局'對象不具有以下屬性：'zaxis'有效屬性包括：'font'，'title'，'titlefont'，'autosize'，'width'，'height'，'margin'， 'paper_bgcolor'，'plot_bgcolor'，'separators'，'hidesources'，'smith'，'showlegend'，'dragmode'，'hovermode'，'xaxis'，'yaxis'，'scene'，'geo'，'legend ”，“注釋”，“形狀”，“圖像”，“ updatemenus”，“三元”，“ mapbox”，“ radialaxis”，“ angularaxis”，“ direction”，“ orientation”，“ barmode”，“ bargap”， 'mapType'”。

所以我的第一個問題是：如何設定z軸美學？

2. 我想要一個同構圖：刻度線之間的間距相同，x，y，z軸上的比例尺相同。 我怎么能得到這個？

預先感謝您的支持

Answer 1

您需要將軸包裝在scene 。

layout(scene = list(xaxis = myaxis.list,
                    yaxis = myaxis.list,
                    zaxis = myaxis.list),
       )

並通過指定范圍的軸（即上界和下界） range 。

myaxis.list<- list( 
  autorange = FALSE,
  range = c(-5, 5)
  [...]
) 

---

下圖的完整代碼

myaxis.list<- list( 
  zeroline = TRUE, 
  showline = TRUE, 
  mirror = "ticks", 
  gridcolor = toRGB("gray50"), 
  gridwidth = 2, 
  zerolinecolor = toRGB("blue"), 
  zerolinewidth = 4, 
  linecolor = toRGB("black"), 
  linewidth = 6, 
  autotick = FALSE, 
  ticks = "outside", 
  tick0 = 0, 
  dtick = 0.25,
  autorange = FALSE,
  range = c(-5, 5)
) 
p.sagittale<-plot_ly(data=filter(temp,tipo=='Caucasici'), x = ~coordX.Sagg , y = ~ coordY.Sagg, z = ~coordZ.Sagg,text = ~punti) %>%
add_markers(color=~cluster) %>%
layout(title = paste('Caucasici','Dente',"i",'Sagittale'), scene=list(xaxis = myaxis.list, yaxis = myaxis.list, zaxis=myaxis.list))