data = Table[{
x = RandomReal[{-2, 2}],
y = RandomReal[{-2, 2}],
10^(x + 3 y/2)},
{1000}];
Module[{
min = Log[10, Min[data[[All, 3]]]],
max = Log[10, Max[data[[All, 3]]]]},
ListContourPlot[data,
PlotLegends -> Automatic,
Contours -> (Table[{2, 5, 10}*10^n,
{n, -1, 2}] // Flatten),
ColorFunction -> Function[{f},
ColorData["TemperatureMap"][(Log[10, f] - min)/(max - min)]],
ColorFunctionScaling -> False]]
Bob Hanlon