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