R：将图从图窗口强制转换为栅格对象

Question

以下代码在RStudio的绘图窗口中生成以下绘图。

df$year_lag <- cumsum(df$month_lag == 1) + 1

我想将其强制为raster object。

约束：我想避免这种情况

slices <- c(10, 12,4, 16, 8)
pie(slices, col = rainbow(5))

也就是说，我想避免导出和导入图。

你能帮忙吗？