scl <- DexiDiscreteScale(values = c("L", "M", "H"))
expand_value_to_points(c(1, 3), scl)
# points sizes colors
# 1 1 1 red
# 2 3 1 green
expand_value_to_points(distribution(0.1, 0, 0.9), scl)
# points sizes colors
# 1 1 0.1 red
# 2 3 0.9 green
Run the code above in your browser using DataLab