We changed our privacy policy. Read more.

New answers tagged

3

SeedRandom[1]; data = RandomReal[BinormalDistribution[{0, 0}, {1, 1}, 0.5], 100]; {datax, datay} = Transpose @ data; listplot = ListPlot[data, PlotStyle -> PointSize[Large], Frame -> True, FrameLabel -> {"x", "y"}, Axes -> False]; histogramx = Histogram[datax, 15, Frame -> {{True, False}, {False, False}}, ...


1

A possible solution using GraphicsRow: x = N[2 Pi/24] Range[0, 5]; data = Transpose[{x, Chop@Sin[x]}]; grf = Plot[Sin[x], {x, 0, 2 Pi}, Frame -> True, ImageSize -> 400, AspectRatio -> 0.75, ImagePadding -> {{80, 20}, {15, 5}} ]; title = Item[Style["sine data", 18, Blue], Alignment -> Center]; hdr = Item[Style[#, Bold,...


5

You can wrap each element with Pane[#, BaselinePosition -> Top] &: Panel[Row[ Pane[#, BaselinePosition -> Top] & /@ {grf, Spacer[50], tbl}], Background -> LightBlue]


3

The following, using Item as suggested in https://mathematica.stackexchange.com/a/180225/148, does what I want, although I'd still prefer a simpler way using the spec recycling aspect of Alignment to avoid Item. hdr = Item[Text[#], Alignment -> Center] & /@ {"x", "sin x"}; Grid[ Prepend[data, hdr], Alignment -> "."]


4

This should do it. In Alignment docs under Generalizations & Extensions. Grid[Prepend[data, {"x", "sin x"}], Alignment -> {".", Automatic, {{1, 1} -> Center, {1, 2} -> Center}}] There is an odd ItemSize issue in the first column though, stemming from the "." alignment algorithm as I recall. E.g. x = 2. ...


Top 50 recent answers are included