New answers tagged style
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
