remove the decimal dot from ticks?
- To: mathgroup at smc.vnet.net
- Subject: [mg129923] remove the decimal dot from ticks?
- From: lagioia.rocco at gmail.com
- Date: Tue, 26 Feb 2013 01:10:33 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
Hi everybody, I am new in here.
I am seeking help for a problem I have with the ticks and I am not an experienced user.
I am preparing 2D graphs with double y-axis. So I was rescaling the data for the second y-axis and rescaling the ticks too.
The problem is that after doing that the ticks on the primary y-axis are printed with the decimal dot and are also more frequent than by using the simple ListLinePLot.
Can anybody help please?
thanks!
y1graph =
ListLinePlot[xy, Axes -> True, PlotRange -> {rangeX, rangeY},
PlotStyle -> Directive[
AbsoluteDashing[ mydashing[[ 1 ]] ], GrayLevel[mygray[[1]] ],
AbsoluteThickness[ mythickness[[1]]] ]
];
y2graph =
ListLinePlot[xy2, Axes -> True, PlotRange -> {rangeX, rangeY2},
PlotStyle -> Directive[
AbsoluteDashing[ mydashing[[ 2]] ], GrayLevel[mygray[[2]] ],
AbsoluteThickness[ mythickness[[2]]] ]
];
{y1range, y2range} =
Last[PlotRange /. AbsoluteOptions[#, PlotRange]] & /@ {y1graph,
y2graph};
y1ticks = Last[Ticks /. AbsoluteOptions[y1graph, Ticks]];
y2ticks = (MapAt[Function[r, Rescale[r, rangeY2, rangeY]], #, {1}] & /@
Last[Ticks /. AbsoluteOptions[y2graph, Ticks]]);
y2graph =
y2graph /.
Graphics[graph_, s___] :>
Graphics[
GeometricTransformation[graph,
RescalingTransform[{{0, 1}, rangeY2}, {{0, 1}, rangeY}]], s];
Show[y1graph, y2graph, Axes -> False, Frame -> True,
ImageSize -> 72 figuresize, PlotRange -> {rangeX, rangeY},
FrameStyle -> {GrayLevel[0], {Automatic, Transparent}},
FrameTicks -> {{y1ticks, y2ticks}, {Automatic, Automatic}}]