Graphing predicted probabilities from a multinomial model (i.e., mlogit) in R

Question

I am using the mlogit() function for my data and I need to graph the predicted probabilities for certain scenarios and plot the means and confidence intervals f