Как разместить grobs с annotation_custom () в точных областях области графика?

Я пытаюсь воспроизвести следующий сюжет [base R] сggplot2

Я справился с большинством из этого, но в настоящее время меня сбивает с толку расположение сегментов линии, которые соединяют участок краевого ковра справа от графика с соответствующей меткой. Этикетки были нарисованы (на втором рисунке ниже) черезanotation_custom() и я использовал @baptiste 'Трюк с отключением отсечения, чтобы рисовать на полях графика.

Несмотря на множество попыток я не могу разместитьsegmentGrobs() в нужных местах устройства, чтобы они соединялись с правильными галочками и метками.

Воспроизводимый пример

y 

Ответы на вопрос(2)

Ваш ответ на вопрос