R绘图撤消线段？

Question

是否有一个快速简便的功能来撤消一个片段或从你的情节中删除它？

    p1 <- locator(1)
    p2 <- locator(1)
    segments(p1$x, p1$y, p2$x, p2$y, col = 'pink')
    //Undo segments

我的意思是说,是否可以存储您要擦除的线段(每个像素的颜色/强度),然后再添加粉红色线段的线段实际上撤消粉红色线段绘制.如何实现这一目标？

Answer 1

你可以使用Grid图形,

library(grid)
ll = replicate(2, grid.locator())
g = grid.segments(ll[,1]$x, ll[,1]$y, ll[,2]$x, ll[,2]$y, 
      name="mysegment", gp=gpar(col="pink", lwd=5))
grid.remove("mysegment")