<- transform(data, x = xend, y = yend)
ends ends, panel_params)...$x, ends$y,
default.units = "native", gp = grid::gpar(
col = alpha(coords$colour, coords...data)) {
return(zeroGrob())
}
coords <- coord$transform(data, panel_params)
ends...<- transform(data, x = xend, y = yend)
ends ends, panel_params)...arrow.fill)) arrow.fill else coords$colour
return(grid::curveGrob(
coords$x, coords$y, ends