PieChart3D[data, ChartStyle -> 54, SectorOrigin -> {Automatic, 1},
ChartElementFunction -> "ProfileSector3D", ChartLabels -> (Placed[
CharacterRange["A", "Z"], "RadialCallout"]), PlotRange -> All,
ChartBaseStyle -> EdgeForm[], Background -> GrayLevel[0.9]]