mathematicaで複数のプロットの凡例を追加するには？

Question

私は私は別の上に1のラベルを取得していないはっきりとラベルされた、しかしこの

gx = n * k0 * (1 - ((n/a)^ beta) 
    Show[ 
    Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}, PlotLabels -> {"r0 = 0.5"}], 
    Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}, PlotLabels -> {"r0 = 0.8"}] 
     ] 

ようなコードを持っています。

代わりに、私は伝説

私はショー

私はこれらに取り組むことができる方法上の任意の提案をしてグラフィックオブジェクトを組み合わせることができなかったというエラーを取得しているため

Show[ 
Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}], 
Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, PlotRange -> {{0, 12}, {0, 5}}], 
PlotLegends -> {"beta = 5", "beta=0.5"} 
    ] 

を使用してみましたか？

Answer 1

3つのバリエーションがここに表示されます。

gx = n*k0*(1 - ((n/a)^beta)); 

Show[ 
Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotRange -> {{0, 12}, Automatic}, PlotLabels -> {"beta = 5"}], 
Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotRange -> {{0, 12}, Automatic}, PlotLabels -> {"beta=0.5"}]] 

Plot[ 
{gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, 
    gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}}, 
{n, 0, 12}, PlotRange -> {{0, 12}, Automatic}, 
PlotLegends -> {"beta = 5", "beta=0.5"}] 

Legended[Show[ 
    Plot[gx /. {k0 -> 0.5, beta -> 5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotStyle -> ColorData[97][1], PlotRange -> {{0, 12}, Automatic}], 
    Plot[gx /. {k0 -> 0.5, beta -> 0.5, n -> 9, a -> 1}, {n, 0, 12}, 
    PlotStyle -> ColorData[97][2], PlotRange -> {{0, 12}, Automatic}]], 
LineLegend[ColorData[97] /@ {1, 2}, {"beta = 5", "beta=0.5"}]]