# ListPlot3D surface with logarithmic-scale

I'm tring to do a ListPlot3D however I don't get any answer from Mathematica. Furthermore, I'd like to introduce a log scale in the y-axis. Which function could give me the best surface from my data?

data = {{0.5, 10^-7, 30.32}, {0.5, 2.32 10^-7, 80.14}, {0.5, 5 10^-8, 7.52}, {0.5, 7.5 10^-8, 10.06}, {0.5, 4 10^-7, 100}, {0.5, 1 10^-8,0}, {0.75, 10^-7, 63.21}, {0.75, 2.32 10^-7, 100}, {0.75, 5 10^-8,25.39}, {0.75, 7.5 10^-8, 45.06}, {0.75, 4 10^-7, 100}, {0.75,1 10^-8, 0}, {1, 10^-7, 100}, {1, 2.32 10^-7, 100}, {1, 5 10^-8, 42.90}, {1, 7.5 10^-8, 68.88}, {1, 4 10^-7, 100}, {1, 1 10^-8, 0}, {1.5, 10^-7, 100}, {1.5, 2.32 10^-7, 100}, {1.5, 5 10^-8, 74.26}, {1.5, 7.5 10^-8, 100}, {1.5, 4 10^-7, 100}, {1.5, 1 10^-8,3.31}, {2, 10^-7, 100}, {2, 2.32 10^-7, 100}, {2, 5 10^-8, 100}, {2, 7.5 10^-8, 100}, {2, 4 10^-7, 100}, {2, 1 10^-8, 10.64}}


Thanks

• have you tried ListPlot3D[data, ScalingFunctions -> {None,"Log"}]?
– kglr
Commented Oct 4, 2019 at 0:32
• Yes, but I get no answer. Commented Oct 4, 2019 at 0:35
• Try data[[All, 2]] = data[[All, 2]] 10^7; Show[ListPointPlot3D[data], ListPlot3D[data, PlotRange -> All]] . This doesn't get you the log scale but does produce a plot.
– JimB
Commented Oct 4, 2019 at 1:22
• Strange that ListPlot3D[data] works fine in v.9 but not v.12. Commented Oct 4, 2019 at 2:38

ListPlot3D[data, ScalingFunctions -> {None, "Log", None}]


Another possibility:

ListPlot3D[MapAt[Log@# &, data, {All, 2}],
Ticks -> {Automatic,
ChartingScaledTicks[{Log, Exp}][Sequence @@ MinMax[Log[data[[All, 2]]]]],
Automatic}]
`

gives the same picture.

• I don't know why, but this is not working in version 11. Commented Oct 4, 2019 at 3:00