New answers tagged

4

You can use FrameStyle -> Directive[Opacity @ 0, FontOpacity -> 1], FrameTicks -> None, ... But in general I'd go with Labeled.


0

For version 9, wrapping data with Labeled gives the desired result: BarChart[{Labeled @@@ Transpose[{eventosporclasses, Rotate[#, Pi/2.4] & /@ Classes}]}, ChartElementFunction -> "ObliqueRectangle", PlotLabel -> Style["Distribuição de magnitudes (2014) -> atualização de: " <> DateString[{"Day", "/", "Month", "/", "Year", " às ...


1

According to the Documentation, you should set CellLabelAutoDelete -> False for making cell labels permanent: Create a notebook with the setting CellLabelAutoDelete -> False: nb = CreateDocument[{ExpressionCell[Defer[1 + 1], "Input"], ExpressionCell[Defer[2 + 2], "Input"]}, CellLabelAutoDelete -> False] When inputs are evaluated, ...


0

"In/Out" labels are created, roughly, when you evaluate/create cells. And according to CellLabelAutoDelete documentation: If you edit a previously evaluated input cell, its cell label is cleared That's what is happening when you paste copied image. A default cell is created, with a label, but then the cell is edited by pasting your image. This clears ...


0

FkFl2 = {{0.108705, 0.505448}, {0.358493, 0.0753008}, {-0.418082, 0.0156307}, {-0.00893736, -0.519801}, {0.341173, -0.170573}, \ {0.139561, 0.546447}, {0.0991457, 0.236118}, {-0.408699, 0.060441}, {-0.371379, 0.0200262}, {-0.411535, 0.0433609}, {0.254496, -0.28112}}; elements = {"SiO2", "Al2O3", "FeO", "MgO", "CaO", "Na2O", "K2O", "TiO2", ...


0

You can use Epilog to add labels to a plot, ListPlot[ FkFl2, Epilog -> { {Text[#1, 1.2*#2], Line[{{0, 0}, #2}]} & @@@ (Transpose@{First@elements, FkFl2}) } , PlotRange -> {{-1, 1}, {-1, 1}} ]


0

Using what you already have done just make these functions and then use Table inside Show blabelEl[i_] := Graphics[Text[elements[[1, i]], {FkFl2[[i, 1]], FkFl2[[i, 2]]}], PlotRange -> {{-1, 1}, {-1, 1}}]; blineEl[i_] := Graphics[Line[{{0, 0}, {FkFl2[[i, 1]], FkFl2[[i, 2]]}}]]; Show[dataPlot2, Table[{blabelEl[i], blineEl[i]}, {i, 1, ...


0

Show[ListPlot[FkFl2, PlotRange -> {{-1, 1}, {-1, 1}}, AxesLabel -> {"F" <> ToString[k], "F" <> ToString[l]}], #] &@({Graphics[ Line[{{0, 0}, {FkFl2[[#, 1]], FkFl2[[#, 2]]}}]], Graphics[Text[elements[[1, #]], {FkFl2[[#, 1]], FkFl2[[#, 2]]}]]} & /@ Range[1, Length[FkFl2]]) You will need to read about Map. Also this post is ...


1

{h, m, s} = {1, 24, 52}; ah = π/2 - 2 π h/12 - (2 π) m/720; am = π/2 - 2 π m/60; as = π/2 - 2 π Floor[s]/60; Graphics[ {Table[{ ColorData["TemperatureMap", 1 - a/(2 π - π/6)], Disk[{Cos[a + π/2], Sin[a + π/2]}, 0.1], Text[Style[12 - 6 a /Pi, Black], {Cos[a + π/2], Sin[a + π/2]}]}, {a, 0, 2 π - π/6, π/6}], , Thick, Black, ...



Top 50 recent answers are included