New answers tagged labeling
1
Better practice is
ContourPlot[x y, {x, -2, 2}, {y, -2, 2}, ContourShading -> False,
Contours -> 10,
ContourLabels -> (Rotate[
Text[" " <> ToString[#3] <> " ", {#1, #2},
Background -> White], -ArcTan[#2/#1]] &)]
This reaches the level of for example Matlab contour plots that are very popular.
...
5
Maybe you could use ContourPlot to obtain some good automatic spacing for the contour labels.
Clear[f, a, b, cp, plt, crd, txts]
f[x_, y_] = (x^3 + y^3)/(x^2 + y^2);
cp = ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}, Contours -> 20,
ContourLabels -> All]
plt = Plot3D[f[x, y], {x, -1, 1}, {y, -1, 1}, MeshFunctions -> {#3 &},
Mesh -> 19]
...
2
SeedRandom[1]
points = RandomPoint[Circle[{0, 0}, {2, 3}], 10];
centroid = RegionCentroid@BoundingRegion[points, "FastDisk"];
labels1 = IntegerName /@ Range[Length@points];
labels2 = IntegerName[#, "French"] & /@ Range[Length@points];
gap = .2;
labeleddata = Table[MapThread[Callout[#, #2, # + i[[1]] gap Normalize[# - centroid],
...
1
You can nest Labeled and Callout individually or together. They can be individually positioned.
ListPlot[{Callout[Labeled[{1, 2}, "Label 1", Above], "Label 2", Below,
Appearance -> None],
Labeled[Callout[{2, 1}, "Label 1", Above, Appearance -> None],
"Label 2", Below],
Labeled[Labeled[{.5, .5}, "...
7
You can use Graphics3D
Graphics3D[{Green, Tube[{{0, 0, 0}, {2 Pi, 0, 0}}, .04],
Table[{Sphere[{i, Cos[i], Sin[ i]}, .05],
Tube[{{i, 0, 0}, {i, Cos[ i], Sin[ i]}}, .04]},
{i, 0, 2 Pi, 2 Pi/30}]},
ImageSize -> Large, Boxed -> False]
or
Graphics3D[{Green, Tube[{{0, 0, 0}, {2 Pi, 0, 0}}, .04],
{Sphere[{#, Cos[ #], Sin[ #]}, .05],
Tube[...
0
Clear["Global`*"]
Your data does not consist of coordinates but rather just amplitudes corresponding to the default DataRange of {1, 16} in the x and y dimensions. Rescale the axes to place the origin within the DataRange.
ListPointPlot3D[
Table[Sin[j^2 + i],
{i, 0, 3, 0.2}, {j, 0, 3, 0.2}],
Filling -> Bottom,
AxesOrigin -> {0, 0, 0},
...
1
SeedRandom[1]
data = RandomPoint[Cuboid[], 5];
labels = IntegerName /@ Range[5];
ListPointPlot3D[(List /@ data) -> labels, PlotTheme -> "Scientific",
LabelingFunction -> (Style[#3[[2, 1]], 16, Bold, FontFamily -> "Arial",
ColorData["Rainbow"][Rescale[Last@#, MinMax[data[[All, 3]]], {0, 1}]]] &),
...
Top 50 recent answers are included
