# Set text parameters
x <- 1:4
y <- rep(0, 4)
z <- rep(0, 4)
labels <- LETTERS[1:4]
sizes <- c(0.4, 0.6, 0.8, 1)
# Create empty plot
p0 <- plot3js(
xlim = c(0, 5),
ylim = c(-1, 1),
zlim = c(-1, 1),
aspect = c(1, 1, 1),
label_axes = FALSE
)
# Add text as a geometry
p <- text3js(
data3js = p0,
x = x,
y = y,
z = z,
size = sizes,
text = labels
)
r3js(p, rotation = c(0, 0, 0), zoom = 1)
# Add text as a html labels
p <- text3js(
data3js = p0,
x = x,
y = y,
z = z,
size = sizes*40,
text = labels,
type = "html"
)
r3js(p, rotation = c(0, 0, 0), zoom = 1)
Run the code above in your browser using DataLab