如何在 r 中创建 3d 绘图（附示例）

在 R 中创建 3D 绘图的最简单方法是使用persp()函数。

 persp(x, y, z)

以下示例展示了如何在实践中使用此功能。

示例 1：基本 3D 绘图

以下代码显示了如何创建基本的 3D 绘图：

 #define x and y
x <- -10:10
y <- -10:10

#define function to create z-values
z_values <- function (x, y) {
  sqrt(x^2 + y^2)
}

#create z-values
z = outer(x, y, z_values)

#create 3D plot
persp(x, y, z) 

示例 2：自定义 3D 绘图

以下代码显示如何自定义绘图的轴标签、标题、颜色和阴影：

 #define x and y
x <- -10:10
y <- -10:10

#define function to create z-values
z_values <- function (x, y) {
  sqrt(x^2 + y^2)
}

#create z-values
z = outer(x, y, z_values)

#create 3D plot
persp ( x , y, z, xlab= '
      main=' 3D Plot ', col=' pink ', shade= .4 )

示例 3：旋转 3D 绘图

以下代码演示如何使用theta和phi参数旋转 3D 绘图以使其更易于查看：

 #define x and y
x <- -10:10
y <- -10:10

#define function to create z-values
z_values <- function (x, y) {
  sqrt(x^2 + y^2)
}

#create z-values
z = outer(x, y, z_values)

#create 3D plot
persp ( x , y, z, xlab= '
      main=' 3D Plot ', col=' pink ', shade= .4 , theta= 30 , phi= 15 ) 

示例 4：向 3D 绘图添加刻度线

以下代码演示如何使用ticktype参数向每个轴添加带有标签的刻度：

 #define x and y
x <- -10:10
y <- -10:10

#define function to create z-values
z_values <- function (x, y) {
  sqrt(x^2 + y^2)
}

#create z-values
z = outer(x, y, z_values)

#create 3D plot
persp ( x , y, z, xlab= '
      main=' 3D Plot ', col=' pink ', shade= .4 , theta= 30 , phi= 15 , ticktype=' detailed ' ) 

其他资源

以下教程解释了如何在 R 中创建其他常见图形：

如何在R中绘制多条线
如何在 R 中的单个图中绘制多个箱线图
如何在 R 中创建帕累托图
如何在 R 中创建雷达图