I want to construct a grid of pie charts but I want the legend (which is common to all charts) to appear at the bottom of the grid.I include the code and a picture of the output.
Code updated with answer
Legended[Grid[{{PieChart[{1, 2, 3, 0}, ChartStyle -> ColorData[63],
LabelingFunction -> "RadialOutside"],
PieChart[{0, 4, 5, 6},
LabelingFunction -> "RadialOutside"]}, {PieChart[{7, 0, 8, 9},
LabelingFunction -> "RadialOutside"], SpanFromLeft}}],
Placed[SwatchLegend[97, {"Eric", "Kyle", "Stan", "Kenny"},
LegendLayout -> "Row"], Below]]
A - SOLVED
This code does most of what I want to do, but essentially I would like
1) The legend under the first pie chart to replace the ABCD legend.
2) The numerical value of each slice to appear on the outside of the slice.
The catch is in the construction of the pie charts. From a set of X variables only some appear in each chart, but I need the legend to include all of them (notice the rotating 0 values in the code). In other words, I need the colour and label in the legend to correspond to the same quantity (if it appears) along all charts.
B - SOLVED
On a side note, my data is an n*m table where each pie chart corresponds to a row. Is there a way to streamline the above process by using Grid or Table, but when n number of charts are in a grid row a new line starts?
Code updated with answer
data = {{0, 1, 2, 3}, {2, 4, 5, 6}, {4, 3, 5, 3}}; charts =
PieChart[#, ChartStyle -> "DarkBands",LabelingFunction -> "RadialOutside"] & /@ data; Legended[
Grid[Partition[charts, 2, 2, {1, 1}, SpanFromLeft]],
Placed[SwatchLegend["DarkBands", {"Eric", "Kyle", "Stan", "Kenny"},
LegendLayout -> "Row"], Below]]
The problem I have is having the same colour corresponding to the same variable across the charts, as above.
Many thanks to N.J.Evans for his help!