Tag Info

New answers tagged

2

I am not sure what the ultimate aim is but for motivation: p = Plot[{Log[Abs[\[CapitalPhi]8[u]]], Log[Abs[\[CapitalPhi]8b[u]]]}, {u, 0, 2*Pi}, PlotStyle -> {{Thick, Blue}, {Thick, Red, Dashed}}, PlotLegends -> LineLegend["Expressions"]]; rp = ReplacePart[ p, {2, 1, 2} -> Inner[Style[#1, #2] &, p[[2, 1, 2]], {Blue, Red}, ...


2

Plot[{Log[Abs[\[CapitalPhi]8[u]]], Log[Abs[\[CapitalPhi]8b[u]]]}, {u, 0, 2*Pi}, PlotStyle -> {{Thick, Blue}, {Thick, Red, Dashed}}, AxesLabel -> Row[{ Style["Blue", {Blue, Bold}], ":log|\[CapitalPhi]8(u)|", Style[" Red", {Red, Bold}], ":log|\[CapitalPhi]8b(u)|"}]]


1

You can also pre-process the data to style and label it: labeleddata = Labeled[#, Style[#, 11], Below] & /@ Rest[litValues]; ListLinePlot[labeleddata, AxesLabel -> {"Atomic number", "Ionization Energy (kj/mol)"}, ImageSize -> 500, PlotStyle -> Red, PlotMarkers -> {Automatic, 14}, PlotRange -> {{0, Length@data + 1}, {0.6 ...


1

An alternative data = {{258, 1028, 0}, {217, 747, 0}, {212, 754, 0}, {210, 748, 0}, {191, 654, 0}, {157, 638, 0}}; Show[ Graphics3D[{Blue, PointSize[0.04], Point[data]}], Graphics3D[Text[#[[1]], 1.04 #] & /@ data], Axes -> True, BoxRatios -> 1] Just for fun with points more apart data = {{258, 830, 0}, {217, 747, 0}, {212, 680, 0}, ...


2

Few fixes to your code: As is, your code specifies the position of labels as 2D coordinates. i.e., the the last 2 coordinates (#[[{2,3}]]) of data points. Since these labels will appear in a 3D graphics, instead of the the last 2 coordinates, you should take all three (#) to specify the position: labels = Text[#[[1]], 1.04 #] & /@ TCzvdata Then, (1) ...


4

Few additional methods: p1 = Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 200]; p2 = Plot[Cos[x], {x, 0, 2 Pi}, ImageSize -> 200]; Labeled Labeled[Panel@GraphicsRow[{p1, p2}], Style["Label", "Subsubsection"], Top] // Panel Panel Panel[GraphicsRow[{p1, p2}], Style["Label", "Subsubsection"], Top] // Panel (* same picture *) Legended ...


1

p = Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 200]; Framed[ Column[ { Style["Sinus", Darker@Blue, Bold, 16], GraphicsRow[{p, p}] }, Alignment -> Center], FrameMargins -> 10]



Top 50 recent answers are included