New answers tagged

2

SeedRandom[1] data = RandomReal[1, {5, 5}]; An alternative hack is to temporarily re-define Darker (which is used to style the joined lines) as the desired line color (say, Red): Block[{Darker = (Red &)}, BarChart[data, ChartLayout -> "Stacked", Joined -> True, BarSpacing -> 0.5]] To have different colors for each line, post-...


1

SeedRandom[1] data = RandomReal[1, {5, 5}]; bc = BarChart[data, ChartLayout -> "Stacked", Joined -> True, BarSpacing -> 0.5] Two post-processing hacks: replaceAll1 = ReplaceAll[Directive[p_, a_, c_] :> Directive[p, a, Red]]; replaceAll2 = ReplaceAll[Line[x_] /; Length[x] > 2 :> {Red, Line @ x}]; replaceAll1 @ bc replaceAll2 @ ...


1

ClearAll[labeledSlider] Options[labeledSlider] = {"lineStyle" -> Directive[AbsoluteThickness@6, Black], "thumbAppearance" -> Graphics[{EdgeForm@{Thick, Black}, White, Disk[]}, ImageSize -> 20, AspectRatio -> 1]}; labeledSlider[Dynamic[var_], {min_, max_}, head_: Identity, opts : OptionsPattern[{labeledSlider, ...


3

Extended comment. While I very much like @Lukas_Lang's answer, (Invisible has been invisible to me ;-), I don't get the result that he gets running on my Version 12.3.1.0 for macOS. e.g., Grid[{ {Item[Invisible@111, Frame -> {Automatic, Automatic, Automatic, False}], "Center", SpanFromLeft, 111}, {"ThisIsAVeryLongString", ...


6

While it's not super nice, you can use Item[Invisible[...],...] to do this: Grid[{ {Item[Invisible@111, Frame -> {Automatic, Automatic, Automatic, False}], "Center", SpanFromLeft, 111}, {"ThisIsAVeryLongString", SpanFromLeft, "ThisIsAVeryLongString", 111}, {"Center", SpanFromLeft, SpanFromLeft}}, Frame -&...


11

ItemSize >> Properties and Relations: "Controls and graphics will by default expand to fit the available area." So we can use a graphics object as the title row: ClearAll[addTitleRow] addTitleRow[ttl_, lineStyle_: Automatic, textStyle_: Automatic, pos_: {.5, 0}] := PadRight[ Prepend[{Graphics[{lineStyle /. Automatic -&...


8

A first thought of how approach the problem. n = 10; itemSize = 1.5; Column[{ Grid[{ {"", " Matrix ", ""}, {"", SpanFromAbove, ""} }, Frame -> All, ItemSize -> n/itemSize, Alignment -> {Center, Center}, Dividers -> {False, {False, {2 -> True}}}], Grid[{ ...


Top 50 recent answers are included