Combining and aligning “chart” type graphics with regular plots

Question

Is there an easy (recommended) way to align regular plots (e.g. ListPlot or Plot) with chart type graphics (BarChart or DistributionChart)?

For example:

Show[
   DistributionChart[Table[RandomReal[NormalDistribution[i, .2], 1000], {i, 1, 10}]], 
   ListPlot[Range[1, 10]]
]

I would like the points of the ListPlot to reside exactly on top of the DistributionChart elements. Furthermore, the coordinate positioning of chart elements seems to vary with the number of elements (which is ridiculous).

Show[
    DistributionChart[Table[RandomReal[NormalDistribution[i, .2], 1000], {i, 1, 3}]], 
    ListPlot[Range[1, 3]]
]

Answer 1

Seems it is a problem localized to version 8.0.0. Here is a way to fix it by scaling your ListPlot using the FrameTicks of the DistributionChart.

k = DistributionChart[Table[RandomReal[NormalDistribution[i, .2], 100], {i, 1, 20}], 
         Method -> {"BoxWidth" -> "Fixed"}]; 
l = (Sort@((FrameTicks /. Options[k, "FrameTicks"])[[2, 1, All, 1]]))[[2 ;; -2]];
f = Interpolation[Transpose[{Range@Length@l, l}]];
Show[k, ListPlot[Table[{f@i, i}, {i, 15}], PlotStyle -> Directive[Red, PointSize[Large]]]]