bubble sort in r coding

Create a vector containing 20 random integers out of 1 to 100 using sample(), e.g.

set.seed(20)

a <- c(sample(100, 20))

use for statement to implement the bubble sort algorithm to sort the integers in increasing order. display the sorting process step by step using geom_col() and ggplot() in R