R中的geom_segment图

Question

我试图制作一个图表，显示不同类型的地图类别随时间的不同类型和大小的变化。

我发现这个帖子很有用，但不能得到我想要的东西： Proportionally sized arrows in ggplot

我有一个如下所示的数据框：

class1  class2  ChangeType ChangeMagnitude
1       2       green       234 
1       3       green       22
2       1       red         171 
2       3       green       144
3       1       red         27
3       2       red         56

我想绘制箭头长度或箭头大小与＆＃34; ChangeMagnitude＆＃34;成比例的线条。 我希望箭头的颜色因ChangeType而异（例如，增加=绿色，减少=红色）。

这是我尝试过的代码：

library(ggplot2)
library(grid)

ggplot(mydata, aes(x=class1, y=class2)) + geom_segment(aes(xend=type1, yend=type2),data=mydata, colour=mydata$ChangeType, arrow = arrow(length =  unit(mydata$ChangeMagnitude*1, "cm")))

颜色论点根本不起作用，我不确定箭头是否给了我想要的东西。建议将不胜感激。

或者，使用比例点符号而不是箭头可能更好......