Customizing FrameTicks in DistributionChart

Question

So I have been fighting with this for a while. I'm trying to get custom frame ticks on both the left and right side of a DistributionChart. It's not going very well. It just keeps throwing errors saying tick position needs to be a number. Which in my code it is. Here is an example:

With[
 {fps = {120, 60, 50, 40, 30, 25, 20, 15, 10}},
 DistributionChart[
  RandomVariate[SkewNormalDistribution[##], 100] & @@@ {{20, 13, 5}, {30, 12, 10}},
  ChartLabels -> {1, 2},
  PlotRange -> {0, 70},
  GridLines -> {None, N@Table[1/i*1000, {i, fps}]},
  FrameTicks -> {
   {
     Table[{N[1/i*1000], NumberForm[N[1/i*1000], 3]}, {i, fps}],(*Left*)
     Table[{1/i*1000, i}, {i, fps}] (*Right*)
   },
   {
     None,(*Bottom*)
     None (*Top*)
   }
  }
 ]
]

Any help would be much appreciated.

Answer 1

There seems to be a bug here as even

DistributionChart[{{1, 2, 3, 4, 5}, {1, 1, 2, 3}}, FrameTicks -> {{None, None}, {None, None}}]

yields an error, but you can work around it as follows:

With[{fps = {120, 60, 50, 40, 30, 25, 20, 15, 10}}, 
 DistributionChart[
   RandomVariate[SkewNormalDistribution[##], 100] & @@@ {{20, 13, 5}, {30, 12, 10}}, 
   ChartLabels -> {1, 2}, PlotRange -> {0, 70}, 
   GridLines -> {None, N@Table[1/i*1000, {i, fps}]}
 ] /. 
  Rule[FrameTicks, __] -> 
   Rule[FrameTicks, {{Table[{N[1/i*1000],NumberForm[N[1/i*1000], 3]}, {i, fps}],(*Left*)
      Table[{1/i*1000, i}, {i, fps}] (*Right*)}, {None,(*Bottom*) None (*Top*)}}]
]