Графики гистограмм в LevelScheme

Что ж, я думаю, вам это не слишком понравится, но это своего рода обходной путь.

Если я укажу PerformanceGoal -> "Speed" в качестве параметра гистограммы (а не PerformanceGoal -> "Quality"), я отключу интерактивное поведение, но с несколькими незначительными изменениями я получу следующее:

<< "LevelScheme`"
Figure[{FigurePanel[{{0, 1}, {0, 1}}, LabB -> textit["x"], 
   BufferB -> 2.5, LabL -> textit["p(x)"], BufferL -> 2.5, 
   FrameTicks -> {LinTicks[-4, 4], LinTicks[0, 1]}, 
   PlotRange -> {{-3, 3}, {0, 0.55}}], 
  RawGraphics[
   Histogram[RandomReal[NormalDistribution[], 1000], Automatic, 
    "ProbabilityDensity", PerformanceGoal -> "Speed"]]}, 
 Frame -> False, PlotRange -> {{-0.075, 1.1}, {-0.15, 1.1}}]

Как упомянул Саймон в комментарии, вы можете использовать LevelScheme DataPlot для построения гистограммы.

<< "LevelScheme`"
histData[x_] := 
  Cases[x, RectangleBox[{bl_, _}, {br_, c_}] :> {{bl, br}, c}, 
   Infinity];
hist = histData[
   Histogram[RandomReal[NormalDistribution[], 1000], {-4, 4, 0.1}, 
    "ProbabilityDensity"]];
bins = hist[[All, 1, 1]]; counts = hist[[All, 2]];
data = Table[{bins[[i]], counts[[i]]}, {i, 1, Length@counts}];

Figure[{FigurePanel[{{0, 1}, {0, 1}}, LabB -> textit["x"], 
   BufferB -> 2.5, LabL -> textit["p(x)"], BufferL -> 2.5, 
   FrameTicks -> {LinTicks[-4, 4], LinTicks[0, 1]}, 
   PlotRange -> {{-3, 3}, {0, 0.5}}],
  DataPlot[data, 
   DataLine -> {LineShape -> "Histogram", LineColor -> Darker@Blue}, 
   DataSymbol -> {SymbolSize -> 0.00001}],
  RawGraphics[
   Plot[1/Sqrt[2 Pi] Exp[-x^2/2], {x, -4, 4}, 
    PlotStyle -> {Red, Thick}]]
  }, Frame -> False, PlotRange -> {{-0.075, 1.1}, {-0.1, 1.03}}]

Однако мне не удалось получить заполненные столбцы гистограммы, подобные тем, которые создаются Histogram или BarChart, если это было то, что вы хотели.

Кстати, функция histData похожа на то, что я давно видел на справочном форуме по математике, и она вошла в мой набор полезных функций. Я не помню, где я это читал и когда, если верить. Однако теперь для меня это не только магическая функция, как тогда.

Я знаю, в чем проблема, но у меня нет немедленного решения. Принцип работы LevelScheme заключается в том, что он преобразует объекты Graphics так, чтобы они правильно подходили. Для этого RawGraphics использует устаревшую функцию TransformGraphics из LegacyPackages\Graphics\Graphics.m, которая включена в LegacyTransformGraphics.m версии 3.51 пакетов LevelScheme. Глядя на FullForm вашего Histogram, вы можете видеть, что TransformGraphics ничего не знает о том, как обращаться с производимыми объектами. Марк Каприо работает над обновлением LevelScheme в течение следующих нескольких месяцев, так что может быть исправление в пути. А пока попробуйте использовать Rasterize перед передачей гистограммы в RawGraphics, хотя это может не дать хороших результатов.

Изменить: вместо использования устаревшей версии TransformGraphics более свежая версия может выглядеть так:

TransformGraphics[ 
  (g:(Graphics | Graphics3D))[prims__, opts:OptionsPattern[], transform_]:=
    g[ GeometricTransformation[prims, transform], opts ]

Конечно, фокус теперь в том, чтобы предоставить версию transform, которую может принять GeometricTransformation. Хотя устаревший TransformGraphics применяет функцию, ее второй аргумент, непосредственно к точкам, найденным в g, поэтому использование приведенного выше кода может работать без каких-либо дополнительных изменений.

Чтобы попробовать, замените Needs["LevelScheme`LegacyTransformGraphics`"] приведенным выше кодом либо в LevelScheme.nb (и перегенерируйте LevelScheme.m), либо непосредственно в LevelScheme.m. Это может не работать полностью, так как я не вижу, где подменяются параметры, но это должно быть началом.