df = data.frame(
x = c(15, 4, 16, 11),
y = c(10, 30, 3, 10)
)
df %>%
grob_matrix() %>%
view_grob()
gg = ggplot2::ggplot(data = df, mapping = ggplot2::aes(x = x, y = y)) +
ggplot2::geom_line(color = 'red')
gg %>%
grob_image() %>%
view_grob()
Run the code above in your browser using DataLab