How to get average predicted probabilities for each level of a factor variable X in multinomial logit using multinom in r?

Question

I am doing a multinomial logit where Y~X + C1 +C2, where Y is the outcome variable with 5 levels. X is the variable of interest and is a factor variable with 8 levels. C1 an