The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.
Sometimes you may want to include more complex patterns of interactivity into a plot, for example where interaction with one plot elements triggers changes or appearance / disappearance in a wider group of other plot elements.
In this case you can utilise the ability to group elements in a plot,
so that interaction with any one of the group elements that has been
indicated as interactive with the argument
interactive = TRUE will trigger changes as specified by
highlight in all other plot elements in the same group.
The example below builds up a plot with more complex interactivity based on these principles.
# Set data
x_vals <- iris$Sepal.Length
y_vals <- iris$Sepal.Width
z_vals <- iris$Petal.Length
point_cols <- rainbow(3)[iris$Species]
# Setup plot
data3js <- plot3js(
x = x_vals,
y = y_vals,
z = z_vals,
xlab = "Sepal Length",
ylab = "Sepal Width",
zlab = "Petal Length"
)
# Add points for each point
for (n in seq_along(x_vals)) {
# Set a record of point ids you're going to group
point_ids <- c()
# Add the 3d point
data3js <- points3js(
data3js,
x = x_vals[n],
y = y_vals[n],
z = z_vals[n],
col = point_cols[n],
size = 1,
highlight = list(
size = 2
),
interactive = TRUE
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the x- face
data3js <- points3js(
data3js,
x = data3js$lims[[1]][1] + 0.001,
y = y_vals[n],
z = z_vals[n],
col = point_cols[n],
shape = "circle",
size = 1,
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
rotation = c(0, 90, 0),
face = "x-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the x+ face
data3js <- points3js(
data3js,
x = data3js$lims[[1]][2] - 0.001,
y = y_vals[n],
z = z_vals[n],
col = point_cols[n],
size = 1,
shape = "circle",
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
rotation = c(0, 90, 0),
face = "x+"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the x- face
data3js <- lines3js(
data3js,
x = c(data3js$lims[[1]][1], x_vals[n]),
y = c(y_vals[n], y_vals[n]),
z = c(z_vals[n], z_vals[n]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "x-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the x+ face
data3js <- lines3js(
data3js,
x = c(x_vals[n], data3js$lims[[1]][2]),
y = c(y_vals[n], y_vals[n]),
z = c(z_vals[n], z_vals[n]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "x+"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the y- face
data3js <- points3js(
data3js,
x = x_vals[n],
y = data3js$lims[[2]][1] + 0.001,
z = z_vals[n],
col = point_cols[n],
size = 1,
shape = "circle",
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
rotation = c(90, 0, 0),
face = "y-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the y+ face
data3js <- points3js(
data3js,
x = x_vals[n],
y = data3js$lims[[2]][2] - 0.001,
z = z_vals[n],
col = point_cols[n],
size = 1,
shape = "circle",
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
rotation = c(90, 0, 0),
face = "y+"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the y- face
data3js <- lines3js(
data3js,
x = c(x_vals[n], x_vals[n]),
y = c(data3js$lims[[2]][1], y_vals[n]),
z = c(z_vals[n], z_vals[n]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "y-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the y+ face
data3js <- lines3js(
data3js,
x = c(x_vals[n], x_vals[n]),
y = c(y_vals[n], data3js$lims[[2]][2]),
z = c(z_vals[n], z_vals[n]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "y+"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the z- face
data3js <- points3js(
data3js,
x = x_vals[n],
y = y_vals[n],
z = data3js$lims[[3]][1] + 0.001,
col = point_cols[n],
size = 1,
shape = "circle",
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
face = "z-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the z- face
data3js <- lines3js(
data3js,
x = c(x_vals[n], x_vals[n]),
y = c(y_vals[n], y_vals[n]),
z = c(data3js$lims[[3]][1], z_vals[n]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "z-"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the line to the z+ face
data3js <- lines3js(
data3js,
x = c(x_vals[n], x_vals[n]),
y = c(y_vals[n], y_vals[n]),
z = c(z_vals[n], data3js$lims[[3]][2]),
lwd = 0,
highlight = list(
lwd = 2
),
face = "z+"
)
point_ids <- c(point_ids, lastID(data3js))
# Add the point on the z+ face
data3js <- points3js(
data3js,
x = x_vals[n],
y = y_vals[n],
z = data3js$lims[[3]][2] - 0.001,
col = point_cols[n],
size = 1,
shape = "circle",
opacity = 0.2,
highlight = list(
size = 2,
opacity = 1
),
interactive = TRUE,
depthWrite = FALSE,
face = "z+"
)
point_ids <- c(point_ids, lastID(data3js))
# Now group all the points you've added
data3js <- group3js(data3js, point_ids)
}
# View the plot
r3js(data3js)These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.