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 -> White, FontWeight -> Bold}, PlotTheme -> "Business", ImageSize -> Medium], Background -> LightGreen] In Mathematica 11.3 above code would produce a Pie Chart with the percentage of the Legend black. In Mathematica 12, I get the text of the percentage with gray color.
Below the same figure with Mathematica 11.3 (albeit without the bold text of the LegendLabel)
What is different in Mathematica 12?
How can I get the percentage in black color (and bold)?


