我有一个多边形,我旋转和缩放,然后想要显示。当试图事先绘制它时,一切都很好:
library(rgl)
poly_nice <- data.frame(
"x" = c(0, 0, 2, 2, 0.1, 3, 3, 5, 5, 3.1, 5, 6, 8, 10, 8, 6, 5, 3.1, 5, 5, 3, 3, 0.1, 2, 2, 0, 0),
"y" = c(0, 2, 4, 2, 0.1, 0.1, 2, 4, 2, 0.1, 0.1, 1, 1, 0, -1, -1, -0.1, -0.1, -