m разрабатывает график со стрелками пропорционального размера и имеет рабочий процесс для размера, направления и размера наконечника стрелы, но есть несколько проблем со стрелками: 1. они имеют закругленное линейное соединение и 2. они нет (даже в правом нижнем углу), даже когда.type='closed'

require(ggplot2)
require(grid)
d = data.frame(x = 1:10, y = 0, size = 1:10)

ggplot(d, aes(x, y, size = size)) +
  geom_segment(aes(xend = x, yend = y + size), 
               arrow = arrow(length = unit(d$size, "mm"), type='closed')) +
  scale_size(range = c(2, 4))

Стрелки основаны насетка графика, но я не могу понять, как указать настройки.get.gpar() выходы:

$lineend
[1] "round"

$linejoin
[1] "round"

ноgpar(linejoin = 'mitre', lineend = 'butt') не меняет это. Есть ли способ изменить эти настройки? Заранее спасибо.

редактировать

Добавлено изображение графика, включая стрелку grid.segments: