Zrjydtj

I need to plot something that looks like a gant chart, but are actual data ranges. These ranges need to be on a log scale. Graphics does not offer a Scalingfunction. A LogPlot with ErrorBars does not work either and would not look ideal. Is it possible to draw rectangles with one axis being log scale?

E.g.:
Min and Max values of the rectangles are the known data.

LogLinearPlot[1, 
 t, .1, 100,
 PlotStyle -> White,
 Epilog -> Rectangle[Log[1], .5, Log[50], 1],
 Red, Rectangle[Log[30], 1.5, Log[80], 2],
 Text[Style["a", White, 18], Log[7], .75],
 Text[Style["b", White, 18], Log[53], 1.75]]

SeedRandom[1]
dates = Sort /@ RandomInteger[10, 1000, 5, 2];
data = MapIndexed[Thread@#, #2[[1]] &, dates];
labels = CharacterRange["A", "E"];
data2 = MapIndexed[Labeled[#, #2[[1]], Style[labels[[#2[[1]]]], White,
 FontSize -> Scaled[.03]], Center] &, N[GeometricMean /@ dates]];


Show[ListLogLinearPlot[data, 
 BaseStyle -> Directive[AbsoluteThickness[40], CapForm["Butt"]], 
 Joined -> True, PlotRange -> 0, 6, Frame -> True, 
 FrameTicks -> Automatic, Automatic, Range[100, 1000, 100], Automatic],
 ListLogLinearPlot[data2] /. _Point :> ]

Thanks: @David G. Stork for the GeometricMean idea to center the labels.

See also: Poets of the 19th century

Here is a start ...

A = 10^5; B = 10; 
rectangle[start_, length_, number_] := RegionPlot[Log10[start] <= x <= Log10[start + length] && number <= y <= number + .75, x, 0, Log10[A], y, 0, B];

Then we place a few rectangle[]'s in Show[].

Show[rectangle[100, 300, 2], rectangle[200, 2000, 3], rectangle[1300, 3000, 4], rectangle[1800, 9000, 5]]

We now need to change the tick-marks and x-axis labels. I wanted to use ScalingFunction->"Log10",Automatic but this is not a valid argument for RegionPlot[].

Here is how it looks right now:

With your edits, we can get the x-axis looking better! Currently the x-axis label is $log_10 x $ and not $x$ as we would like.