使用R在3d中打印点和超平面
我已经读了很多关于我的主题的帖子，但没能找到解决办法 我想画点 点A和C应以红色绘制，点B应以蓝色绘制 此外，我想绘制超平面H： 就我所知，以下代码（当然）不能产生正确的输出：使用R在3d中打印点和超平面,r,3d,plot,R,3d,Plot,我已经读了很多关于我的主题的帖子，但没能找到解决办法 我想画点 点A和C应以红色绘制，点B应以蓝色绘制 此外，我想绘制超平面H： 就我所知，以下代码（当然）不能产生正确的输出： rm(list=ls(all=TRUE)) require("plot3D") require("rgl") require("misc3d") x3<-c(1,0,1) y3<-c(- sqrt(2),0,sqrt(2)) z3<-c(1,1,1) color<-c("red","bl
rm(list=ls(all=TRUE))
require("plot3D")
require("rgl")
require("misc3d")
x3<-c(1,0,1)
y3<-c(- sqrt(2),0,sqrt(2))
z3<-c(1,1,1)
color<-c("red","blue","red")
plot3d(x3,y3,z3, col="red")
surface3d(x=0.5,y=NULL,z=NULL,normal_x=1,normal_y=0,normal_z=0)A(1/-sqrt(2)/1)
B(0/0/1)
C(1/sqrt(2)/1)
rm（list=ls（all=TRUE））
需要（“plot3D”）
要求（“rgl”）
要求（“misc3d”）
x3如果我理解正确，您需要绘制3个点和一个x=0.5的平面。如果您愿意交换x和z的正式定义（并用标签更正），那么可以相对轻松地完成这项工作
库（“rgl”）
去年夏天我试着这么做，但我放弃了。在Sage（IPython）中做了所有事情。效果很好！但我想知道为什么我们必须改变x和z的正式定义。好问题surface3d（…）
以z=f（x，y）
的形式绘制曲面。不能以这种方式指定平面x=0.5
（因为它在z中是多值的），但可以轻松绘制z=0.5
。
library("rgl")
x3 <-c(1,0,1)
y3 <-c(- sqrt(2),0,sqrt(2))
z3 <-c(1,1,1)
color<-c("red","blue","red")
plot3d(z3,y3,x3, col=color, size=3, type="s",
xlim=c(-2,2), ylim=c(-2,2),zlim=c(-2,2),
xlab="Z",ylab="Y",zlab="X")
grid <- -2:2
surface3d(x=grid,y=grid,
z=matrix(.5,ncol=length(grid),nrow=length(grid)),
col="grey", alpha=.2)
lines3d(x=grid,y=0,z=0, col="grey")
lines3d(x=0,y=grid,z=0, col="grey")
lines3d(x=0,y=0,z=grid, col="grey")