mathematica에서 여러 개의 플롯에 범례를 추가하는 방법은 무엇입니까?

Question

나는 다른 위에 하나의 레이블 얻을하지 명확하게 표시, 그러나이

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"}]]