- #1
Van Ladmon
- 8
- 0
I want to add legends in ArrayPlot and my code is like this:
In the first 5 graphs this work well, but after the 6th graph these legends stick together like BarLegend and become somewhat strange. How can I deal with this problem?
Code:
Table[ArrayPlot[
FiniteGroupData[{"CyclicGroup", i}, "MultiplicationTable"],
PlotLegends -> Range[i],
ColorRules -> {x_ -> ColorData["Rainbow"][(x/i)]}],
{i, 1, 10}]