New answers tagged

5

Update From the comments what I believe you want is the rotating window not to resize as you rotate. This happens because the default RotatingAction is "Fit". You need it to be "Clip". Labeled[ Plot3D[(y^2 - x^2 - 1/6 x^3), {x, -8, 5}, {y, -6, 6}, MeshFunctions -> {#3 &}, Mesh -> 60, PlotPoints -> 50, RotationAction -> "Clip"], ...


1

You are multiplying the terms in your label. i.e. "ln " Superscript[Style["p", Italic], ′] Style["(t)", Italic] means "ln " multiplied by Superscript[Style["p", Italic], ′] multiplied by Style["(t)", Italic] Use Row to compose the label: Plot[x, {x, 1, 30}, PlotRange -> All, Frame -> True, ImagePadding -> 60, FrameLabel -> {Row[{"ln " , ...


2

Using custom tick labels still works, but one has to use the logarithmic label position, as this conversion is no longer done automatically for custom tick labels. ListLogLogPlot[plist, PlotRange -> {{.1, 10^5}, {10^-1, 10^6}}, Ticks -> {Table[{N@Log[10^i], Superscript[10, i]}, {i, -1, 5}], Table[{N@Log[10^i], Superscript[10, i]}, {i, -1,...


4

Here is one way to convert the ticks into the desired format: ListLogLogPlot[plist, PlotRange -> {{.1, 10^5}, {10^-1, 10^6}}, Joined -> True] /. {v_, t_?NumberQ, l1_, {AbsoluteThickness[0.1]}} :> {v, NumberForm[N@t, NumberFormat -> (Superscript[#2, #3] &), ExponentFunction -> (# &)], l1, {AbsoluteThickness[0.1]}} With ...


5

I tested on 10.2 and 10.4. I recommend just using the tick labels from some other plot and overlaying the data using Show. With minimal changes to your example I got following proof of principle. plist = {#, 1. Log[#! + 1]} & /@ {.1, .5, 1, 5, 10, 50, 100, 500, 1000, 5000, 10000, 50000, 100000}; Show[{LogLogPlot[0, {x, .1, 10^5}, PlotRange -&...


12

Based on the comment by Szabolcs I came up with a solution. Here it is xyText[str_, scaling_: 1, offset_: {0, 0, 0}] := Module[{ mesh = DiscretizeGraphics[ Text[Style[str, FontFamily -> "Monospac821 BT"]], _Text, MaxCellMeasure -> 1] }, MeshPrimitives[mesh, 2] /. {x_?NumberQ, y_?NumberQ} :> (scaling {x, y, 0} + offset) ...


0

You can try using a direction vector for Text instead of using Rotate to rotate the labels, as demonstrated in this answer: DataFile = {{"Man", "First", 215, 230, 120, 80, 65}, {"Man", "Second", 240, 450, 180, 150, 114}, {"Woman", "First", 275, 450, 210, 190, 43}, {"Woman", "Second", 275, 275, 145, 134, 96}, {"Woman", "Third", 200, 240, 20, ...


2

A modification of your last code block BulletTOTAL = Table[BulletGauge[{DataFile[[i, 5]], DataFile[[i, 4]]*0.75}, {DataFile[[i, 3]]}, {0, DataFile[[i, 4]], DataFile[[i, 6]], DataFile[[i, 7]], MaximoEscala}, ImageSize -> Large, GaugeLabels -> Placed[Style[ Rotate[DataFile[[i, 2]] <> "\n" <> DataFile[[i, ...


7

May be marked as a duplicate, but there's an easy way to do this that isn't listed in the marked question: You have a plot: Plot[x, {x, 0, 40000}] To scale the ticks you just need to have the function you use to scale them #/1000& and the inverse of this function 1000 #& Plot[x, {x, 0, 40000}, Ticks -> {Charting`ScaledTicks[{(1000 # &)...


5

The 3rd position of Labeled is position and dosn't require Spacings. shiftX = -2; shiftY = -0.6; ListPlot[Table[Labeled[Prime[n], Prime[n], {-shiftX, -shiftY}], {n, 10}], DataRange -> All]


1

This is a refactored / slimmed version of the code in your answer: Manipulate[ With[{selected = category[[startPosition ;; endPosition]]}, BarChart[ selected[[All, whichBarChart]], ChartLabels -> selected[[All, label]], BarOrigin -> Left, ImageSize -> Large ] ], {{startPosition, 1}, {1, 6}}, {{endPosition, 5}, {5, 10}}, {...


1

Got it. Removed Take and All, replacing with Range[startPosition,endPosition] Manipulate[ Switch[whichBarChart, 5, BarChart[category[[Range[startPosition, endPosition], 5]], ChartLabels -> category[[Range[startPosition, endPosition], label]], BarOrigin -> Left, ImageSize -> Large], 6, BarChart[category[[Range[startPosition, ...


1

Wrap the Show within a Labeled. data1 = Transpose@ Join[{RandomReal[{0, 10}, 100], RandomReal[{-10, -1}, 100]}]; data2 = Transpose@ Join[{RandomReal[{0, 10}, 100], RandomReal[{-10, -1}, 100]}]; Labeled[ Show[ ListPlot[data1, PlotStyle -> Black], ListPlot[data2, PlotStyle -> Red] ], {"V in mV", "T in s"}, {Left, Top}, RotateLabel ->...


0

I have just worked my way through a similar problem with Grid, so I have a handy solution (more on this below.) The solution is rather crude; I just grab the graphics from within the Labeled wrappers and reassemble: ClearAll[showWithin]; showWithin[first:Labeled[_Graphics, args___], rest:Labeled[_Graphics, ___]..., opts:OptionsPattern[]] := Activate[...


1

Since your DataCauchy1mA is precious f := SortBy[ Flatten[RandomReal[#, {5, 2}] & /@ {{0, 1}, {-70, -30}}, {3, 2}], Last] {DataCauchy1mA, DataCauchy2mA} = {f, f}; I mean we can don't use Show to do this Labeled[ListPlot[{DataCauchy1mA, DataCauchy2mA}, Joined -> True, PlotRange -> {{0, 1}, {-70, -30}}], {"V in mV", "T in s"}, {Left, ...



Top 50 recent answers are included