2017-02-10 110 views
0

我試圖用R界面繪製一個三維散點圖。 我plotly電話是:積分三維散點圖R z軸和同構

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。 我收到警告:

「警告消息:'layout'對象沒有這些屬性: 'zaxis'有效屬性包括:'font','title','titlefont', 'autosize','width','height','ma ''''''''''''''''''''','''''''''''''''''''''''''''''''','''','hidesources'''地圖','legend', 'annotations','shapes','images','updatemenus','ternary','mapbox', 'radialaxis','angularaxis','direction','orientation',' barmode', 'bargap','mapType'「。

所以我的第一個問題是:如何設置z軸美學?

  1. 我想要有一個同構圖:刻度之間的間距相同,x,y,z軸上的刻度尺相同。我怎樣才能得到這個?

預先感謝您的支持

+1

圖中的完整代碼,您可以包括一個數據集到您的文章? – MLavoie

+1

是的,輸入圖像在這裏https://www.dropbox.com/sh/7ct3xpfwwj555gh/AAAJc7u3aIxIBoN4dtvjKqora?dl=0 –

回答

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)) 

enter image description here