This follows on my previous question that was kindly solved by a fellow member.
data = Reverse[Sort[RandomReal[1, 5]]];
Module[{t = 0, len = Length[data], sum = Total[data]},
Graphics[Table[{Hue[i/len], EdgeForm[Opacity[.8]],
Disk[{0, 0}, 1, {t, t += 2 Pi data[[i]]/sum}]}, {i, len}]]]
SelectionMove[EvaluationNotebook[], Next, Cell]
SetOptions[NotebookSelection[EvaluationNotebook[]], Background -> Red,
Alignment -> Center]