带ggplot的堆积巴特图4变量

Question

我对此很陌生，我想补充一下我尝试重塑/融化数据的各种方式。我的数据有三种不同的变体：

版本1：

val lst2: Vector[Int] = (0 to 20).filter(_ % 2 == 1).toVector

版本2：

year,type,total,action,perc
    2015,v,"1,199,310",crime,42.16 
    2015,p,"8,024,115",crime,18.24 
    2015,v,"505,681",arrest,42.16 
    2015,p,"1,463,213",arrest,18.24 
    2016,v,"1,250,162",crime,32.85 
    2016,p,"7,928,530",crime,17.07 
    2016,v,"410,717",arrest,32.85 
    2016,p,"1,353,283",arrest,17.07 
    2017,v,"1,247,321",crime,41.58 
    2017,p,"7,694,086",crime,16.24 
    2017,v,"518,617",arrest,41.58 
    2017,p,"1,249,757",arrest,16.24

版本3：

year,type,crime,arrest,perc
    2015,1,"1,199,310","505,681",42.16 
    2015,2,"8,024,115","1,463,213",18.24 
    2016,1,"1,250,162","410,717",32.85 
    2016,2,"7,928,530","1,353,283",17.07 
    2017,1,"1,247,321","518,617",41.58 
    2017,2,"7,694,086","1,249,757",16.24 

该想法是要显示1990-2017年期间暴力犯罪与财产犯罪的总数，并根据犯罪类型（财产或暴力）在每个小节内显示逮捕数量（标记为百分比）。首选是每年将全部四个堆叠为一个条形，每个条形具有不同的颜色。

我发现这些方法很有帮助，但在弄清楚如何将数据放入其中时仍然感到困惑。 how to create stacked bar charts for multiple variables with percentages，但看起来像这样Count and Percent Together using Stack Bar in R

我已经将这些数据集用于代码，但是如果我发布了所有我尝试不起作用的不同代码，可能会造成混淆。