# Half Plot - half LogLinearPlot

Is it possible to do a plot which is partially Plot and partially LogLinearPlot? The reference figure is

We see that the $x$-axis is logarithmic up to x = 30, and linear from there on. The only idea I came up with is to use the plotGrid function of this answer, but I am not really satisfied with the result, which is attached below.

• Another alternative would be to use Piecewise and custom ticks. Commented Apr 23, 2016 at 19:48

ScalingFunctions works for Plot, but I had to tweak the ticks by hand:

ClearAll[sfn, isfn];
SetAttributes[sfn, Listable];
SetAttributes[isfn, Listable];
sfn[x_] := Piecewise[{{x, x < 30}, {30 + Log[x] - Log[30], x >= 30}}];
isfn[y_] := Piecewise[{{y, y < 30}, {30 E^(-30 + y), y >= 30}}];

Plot[
Sin[2 Log[x]], {x, 1, 10^4},
ScalingFunctions -> {{sfn, isfn}, None},
Ticks -> {MapAt[
isfn,
Flatten[{
ChartingScaledTicks[{sfn, isfn}][sfn[0.], sfn[30.], {6, 5}],
ChartingScaledTicks[{sfn, isfn}][sfn[30.], sfn[10.^4], {5, 5}]}, 1],
{All, 1}], Automatic},
PlotRange -> All,
AxesOrigin -> {30, 0}
]