r - 围绕 X 轴旋转 scatterplot3d

Question

我知道这个问题，dcarlsen 有助于解释如何围绕 r 中的 z 轴旋转 3dscatterplot。但是，我也想绕 x 轴旋转。代码：

attach(dataset)
dateconverted <- as.Date(Date)
Status_converted <- as.factor(Vaccine_status)
age <- as.numeric(gsub("([0-9]+).*$", "\\1", Declared_age))
scatterplot3d(dateconverted[4500:5115], age[4500:5115], New_cases[4500:5115], color=c("red","blue","green")[Status_converted[4500:5115]], pch=19, angle=75)

它提供了以下内容：

显然，图表上有大量工作要做，但我想将前面向上旋转（围绕 x 轴）。

Answer 1

您可以尝试生成更多动态图形的其他库，您可以在此处查看示例：

library(rgl)
library(ggplot2)
library(knitr)
library(rglwidge)

plot3d(
  mtcars$wt,
  mtcars$disp,
  mtcars$mpg,
  type = "s",
  size = 1,
  lit = TRUE,
  main = "Car Weight Vs Engine Displacement Vs Mileage",
  sub = "3-D Plot"
)