построение диаграммы Венна с подвижными этикетками

Question

Я пытаюсь сделать диаграмму Венна с подвижными метками. Я видел эту функцию orditkplot из vegan packageкоторые генерируют сюжет с подвижными метками, чего я и добиваюсь. Однако их orditkplotможет использоваться только на графике ординации. Кто-нибудь знает, как сделать подвижные метки на диаграмме Венна?

Ниже приведен код для создания диаграммы Венна, которую я хотел бы использовать:

library(eulerr)

# Input in the form of a named numeric vector
fit1 <- euler(c("A" = 25, "B" = 5, "C" = 5,
                "A&B" = 5, "A&C" = 5, "B&C" = 3,
                "A&B&C" = 3))
plot(fit1)

Я хотел бы иметь возможность перемещать метки A, B или C.

Это пример кода в пакете vegan, где метки можно перемещать:

library(vegan)
data(varespec)
ord <- cca(varespec)
## Do something with the graph and end by clicking "Dismiss"
orditkplot(ord, mar = c(4,4,1,1)+.1, font=3)