## Remove lines from frame in ListPlot3D

I want to remove the lines from the frame leaving only the three coordinate axes and the lines that make up the ‘floor’.

## plotting – Using ListPlot3D with custom colours

I would like to use ListPlot3D to make a 3D plot using a file containing the following information (4 columns): x, y, f(x,y), w(x,y). Here x and y are the coordinates in the Cartesian framework, f(x,y) is some function that depends on x and y, and w(x,y) is another function that represents weights of the function f. So for each data point in f(x,y) we have the corresponding weight w(x,y).
To plot the function f(x,y) I do the following:
f = Import(“file.dat”, “Table”);
ListPlot3D(f)
and that is fine. Now I want to have this plot but with colours determined by the weights, i.e. for each point in “f” I would like to have the colour determined by the value of “w”. Suppose “w” takes values from 0 to 1, I want that 0 corresponds to “blue” and 1 corresponds to “red”, and all values in-between is the gradient between “blue” and “red”. For example, if I have a row in “file.dat”: 0, 1, 10, 0.5, I would like a 3D plot where at (x,y)=(0,1) the value of the function is f=10 and the colour of this point is 50% blue and 50% red. Can you suggest please how to do this in Mathematica?

Many thanks!

## plotting – How does function ListPlot3D color according to the values (or specified value) in the fourth column?

I want to plot the data from the second to the fourth columns and color them according to the data in the fifth column:

``````data = {{1., 74., 781., 5., 4.}, {2., 1373., 731., 11., 4.}, {3.,
1321., 1791., 28., 4.}, {4., 0., 1787., 4., 2.}, {5., 1049., 2127.,
12., 4.}, {6., 1647., 2728., 6., 2.}, {7., 2883., 3617., 15.,
4.}, {8., 2383., 3692., 7., 2.}, {9., 2708., 2295., 22., 4.}, {10.,
2933., 1767., 7., 4.}, {11., 4233., 895., 6., 5.}, {12., 4043.,
1895., 14., 1.}, {13., 2427., 3971., 2., 1.}, {14., 3526., 4357.,
7., 4.}, {15., 5062., 4339., 5., 4.}, {16., 4777., 4897., 8.,
1.}, {17., 5868., 4904., 16., 4.}, {18., 6534., 5641., 6.,
1.}, {19., 5481., 6004., 0., 4.}, {20., 4592., 4603., 6.,
1.}, {21., 2486., 5999., 2., 1.}, {22., 3299., 6018., 4.,
4.}, {23., 3573., 6213., 5., 1.}, {24., 4741., 6434., 5., 5.}};

ListPointPlot3D(data((All, 2 ;; All)), ColorFunctionScaling -> True,
ColorFunction -> (Hue(#4) &), PlotRange -> Full)
``````

But the above graph cannot be dyed according to the fifth column data. What should I do?

## Plot – ListPoinPlot3D works, but ListPlot3D does not

I do not understand what is going on. The same table that was drawn with the tool `ListPointPlot3D` returns the desired output. But planned with `ListPlot3D` gives an empty box. I repeat, The dates are exactly the sameand is organized in the form `{{x1,y1,f[x1,y1]},{x2,y2,f[x2,y2]},.....}`, but planned with the environment `ListPointPlot3D` gives a correct output while plotted with `ListPlot3D` gives an empty box:

<img src = "https://i.stack.imgur.com/3vTb5.png" alt = "Data that was recorded with `ListPointPlot3D`"/>

<img src = "https://i.stack.imgur.com/sFf6P.png" alt = "Data that was recorded with `ListPlot3D`"/>

## Plot – Mesh is lost in ListPlot3D with some PlotTheme

When drawing the following data with `PlotTheme`s `"Business"` or `"Web"`, the lowest `dat1` gets no network at all. But without this `PlotTheme`s, it certainly gets a normal network. Is it possible to restore a network in the same style?

``````Table[ListPlot3D[{dat1, dat2, dat3}, PlotTheme -> {"Grid", theme},
PlotStyle -> Directive[Opacity[0.8]],
ImageSize -> Medium], {theme, {"Business", "Web"}}]
``````

The data are as follows

``````{dat1, dat2, dat3}={{{-0.499997, 1.1159*10^-24, 0.00166667}, {-0.447933, -0.00745823,
0.00193863}, {-0.329345, -0.0251481,
0.00258457}, {-0.185936, -0.0478652,
0.00341362}, {-0.00466817, -0.0702993,
0.00421323}, {0.17738, -0.063759,
0.00390719}, {0.291455, -0.0496345,
0.00335362}, {0.361163, -0.0380495,
0.00291912}, {0.404419, -0.0294144,
0.00260623}, {0.431835, -0.023104,
0.00238468}, {0.449641, -0.0184808,
0.00222726}, {0.461516, -0.0150467,
0.00211387}, {0.469674, -0.0124357,
0.00203034}, {0.475486, -0.0103782,
0.00196665}, {0.479852, -0.00866813,
0.00191543}, {0.483422, -0.00713736,
0.00187089}, {0.486726, -0.00564181,
0.00182817}, {0.490211, -0.00406795,
0.00178344}, {0.494104, -0.00238877,
0.00173548}, {0.497943, -0.000816103,
0.00169024}, {0.499985, -4.80375*10^-6, 0.00166681}, {-0.499997,
0., 0.00166667}, {-0.447933, 0., 0.00166667}, {-0.329345, 0.,
0.00166667}, {-0.185936, 0., 0.00166667}, {-0.00466817, 0.,
0.00166667}, {0.17738, 0., 0.00166667}, {0.291455, 0.,
0.00166667}, {0.361163, 0., 0.00166667}, {0.404419, 0.,
0.00166667}, {0.431835, 0., 0.00166667}, {0.449641, 0.,
0.00166667}, {0.461516, 0., 0.00166667}, {0.469674, 0.,
0.00166667}, {0.475486, 0., 0.00166667}, {0.479852, 0.,
0.00166667}, {0.483422, 0., 0.00166667}, {0.486726, 0.,
0.00166667}, {0.490211, 0., 0.00166667}, {0.494104, 0.,
0.00166667}, {0.497943, 0., 0.00166667}, {0.499985, 0.,
0.00166667}, {-0.499997, -1.1159*10^-24, 0.00166667}, {-0.447933,
0.00745823, 0.00193863}, {-0.329345, 0.0251481,
0.00258457}, {-0.185936, 0.0478652, 0.00341362}, {-0.00466817,
0.0702993, 0.00421323}, {0.17738, 0.063759, 0.00390719}, {0.291455,
0.0496345, 0.00335362}, {0.361163, 0.0380495,
0.00291912}, {0.404419, 0.0294144, 0.00260623}, {0.431835,
0.023104, 0.00238468}, {0.449641, 0.0184808,
0.00222726}, {0.461516, 0.0150467, 0.00211387}, {0.469674,
0.0124357, 0.00203034}, {0.475486, 0.0103782,
0.00196665}, {0.479852, 0.00866813, 0.00191543}, {0.483422,
0.00713736, 0.00187089}, {0.486726, 0.00564181,
0.00182817}, {0.490211, 0.00406795, 0.00178344}, {0.494104,
0.00238877, 0.00173548}, {0.497943, 0.000816103,
0.00169024}, {0.499985, 4.80375*10^-6,
0.00166681}}, {{-0.499775, -2.23009*10^-29,
0.015}, {-0.447627, -0.0062654, 0.0174493}, {-0.328834, -0.0211268,
0.0232669}, {-0.185163, -0.0402156,
0.0307354}, {-0.00369302, -0.0590547,
0.0379344}, {0.177888, -0.0534841,
0.0351482}, {0.291581, -0.041624,
0.0301654}, {0.361089, -0.0319073,
0.0262588}, {0.404244, -0.0246666,
0.0234461}, {0.43161, -0.0193754,
0.0214547}, {0.449392, -0.0154988,
0.0200398}, {0.461257, -0.0126193,
0.0190205}, {0.469412, -0.0104297,
0.0182696}, {0.475225, -0.00870432,
0.0176971}, {0.479594, -0.00727014,
0.0172366}, {0.483169, -0.00598633,
0.0168362}, {0.486479, -0.004732,
0.0164521}, {0.489972, -0.00341197,
0.0160499}, {0.493872, -0.00200358,
0.0156187}, {0.497717, -0.000684506,
0.015212}, {0.499763, -4.02915*10^-6, 0.0150012}, {-0.499775, 0.,
0.015}, {-0.447627, 0., 0.015}, {-0.328834, 0., 0.015}, {-0.185163,
0., 0.015}, {-0.00369302, 0., 0.015}, {0.177888, 0.,
0.015}, {0.291581, 0., 0.015}, {0.361089, 0., 0.015}, {0.404244,
0., 0.015}, {0.43161, 0., 0.015}, {0.449392, 0., 0.015}, {0.461257,
0., 0.015}, {0.469412, 0., 0.015}, {0.475225, 0.,
0.015}, {0.479594, 0., 0.015}, {0.483169, 0., 0.015}, {0.486479,
0., 0.015}, {0.489972, 0., 0.015}, {0.493872, 0.,
0.015}, {0.497717, 0., 0.015}, {0.499763, 0., 0.015}, {-0.499775,
2.23009*10^-29, 0.015}, {-0.447627, 0.0062654,
0.0174493}, {-0.328834, 0.0211268, 0.0232669}, {-0.185163,
0.0402156, 0.0307354}, {-0.00369302, 0.0590547,
0.0379344}, {0.177888, 0.0534841, 0.0351482}, {0.291581, 0.041624,
0.0301654}, {0.361089, 0.0319073, 0.0262588}, {0.404244, 0.0246666,
0.0234461}, {0.43161, 0.0193754, 0.0214547}, {0.449392, 0.0154988,
0.0200398}, {0.461257, 0.0126193, 0.0190205}, {0.469412,
0.0104297, 0.0182696}, {0.475225, 0.00870432,
0.0176971}, {0.479594, 0.00727014, 0.0172366}, {0.483169,
0.00598633, 0.0168362}, {0.486479, 0.004732, 0.0164521}, {0.489972,
0.00341197, 0.0160499}, {0.493872, 0.00200358,
0.0156187}, {0.497717, 0.000684506, 0.015212}, {0.499763,
4.02915*10^-6, 0.0150012}}, {{-0.499375, -1.99206*10^-21,
0.025}, {-0.447075, -0.00311103, 0.0290871}, {-0.327912, -0.010491,
0.0387955}, {-0.183768, -0.0199738,
0.0512644}, {-0.00193427, -0.0293216,
0.0632699}, {0.178798, -0.0264874,
0.0585302}, {0.291806, -0.0206033,
0.0502241}, {0.360955, -0.0157925,
0.0437245}, {0.403929, -0.0122092,
0.0390471}, {0.431205, -0.00959079,
0.0357357}, {0.448944, -0.00767234,
0.0333829}, {0.460791, -0.00624721,
0.0316879}, {0.46894, -0.00516351,
0.0304392}, {0.474755, -0.00430945,
0.0294868}, {0.47913, -0.0035995,
0.0287209}, {0.482714, -0.00296393,
0.0280548}, {0.486035, -0.00234293,
0.0274159}, {0.489541, -0.00168937,
0.0267468}, {0.493454, -0.000992039,
0.0260294}, {0.497311, -0.000338924,
0.0253527}, {0.499362, -1.99498*10^-6, 0.0250021}, {-0.499375, 0.,
0.025}, {-0.447075, 0., 0.025}, {-0.327912, 0., 0.025}, {-0.183768,
0., 0.025}, {-0.00193427, 0., 0.025}, {0.178798, 0.,
0.025}, {0.291806, 0., 0.025}, {0.360955, 0., 0.025}, {0.403929,
0., 0.025}, {0.431205, 0., 0.025}, {0.448944, 0.,
0.025}, {0.460791, 0., 0.025}, {0.46894, 0., 0.025}, {0.474755, 0.,
0.025}, {0.47913, 0., 0.025}, {0.482714, 0., 0.025}, {0.486035,
0., 0.025}, {0.489541, 0., 0.025}, {0.493454, 0.,
0.025}, {0.497311, 0., 0.025}, {0.499362, 0., 0.025}, {-0.499375,
1.99206*10^-21, 0.025}, {-0.447075, 0.00311103,
0.0290871}, {-0.327912, 0.010491, 0.0387955}, {-0.183768,
0.0199738, 0.0512644}, {-0.00193427, 0.0293216,
0.0632699}, {0.178798, 0.0264874, 0.0585302}, {0.291806, 0.0206033,
0.0502241}, {0.360955, 0.0157925, 0.0437245}, {0.403929,
0.0122092, 0.0390471}, {0.431205, 0.00959079,
0.0357357}, {0.448944, 0.00767234, 0.0333829}, {0.460791,
0.00624721, 0.0316879}, {0.46894, 0.00516351,
0.0304392}, {0.474755, 0.00430945, 0.0294868}, {0.47913, 0.0035995,
0.0287209}, {0.482714, 0.00296393, 0.0280548}, {0.486035,
0.00234293, 0.0274159}, {0.489541, 0.00168937,
0.0267468}, {0.493454, 0.000992039, 0.0260294}, {0.497311,
0.000338924, 0.0253527}, {0.499362, 1.99498*10^-6, 0.0250021}}}
``````

## Plot – ListPlot3D: Make sure that certain data points have a specific color, while the rest of the data is colored

I have a 3D data set and I want to colorize the ListPlot3D, but all values ​​equal to zero are displayed as a single color. For example, if the non-zero points remain the same here, the environment should be gray, for example. Thanks in advance for any advice.

## graphics3d – ListPlot3D surface with logarithmic scale

I try to do a `ListPlot3D` However, I do not get an answer from Mathematica. I also want to introduce a logarithmic scale in the y-axis. Which function could offer me from my data the best surface?

``````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}}
``````

Thank you very much

## graphics3d – The ListPlot3D label is covered by the interface in a combined graphic

I'm trying to draw some points on the upper leaf of the hyperboloid. When I try to label them, the label is partially covered by the surface. You can see this in the following code

``````show[{
ParametricPlot3D[{Sinh[x] sin[y]sinh[x] cos[y]cosh[x]}, {x, 0,
1}, {y, -Pi, Pi}, PlotStyle -> {Opacity[1], Yellow}, Mesh -> {5, 10},
PlotPoints -> {2, 100}].
ListPointPlot3D[{{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2].
cosh[0.5]} -> style["CS", 15]}]}]
``````

How can I show the label in front of the surface? I tried to change the style[“CS”, 15] send someone an SMS["C"{Sinh["C"{Sinh[“C”{Sinh[“C”{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2]cosh[0.5]}]and it does not help.

Many Thanks!

To edit: I use these commands in a manipulation command (in which the size of the hyperboloid changes along with other drawn planes and curves). and I do not know the final position, so moving the text or changing your position is not a great solution. I want to look at it from different angles and always be able to see the label. Is there a way to render the labels last (the top)?