Extract all Rules from Plot function

Question

Let's say I would like to know all the Rules that apply to PlotTheme->"Detailed". I tried

Select[FullForm[Plot[x, {x, 0, 1}, PlotTheme -> "Detailed"]], Head[#] == Rule &, Infinity]

but I get the Error/Warning that FullForm was called with 0 arguments, which doesn't make sense to me. What would be the correct way to do this?

You should use Cases instead of Select like this: Cases[ Plot[x, {x, 0, 1}, PlotTheme -> "Detailed"], x_ /; Head[x] === Rule, Infinity ] — flinty, Commented Sep 14, 2021 at 12:57
In general if you are looking for rules you would also need to check for RuleDelayed, e.g., Cases[Plot[x, {x, 0, 1}, PlotTheme -> "Detailed"], x_ /; (Head[x] === Rule || Head[x] === RuleDelayed), Infinity]. In this particular case that only adds one DisplayFunction :> Identity — Bob Hanlon, Commented Sep 14, 2021 at 13:29

kglr · Accepted Answer · 2021-09-14 16:04:27Z

10

You can get the options associated with the plot theme "Detailed" using the (undocumented) internal function Charting`ResolvePlotTheme:

Charting`ResolvePlotTheme["Detailed", Plot] // Column

If you need the options for the legended graphics object produced by

 plot = Plot[x, {x, 0, 1}, PlotTheme -> "Detailed"]

you can use Part:

Head /@ {plot, plot[[1]], plot[[2]]}

{Legended, Graphics, Placed}

plot[[1, 2]]

answered Sep 14, 2021 at 12:53

kglr

401k18 gold badges488 silver badges929 bronze badges

Add a comment |

1 Answer 1