This sounds like a popular plot but I really was trying to figure it out without any solution! Can I produce a plot that shows the percentage of the occurrence in each Blocked lanes inside each Duration? My data is

```
data<- structure(list(Lanes.Cleared.Duration = c(48, 55, 20, 38, 22, 
32, 52, 21, 39, 14, 69, 13, 14, 13, 25), Blocked.Lanes = c(1L, 
2L, 1L, 2L, 5L, 3L, 3L, 1L, 3L, 2L, 2L, 2L, 2L, 3L, 1L), Durations = structure(c(3L, 
3L, 2L, 3L, 2L, 3L, 3L, 2L, 3L, 2L, 4L, 2L, 2L, 2L, 2L), .Label = c("<10", 
"<30", "<60", "<90", "<120", ">120"), class = "factor")), row.names = c(NA, 
-15L), na.action = structure(c(`17` = 17L, `26` = 26L, `28` = 28L, 
`103` = 103L, `146` = 146L, `166` = 166L, `199` = 199L, `327` = 327L, 
`368` = 368L, `381` = 381L, `431` = 431L, `454` = 454L, `462` = 462L, 
`532` = 532L, `554` = 554L, `703` = 703L, `729` = 729L, `768` = 768L, 
`769` = 769L, `785` = 785L, `970` = 970L, `1043` = 1043L, `1047` = 1047L, 
`1048` = 1048L, `1081` = 1081L, `1125` = 1125L), class = "omit"), class = "data.frame") 

```

I tried the following code and it gave me Real Duration rather than percentage. Here is my code.

```
data %>% 
  ggplot(aes(fill=factor(Blocked.Lanes), y=Lanes.Cleared.Duration, x=Durations)) + 
  geom_bar(position="dodge", stat="identity")

```

My result should show the percentage of occurrence of each Blocked lane inside each Duration.
I tried to group by Durations but it did not work.