解領域を一次方程式系にプロットしたいのですが、すべてを一度にではなく、一度に 1 つの方程式をプロットできるようにしたい (そして、それらを「レイヤー化」したい)。Manipulate 関数を使用してそれを行う方法がわかりません。CheckboxBar を使用しますか? これが私がこれまでに持っているものです：
points1 := Table[{i - 1, j - 1}, {i, 70}, {j, 70}]
Show[ListPlot[points1, PlotRange -> {{0, 70}, {0, 70}}, ImageSize -> 850,
AxesLabel -> {"Racing Cars", "Sport-Utility Cars"}, PlotStyle ->
Directive[RGBColor[0.45, 0.67, 0.82, 0.82], PointSize[0.005]], LabelStyle ->
Medium],
RegionPlot[{R <= 40, S <= 60, R + S >= 70}, {R, 0, 70}, {S, 0, 70},
PlotLegends -> "Expressions"]]
私が望んでいないのは、一度に 1 つの方程式しかプロットできないことです。例えば、
Manipulate[Plot[function[frequency*x + phase], {x, -6.6, 6.6}], {frequency, 1, 5},
{phase, 1, 10}, {function, {Sin, Cos, Tan}}]
（申し訳ありませんが、初心者です... Googleで徹底的に検索したことを約束しますが、見つけた例はどれも私の状況に役立ちませんでした。）
どうもありがとう！