In [24]:

    

# Carregando o pacote
library(plotly)


    

In [25]:

    

# Definindo os dados
mydata = read.csv("http://datascienceacademy.com.br/blog/aluno/RFundamentos/Datasets/Github/density.txt")
df = as.data.frame(mydata)
df


    

    
Out[25]:





X
Y
Z

	
1
1                   
0.281801653767389   
0.000599388354711243
	
2
1                   
0.283217326809162   
0.000789642059758038
	
3
1                  
0.284632999850936  
0.00102938485257213
	
4
1                  
0.286048672892709  
0.00132824619732163
	
5
1                  
0.287464345934483  
0.00169695438258103
	
6
1                  
0.288880018976256  
0.00216324641534335
	
7
1                  
0.29029569201803   
0.00273478158120769
	
8
1                 
0.291711365059803 
0.0034221511617826
	
9
1                  
0.293127038101577  
0.00423984337601892
	
10
1                  
0.294542711143351  
0.00520227497362076
	
11
1                  
0.295958384185124  
0.00632340737049436
	
12
1                  
0.297374057226898  
0.00761632158234233
	
13
1                  
0.298789730268671  
0.00912428380686967
	
14
1                 
0.300205403310444 
0.0108348196163851
	
15
1                 
0.301621076352218 
0.0127440045990368
	
16
1                 
0.303036749393992 
0.0148509749824869
	
17
1                 
0.304452422435765 
0.0171502037268709
	
18
1                 
0.305868095477539 
0.0196310633178439
	
19
1                 
0.307283768519312 
0.0222774477024071
	
20
1                 
0.308699441561086 
0.0250836868875042
	
21
1                 
0.310115114602859 
0.0279912963876458
	
22
1                 
0.311530787644633 
0.0309564616525138
	
23
1                 
0.312946460686406 
0.0339354267542904
	
24
1               
0.31436213372818
0.03688044917801
	
25
1                 
0.315777806769953 
0.0397406766933241
	
26
1                 
0.317193479811727 
0.0424631372316419
	
27
1                
0.3186091528535  
0.044948490988949
	
28
1                 
0.320024825895274 
0.0471582781955655
	
29
1                 
0.321440498937047 
0.0490520018591967
	
30
1                 
0.322856171978821 
0.0505883221540663
	
⋮
⋮
⋮
⋮
	
4579
9                
0.953934657757086
0.130049722613747
	
4580
9                
0.955336420024726
0.116171528821558
	
4581
9                
0.956738182292365
0.103434478114251
	
4582
9                 
0.958139944560004 
0.0919998269414842
	
4583
9                 
0.959541706827643 
0.0815339488470058
	
4584
9                 
0.960943469095282 
0.0719857229508819
	
4585
9                 
0.962345231362922 
0.0633045743879432
	
4586
9                 
0.963746993630561 
0.0554405153294351
	
4587
9                 
0.9651487558982   
0.0484455514982641
	
4588
9                 
0.966550518165839 
0.0422345382014066
	
4589
9                 
0.967952280433479 
0.0366603674234382
	
4590
9                 
0.969354042701118 
0.0316782552264579
	
4591
9                 
0.970755804968757 
0.0272446180019195
	
4592
9                 
0.972157567236396 
0.0233171251767108
	
4593
9                 
0.973559329504036 
0.0199611537530091
	
4594
9                 
0.974961091771675 
0.0170093565604255
	
4595
9                 
0.976362854039314 
0.0144207218039995
	
4596
9                 
0.977764616306953 
0.0121618939616041
	
4597
9                 
0.979166378574592 
0.0102011836948766
	
4598
9                  
0.980568140842232  
0.00853283431407442
	
4599
9                  
0.981969903109871  
0.00713065022460642
	
4600
9                  
0.98337166537751   
0.00592545793868443
	
4601
9                  
0.984773427645149  
0.00489542591060703
	
4602
9                  
0.986175189912789  
0.00402028969927571
	
4603
9                  
0.987576952180428  
0.00328132397987771
	
4604
9                  
0.988978714448067  
0.00268279708730937
	
4605
9                  
0.990380476715706  
0.00218388913854437
	
4606
9                  
0.991782238983346  
0.00176643180142037
	
4607
9                  
0.993184001250985  
0.00141943448611056
	
4608
9                  
0.994585763518624  
0.00113297495844219

In [26]:

    

# Gráfico 3d
plot_ly(df, x = Y, y = X, z = Z, group = X, type = "scatter3d", mode = "lines")