Tag Info

New answers tagged

3

It seems AxesOrigin property spoils everything. A bug maybe.. I can suggest 2 way outs: first, simply: Graphics3D[{arrowAxes[3], Sphere[{1, 1, 1}]}, Axes -> True, Boxed -> False, AxesEdge -> {{0, -1}, {0, -1}, {0, -1}}, AxesStyle -> Opacity[0], TicksStyle -> Opacity[1]] This gives what you want, but i don't know how to specify the ...


1

I just changed your code a little bit, to TickStyle->None arrowAxes[arrowLength_] := Map[{Apply[RGBColor, #], Arrow[Tube[{{0, 0, 0}, #}]]} &, arrowLength IdentityMatrix[3]]; Graphics3D[{Sphere[{1, 1, 1}], arrowAxes[3]}, Axes -> True, Boxed -> False, AxesOrigin -> {0, 0, 0}, AxesStyle -> Opacity[0], TicksStyle -> None]


1

One possible solution is to use Inset and Graphics with Epilog. It gives you full control over label placement: a = {{1, 1, 0.3}, {1, 2, 0.4}, {1, 3, 0.5}, {2, 1, 0.6}, {2, 2, 0.7}, {2, 3, 0.8}}; b = ListPlot3D[a, PlotLabel -> Style["A", 15], LabelStyle -> Directive[Black, 11]]; gr = Graphics[Inset[b, Center, Center, ImageScaled[.85]], ...


0

While not optimal, you can convert the plots to images then put them into the grid. You may also consider trying the BoxRatios option to size your ListPlot3D such that the axis are the way you want them: a={{1,1,0.3},{1,2,0.4},{1,3,0.5},{2,1,0.6},{2,2,0.7},{2,3,0.8}}; b=ListPlot3D[a, PlotLabel->Style["A",15], LabelStyle->Directive[Black,11], ...


7

PieChart[Labeled[#, #, If[# < 5, "RadialCallout", "RadialCenter"]] & /@ Range[10], SectorOrigin -> {Automatic, 1}] PieChart3D[Labeled[#, #, If[# < 5, "RadialCallout", "RadialCenter"]] & /@ Range[10], SectorOrigin -> {Automatic, 1}, ChartElementFunction -> ChartElementDataFunction["ProfileSector3D", "Profile" -> ...



Top 50 recent answers are included