Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DistributionChart[{RandomReal[{0, 1.5}, 1000],
- RandomReal[{0, 0.01}, 1000]}]
- SeedRandom[1]
- {data1, data2} = {RandomReal[{0, 1.5}, 1000], RandomReal[{0, 0.01}, 1000]};
- DistributionChart[{data1, Rescale[data2, MinMax @ data2, MinMax @ data1]},
- FrameTicks -> {{Automatic,
- Charting`FindTicks[MinMax @ data1, MinMax @ data2][## & @@ MinMax[data1]]},
- {None, None}}]
- tooltip2 = Cases[DistributionChart[{data2}], Tooltip[_, t_] :> t, All][[1]];
- DistributionChart[{data1,
- Tooltip[Rescale[data2, MinMax @ data2, MinMax @ data1], tooltip2]},
- FrameTicks -> {{Automatic,
- Charting`FindTicks[ MinMax@data1, MinMax@data2][## & @@ MinMax[data1]]},
- {None, None}}]
- DistributionChart[{data1,data2}, ScalingFunctions -> "Log"]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement