Item Characteristic Curve Help

Does anyone have the syntax to create Item characteristic curves for multiple choice items (non-binary)? I found a picture of what i want to create online but can't figure out how to do it.

suppressPackageStartupMessages({
  library(eRm)
})
rsm.res <- RSM(rsmdat)
thresholds(rsm.res)
#> 
#> Design Matrix Block 1:
#>    Location Threshold 1 Threshold 2 Threshold 3
#> I1  0.02202    -0.02395    -0.19134     0.28135
#> I2  0.35112     0.30515     0.13776     0.61045
#> I3  0.30183     0.25586     0.08847     0.56116
#> I4  0.11328     0.06731    -0.10009     0.37261
#> I5 -0.11417    -0.16013    -0.32753     0.14517
#> I6 -0.39828    -0.44424    -0.61164    -0.13894
par(mfrow = c(2,2))
plotICC(rsm.res)

Created on 2021-01-05 by the reprex package (v0.3.0.9001)