Вот мой начальный код диаграммы:
Full %>% ggplot(aes(x = reorder(POS, -Iconicity), y = Iconicity, fill = Group)) +
geom_bar(stat = "summary", position=position_dodge(width = 0.9)) +
scale_fill_viridis_d() + # color-blind compatible colors
theme_minimal() + xlab("POS")
, который создает этот прекрасный график:

Итак, я хотел повернуть это в виде диаграммы леденцов, чтобы она выглядела аккуратнее и современнее, и вот код, который я использовал:
Full %>% ggplot(aes(x = reorder(POS, -Iconicity), y = Iconicity, color = Group)) +
geom_point(size=3, stat = "summary", position=position_dodge(width = 0.9)) +
geom_segment(aes(x=POS,
xend=POS,
y=0,
yend=Iconicity)) +
scale_fill_viridis_d() + # color-blind compatible colors
theme_minimal() + xlab("POS")
Однако, конечно, это не добавляет достаточно сегментов в нужных местах, и я не могу показаться выяснить, как перейти к коду. Что у меня осталось, так это:

Я все еще довольно новичок в R, так что прости меня