0

简单的例子,我想在从 plot_gg 函数生成的光线着色器 rgl 中标记单点,而不是 plot_3d。

下面的示例只是来自 mtcars 数据集“RX4”的标签点 1。问题是在高度矩阵中定位正确的 x,y 坐标。

data("mtcars")
library(ggplot2)
library(rayshader)
mtplot = ggplot(mtcars) +
  geom_point(aes(x = mpg, y = disp, color = cyl)) +
  scale_color_continuous(limits = c(0, 8))

mtgraph<- plot_gg(mtplot, width = 3.5, multicore = TRUE, windowsize = c(800, 800),
        zoom = 0.85, phi = 35, theta = 30, sunangle = 225, soliddepth = -100, save_height_matrix = TRUE)

render_label(heightmap = mtgraph, x =  mtcars[1,1], y =  mtcars[1,3],    text = "RX4")

在此处输入图像描述

4

0 回答 0