Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. DistributionChart[{RandomReal[{0, 1.5}, 1000],
  2. RandomReal[{0, 0.01}, 1000]}]
  3.  
  4. SeedRandom[1]
  5. {data1, data2} = {RandomReal[{0, 1.5}, 1000], RandomReal[{0, 0.01}, 1000]};
  6.  
  7. DistributionChart[{data1, Rescale[data2, MinMax @ data2, MinMax @ data1]},
  8. FrameTicks -> {{Automatic,
  9. Charting`FindTicks[MinMax @ data1, MinMax @ data2][## & @@ MinMax[data1]]},
  10. {None, None}}]
  11.  
  12. tooltip2 = Cases[DistributionChart[{data2}], Tooltip[_, t_] :> t, All][[1]];
  13. DistributionChart[{data1,
  14. Tooltip[Rescale[data2, MinMax @ data2, MinMax @ data1], tooltip2]},
  15. FrameTicks -> {{Automatic,
  16. Charting`FindTicks[ MinMax@data1, MinMax@data2][## & @@ MinMax[data1]]},
  17. {None, None}}]
  18.  
  19. DistributionChart[{data1,data2}, ScalingFunctions -> "Log"]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement