# Is there something similar to seaborn stripplot in mathematica

Is there something similar to seaborn stripplot in mathematica? The graph I am trying to make is like this:

• Do you have any sample data that can be used by people who want to try things out? – J. M. will be back soon Dec 16 '16 at 4:16

This can be done with DistributionChart and a bit of programming:

data = Table[
RandomVariate[NormalDistribution[RandomInteger[5], 1], 30], {7}];

DistributionChart[data, ChartStyle -> "Rainbow",
ChartElementFunction -> "PointDensity"]


DistributionChart[data, ChartStyle -> "Rainbow",
ChartElementFunction -> ({AbsolutePointSize[5],
Point[Transpose[{RandomReal[#1[[1]], Length[#2]], #2}]]} &)]


 data = Table[RandomVariate[NormalDistribution[0, 10],