How to plotting Bayesian Lasso beta coefficients

Question

I\'m trying to reproduce the graphics similar of Park and Caella (The Bayesian Lasso - 2008) in R, but the structure of the Bayesian Lasso is different of the Ordinary Lasso