如何在Mathematica中真正实现BarSpacing选项？

Question

我正在尝试实现DateListBarChart函数，该函数采用日期数据并输出与DateListPlot具有相同展示位置的条形图。 如果给出相同的数据，他们必须将数据绘制在相同的水平位置，因此可以使用Show进行组合。 我发现很难让BarSpacing的设置正确，因此绘图的水平范围不会改变，并且条形基本上保持在同一个位置。

我无法推断出正确的缩放比例，因此BarSpacing->{0.2,0.3}导致该组条可用的x轴长度的20％被占用，该组中的条之间的间距为30％，条形组之间的间距。 由于技术原因，我通过将事物传递给RectangleChart来做到这一点。 根据文档， BarSpacing在RectangleChart被视为绝对单位。 显然，如果有更多的系列，间隙的绝对尺寸需要更小，并且条形需要更窄。

一些例子：

arList = FoldList[0.9 #1 + #2 &, 0.01, RandomReal[NormalDistribution[0, 1], 24]]

{0.01, 0.334557, 2.02709, 1.1878, 1.9009, 3.08604, 2.36652, 3.04111, 
3.32364, 3.22662, 3.12626, 2.59118, 1.69334, 1.21069, 0.23171, 
0.689415, -0.852649, -0.124624, 0.58604, -0.481886, 0.221074, 
-0.300329, 2.36137, 0.427789, -1.47747}

dists = RandomChoice[{3, 4}, Length[arList]]
{4, 4, 4, 3, 4, 3, 4, 3, 4, 4, 3, 4, 4, 3, 4, 4, 4, 4, 3, 4, 3, 3, 3, 3, 3}

结果是：

RectangleChart[Transpose[{dists - 0 - 0/2, arList}], 
 PlotRange -> {{0, 100}, {-2, 4}}, ChartStyle -> EdgeForm[None], 
 Frame -> True, GridLines -> Automatic, BarSpacing -> {0, 0}]

RectangleChart[Transpose[{dists - 0.7 - 0.5/2, arList}], 
 PlotRange -> {{0, 100}, {-2, 4}}, ChartStyle -> EdgeForm[None], 
 Frame -> True, GridLines -> Automatic, BarSpacing -> {0.7, 0.5}]

注意数据如何沿x轴跨越与前一个示例相同的距离。

当试图绘制多个系列时，它甚至变得更加混乱（在这个例子中也是如此，为了说明）。

RectangleChart[
 Transpose[{{dists - i/2 - j/2, arList}, {dists - i/2 - j/2, 
  arList}}, {2, 3, 1}], PlotRange -> {{0, 180}, {-2, 4}}, 
 ChartStyle -> EdgeForm[None], Frame -> True, Ticks -> None, 
  GridLines -> Automatic, BarSpacing -> {i, j}]

我一直在努力找到合适的公式，以便自定义函数的BarSpacing设置（这里没有看到）引起正确的间距和条宽，这样水平绘图范围不会像BarSpacing那样改变。

我错过了什么？

编辑：回应belisarius，这是我前进的一个例子。 它的工作方式，（条形与线条不完全对齐，但这可能是我正在使用的日期）但是堆叠条形的情况无法用它们应该存在的条形图，就像任何一种条形图本身就有多个系列。 （我为日期标签放置算法感到自豪：工作中的权力不想放弃那种外观。）

这是一个不起作用的人。 数据应填充水平范围。 （不同的宽度条是故意的 - 它是年度和季度数据的组合。）

编辑2

我记得为什么我没有在DateListPlot使用Filling来绘制Mike Honeychurch的包中的条形图 - 如果除了非常瘦的条形图之外还有其他任何东西，它们最终会在错误的位置出现顶边。

DateListPlot[{dateARList}, 
 PlotStyle -> {AbsolutePointSize[6], Yellow}, Filling -> {1 -> 0}, 
 FillingStyle -> {1 -> {{AbsoluteThickness[12], Darker[Red, 0.25]}}}, 
 PlotRange -> All]

Answer 1

也许使用ChartElementFunction选项而不是BarSpacing帮助。 例如barplot在代码将绘制柱状图，使得每个条具有的边缘gapl的左侧和gapr上，其中右gapl和gapr是杆的总宽度的级分

scale[{{xmin_, xmax_}, {ymin_, ymax_}}, {gapl_, gapr_}] :=
 {{xmin (1 - gapl) + xmax gapl, ymin}, {xmax (1 - gapr) + xmin gapr, ymax}}

barplot[dists_, arList_, {gapl_, gapr_}, opts___] := 
 RectangleChart[Transpose[{dists, arList }], opts, 
  Frame -> True, 
  GridLines -> Automatic, BarSpacing -> 0,
  ChartElementFunction -> (Rectangle @@ scale[#, {gapl, gapr}] &)]

用法：

绘制原始条形图，没有间隙

barplot[dists, arList, {0, 0}]

这将绘制条形图，两边的边距为0.2，这导致条形图的间隙为条形总宽度的0.4倍。 请注意，条形图的位置与第一个图形中的位置匹配。

barplot[dists, arList, {0.2, 0.2}]

您可以通过执行类似的操作来绘制多个系列

Show[barplot[dists, arList 0.9, {0, 0.5}],
 barplot[dists, arList 0.8, {0.5, 0}, ChartStyle -> LightGreen]] 

Answer 2

您可以使用CapForm["Butt"]来减轻您对FillingStyle的投诉。

list = {0.01, -0.81, 0.12, 0.81, 1.79, 1.1, 0.41, 1., 1.33, 1.08, 
  2.16, 1.13, 1.92, 1.64, 1.31, 1.94, 1.71, 0.91, 2.32, 0.95, 1.29, 
  1.28, 2.97, 4.45, 5.11}

DateListPlot[list, {2000, 8}, 
 PlotStyle -> {AbsolutePointSize[6], Yellow}, Filling -> {1 -> 0}, 
 FillingStyle -> {1 -> {{CapForm["Butt"], AbsoluteThickness[14], 
      Darker[Red, 0.25]}}}, PlotRange -> {0, 6}, ImageSize -> 400]