TD = 8 + 12 + 12 + 12 + 33 + (61 + 1/4) + (41 + 1/4)/2 +
15/2 + (18 + 3/4) + (18 + 3/4)/2 + 14/2;
CM = 15/2 + (61 + 1/4) + (41 + 1/4)/2 +
24 + (3 + 3/4) + (18 + 3/4) + (18 + 3/4)/2 + 14/2 + (24 + 3/4) +
9/2;
TP = 2*90;
countsDim1 = {CM, TD, TP}/(TD + TP + CM);
n = 384 + 179;
labels = Placed[
Row /@ Thread[{"" <> ToString@# <>
" H" & /@ {N[(n countsDim1[[1]]), 5],
N[(n countsDim1[[2]]), 5], Round@N[(n countsDim1)[[3]]]}}],
"RadialOuter"];
legend = Placed[
SwatchLegend[Automatic,
Row /@ Thread[{{"CM ", "TD ", "TP "},
Row[{"(", #, , ")"}] & /@
Quantity[Round[100 countsDim1], "Percent"]}],
LabelStyle -> {FontSize -> 26, FontFamily -> "Latin Modern Roman",
FontColor -> Black, FontWeight -> Bold},
LegendMarkerSize -> 26], {After, Bottom}, Framed];
type = Framed[
PieChart[countsDim1, ChartLabels -> labels, ChartLegends -> legend,
PlotRange -> All,
LabelStyle -> {FontSize -> 26, FontFamily -> "Latin Modern Roman",
FontColor -> Black, FontWeight -> Bold},
PlotTheme -> {"Business", "PastelColor"}, ImageSize -> Medium],
Background -> LightYellow]
produces
I have tried the various combinations described in the dedicated page: PlotTheme
.
Is it possible to have a PlotTheme
or/and a ColorTheme
with lighter colors?
ChartBaseStyle -> Opacity[.5]
? $\endgroup$ColorSchemes
? $\endgroup$