library(plotly)
library(htmlwidgets)
jumps<-list(c(1,0,0),c(0,1,0),c(0,0,1),c(-1,0,0),c(0,-1,0),c(0,0,-1))
n <- 1000
position <- c(0,0,0)
richtung <- sample(1:6,n,replace=TRUE)
spruenge <- unlist(jumps[richtung])
spruenge <- matrix(spruenge,ncol=3,byrow = TRUE)
A <- data.frame(x=cumsum(spruenge[,1]),y=cumsum(spruenge[,2]),z=cumsum(spruenge[,3]))
A$step <- 1:nrow(A)
A$x <- A$x + runif(n,-0.25,0.25)
A$y <- A$y + runif(n,-0.25,0.25)
A$z <- A$z + runif(n,-0.25,0.25)
p <- plot_ly(data=A, x = ~x, y = ~y, z = ~z, type = 'scatter3d', mode = 'lines',
opacity = 1, line = list(width = 3, color = ~step))
#set your own directory
setwd("C:/Users/Trutschnig/Documents/Miktex_docs/Forschung und Uni/Skripten/Wissenschaftliches Rechnen/graphics")
htmlwidgets::saveWidget(as_widget(p,width=1650,height=730), file="RW3d.html")