18

Plot is returning a Graphics object, with the label specified in its Options. Retrieve the options with In[2]:= Options[plotwithLabel, PlotLabel] Out[2]= {PlotLabel -> "This is Label"}


10

LogLogPlot[{x, x^2, x^1.5, 5/x}, {x, 0.5, 3}, PlotRange -> {{0.5, 3}, {0.5, 10}}, Frame -> True, FrameStyle -> Directive[Black, 25], PlotStyle -> { {Thick, Blue}, {Thick, Red}, {Thick, Darker@Darker@Green}, {Thick, Blue}, {Thick, Blue, Dashing[0.02]}, {Thick, Darker@Darker@Green, Dashing[0.02]}}, ImageSize -> Large, ...


8

You can wrap the tick labels with Style: BarLegend[{{Red, Black, Cyan}, {0, 1}}, Ticks -> {{0, Style["Hot", 13, Red]}, {1, Style["Cold", 13, Cyan]}}, LegendMarkerSize -> 236] Perhaps more flexibly, (whoops... this part is just a variation of the approach already posted by CA Trevillian) cf = Blend[{Red, Black, Cyan}, #] &; BarLegend[{cf, {...


8

outtabletoprint = RandomReal[1, {13, 13}]; MatrixPlot[outtabletoprint, ColorFunction -> "TemperatureMap", FrameTicks -> {ticks2, None, None, MapAt[Rotate[#, 90 Degree] &, ticks2, {All, 2}]}, PlotLegends -> Automatic]


7

It is possible to nest several Callout: ClearAll[x, h]; h[x_] := Piecewise[{{Exp[x], x < -1}, {1 - x^2, -1 < x < 1}, {Sin[Pi x], x > 1}}]; Plot[ Callout[Callout[Callout[h[x], "Exp[x]", -2], "Sin[Pi x]", 2], "1-x^2", {0.3, Above}], {x, -3, 3}] Seen in this video of Wolfram Technology Conference 2018. There ...


7

Clear["Global`*"] h[x_] := Piecewise[{{Exp[x], x < -1}, {1 - x^2, -1 < x < 1}, {Sin[Pi x], x > 1}}]; plotRng = {-3, 3}; EDIT: Extracting intervals intervals = {Cases[h[x][[1, All, -1]], _?NumericQ, 2], plotRng} // Flatten // Union // Partition[#, 2, 1] &; Show[ Plot[ Callout[h[x], Simplify[h[x], Less @@ Insert[#, x, ...


7

Use the third argument of Callout to specify the anchor position: Plot[{Callout[x - 1, "x=1", {1, Above}, 1, CalloutMarker -> "Star"], Callout[(E - 1)*Log[x], "x=e", {E, Above}, E, CalloutMarker -> "CirclePoint"]}, {x, 0.5, 3.5}, Frame -> True, GridLines -> Automatic, PlotLabels -> Automatic]


7

PlotLabel /. plotwithLabel[[2]] "This is Label"


7

You can get the 3D look with BarChart using ChartElementFunction -> "ObliqueRectangle". percentSolved = PercentForm /@ ({42.857, 85.714, 71.4286, 100., 71.4286, 71.4286, 42.8571}/100); bc = BarChart[MapThread[Labeled, {dataForChart, casNames}], ChartLayout -> "Percentile", ChartStyle -> {Red, RGBColor[255/255, 255/255, 0/255], ...


7

You can use the (undocumented) option Spacings: Row[PointLegend[col, lab, LegendMarkers -> {Style[\[FilledCircle], 12]}, LabelStyle -> {FontFamily -> "Helvetica", 17}, Spacings -> #] & /@ {.1, .5, 1}]


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[...


6

If I understand correctly, this will produce what you want: rbc := Blend[{Red, Black, Cyan}, #] &; BarLegend[{rbc, {0, 1}}, Ticks -> { {#, Style["Hot", rbc[#]]}&@0, {#, Style["Cold", rbc[#]]}&@1 }, LabelStyle -> {FontSize -> 13, Black}, LegendMarkerSize -> 236] First, you recognize that BarLegend automatically creates a ...


6

With Callouts and combining a separate ListPlot using a Show: h[θ_] := (1 - θ)/θ Show[ Plot[{h[θ], 2.5}, {θ, 0.1, 1}, PlotTheme -> "Monochrome", AxesLabel -> {"θ", "h(θ)"}, PlotLegends -> Placed[{"h(θ)", "\!\(\*OverscriptBox[\(θ\), \(^\)]\)"}, Below], LabelStyle -> {FontSize -> 10}], With[{pts = {{0.2, 4}, {0.25, 3}, {0.4, 1.5}, {...


6

RelationGraph[0.2 < d[#1, #2] < 1.5 &, data, data, VertexLabels -> {data[[1]] -> "this", data[[2]] -> "that"}] RelationGraph[0.2 < d[#1, #2] < 1.5 &, data, data, VertexLabels -> MapIndexed[# -> Subscript[v, #2[[1]]] &, data]]


6

Table[Plot[{Re[ReleaseHold@f] /. j -> 3, Im[ReleaseHold@f] /. j -> 3}, {n, 0, 15}, GridLines -> Automatic, PlotRange -> All, ImageSize -> 350, PlotLegends -> {"Real", "Imaginary"}, PlotLabel -> f], {f, {HoldForm@Sum[Sinc[Pi*(n - i*j)], {i, 1, Floor[n]}], HoldForm[(-1 + E^(2*I*Pi*n))/(j*(-1 + E^((2*I*...


5

I'd do it this way: Manipulate[ x^n, {x, -10, 10, 1, Appearance-> "Labeled"}, {{n, 2}, {2 -> "square", 3 -> "cube"}}]


5

data = {{1, 2, 3}, {4, 5, 6}}; labels = {aaa, bbb, ccc, ddd, eee, fff}; labeleddata = TakeList[MapIndexed[Labeled[#, labels[[#2[[1]]]]] &, Flatten @ data], Length /@ data] BarChart[labeleddata, ChartStyle -> {{Red, Green}, None}] You can also define labeleddata as labeleddata = MapThread[Labeled] /@ Transpose[{data, TakeList[labels, Length /@ ...


5

plotwithLabel = Plot[x, {x, 1, 2}, PlotLabel -> "This is Label"]; PlotLabel /. Cases[plotwithLabel, _Rule, All] "This is Label" If you look at the output of e.g. SequenceForm@ InputForm@ plotwithLabel, you will see the internal representation of the plot as a Graphics object. You will note that it contains many options expressed as Rules (i.e. ...


5

Use FrameTicks -> {{Automatic, Automatic}, {MapAt[DatePlus[#, {6, "Month"}] &, rotatedDateTicksF[15][{2000}, DatePlus[{2000}, {15, "Year"}]], {All, 1}], Automatic}} to get


5

Both methods used v. 12.1 on a Mac. Method 1 You can get a slight improvement by adjusting the AspectRatio. For example, with AspectRatio->0.7, some space is removed. It also reduces the heights of the bars. Method 2: Rasterize the bar chart barchart = BarChart3D[dataForChart,ImageSize -> 700,ChartLayout -> "Percentile", ChartStyle -> {Red, ...


5

In case you are not aware, it is possible to interactively edit the plot output which is often the fastest way for a one-off solution. If you hover over "Domain 2" in the output and double click you should see an editing frame: Use the handles to rotate and position the label: Then click outside the graphic and the edit is saved:


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] ...


5

You need to use CharacterEncoding->"Unicode" to get the Arabic to show up in the text. Use BoxRatios->1 instead of AspectRatio->1 to avoid 2D distortion. Use Texture[rose] combined with the VertexTextureCoordinates of a Polygon to get the rose image onto a quad in the 3D graphics. I assume you already have an image like my "rose.png&...


5

Show[ListLinePlot[Table[2 x + 2, {x, -5, 5}], PlotStyle -> Directive[Thick], TicksStyle -> Directive[30, Black, Background -> White], PlotTheme -> {"Grid"}, GridLinesStyle -> Plain], Method -> {"AxesInFront" -> False}]


5

Try ComplexListPlot: a1 = (10/7)*(Cos[Pi/10] + I*Sin[Pi/10]); ComplexListPlot[Table[Callout[a1^k, k], {k, 0, 12}], AxesLabel -> {R, I}, ImageSize -> Large] If you use Callout[N @ a1^k] instead of Callout[a1^k, k] you get:


4

The solution offered by Bob Hanlon in his comment certainly works: Plot[x, {x, 0, 1}, Frame -> True, FrameLabel -> {x, R^"(2)"}] but, on MacOS at least, I think Mathematica renders the exponent of $R$ in too large a font. To fix this perceived fault, I suggest the following variation: Plot[x, {x, 0, 1}, Frame -> True, FrameLabel -> {x, ...


4

Update - Address comment Don't know what sectorScores is, but it works fine with the labels from the question. Module[{labels = {"ABC Learning focused", "DEF Positively oriented", "GHI Continuous", "KLM Timely", "NOP Clear criteria", "RST Flexible", "UWZ Suited to student level"}, data = {8, 6, 4, 5, 5, 9, 9}}, BarChart[data, ChartLabels -&...


4

SeedRandom[1] rr = RandomReal[{-1, 1}, {6, 2}]; ListPlot[rr -> (Subscript["a", #] & /@ Range[-1, 4]), PlotStyle -> Red]


4

left = {{0, 0, 0}, {0, 1, 0}, {0, 1, 1}, {0, 0, 1}}; back = {{0, 1, 0}, {1, 1, 0}, {1, 1, 1}, {0, 1, 1}}; bottom = {{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}; vtc = {{0, 0}, {1, 0}, {1, 1}, {0, 1}}; text = {Texture[Rasterize[Text[Framed[ Style["Some Text", Yellow, Bold, FontSize -> 46, FontFamily -> "Old English Text MT"], FrameStyle -> ...


4

ClearAll[labeledPoints] labeledPoints[off_: .05] := Module[{rc = RegionCentroid[ConvexHullMesh @ #]}, {MapIndexed[Text[#2[[1]], # + off Normalize[# - rc]] &, #], Red, PointSize[Large], Point @ #}] &; Examples: Labeled[Show[lintri1, Epilog -> labeledPoints[][lintri1points], Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> All]...


Only top voted, non community-wiki answers of a minimum length are eligible