r1 <- rPlot(mpg ~ wt, data = mtcars, type = 'point')
r1$layer(type = 'line', copy_layer = T)
r1