This doesn't have the styling and it doesn't yet enforce the plot ranges or implement the regression line, but it's a start:

fakeBloombergThing[data:{{_?NumericQ, _?NumericQ}..}] := 
 Grid[{{Histogram[data[[All, 2]], BarOrigin -&gt; Left , 
     AspectRatio -&gt; 5, ImageSize -&gt; 80], 
    ListPlot[data, Frame -&gt; True, AspectRatio -&gt; 1, 
     ImageSize -&gt; 350]}, {Null, 
    Histogram[data[[All, 1]] , AspectRatio -&gt; 1/5, 
     ImageSize -&gt; 350]}}]


Some fake data:

testdata = 
 RandomVariate[BinormalDistribution[{-1, 1}, {1, 2}, -.6], 100];

fakeBloombergThing[testdata]




How can I make an X-Y scatter plot with histograms next to the X-Y axes?

  A marble is launched horizontally off a 93.0-cm high table causing the marble to land on the floor 1.85 m from the base of the table.
  
  a.) How long was the ball in the air?
  b.) With what velocity must the marble have left the tabletop?


Wouldn't another piece of information be needed to solve this problem?

Is it implied the initial y velocity is 0?
