Consider the following code:
f = {1, x, x^2, x^3}
Panel[Column[{Row[{CheckboxBar[
Dynamic[list1], # -> f[[#]] & /@ Range[4]], Dynamic[list1]}],
Dynamic[Plot[f[[list1]], {x, 0, 1.5},
PlotStyle -> {Red, Blue, Green, Black}, ImageSize -> 500,
AxesStyle -> Thick]]}]]
I want to get a Dynamic image that show differrent functions according to user selection in Checkbox. However, now I get a fine Dynamic image except that all the curves are in the same color. I wanna know How to set the color of each option?
Attachments: