Hoe u de positie van de legenda in standaard r-plots kunt wijzigen

Er zijn twee manieren om de positie van de legenda in standaard R-plots te wijzigen:

Methode 1: Gebruik coördinaten (x,y)

 legend( 4 , 12 , legend=c(' y1 ', ' y2 '), col=c(' purple ', ' red '), lty= 1 )

Methode 2: Gebruik trefwoorden

 legend(' bottomright ', legend=c(' y1 ', ' y2 '), col=c(' purple ', ' red '), lty= 1 )

Met deze methode kunt u de volgende locaties opgeven:

• „rechtsonder“
• „omlaag“
• „linksonder“
• „LINKS“
• „in de linkerbovenhoek“
• „hoog“
• „rechtsboven“
• „RECHTS“
• „centrum“

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken.

Voorbeeld 1: Wijzig de positie van de legenda met behulp van (x,y)-coördinaten

De volgende code laat zien hoe u een legenda voor een basis-R-plot maakt en deze op x=4 en y=12 plaatst:

 #createdata
x <- 1:10
y1<- c(3, 6, 8, 7, 8, 9, 13, 12, 10, 10)
y2 <- c(1, 3, 3, 4, 6, 7, 8, 10, 9, 9)

#create plot with multiple lines
plot(x, y1, col=' purple ', type=' l ', xlab=' x ', ylab=' y ')
lines(x, y2, col=' red ')

#add legend
legend( 4 , 12 , legend=c(' y1 ', ' y2 '), col=c(' purple ', ' red '), lty= 1 ) 

Merk op dat de legenda op de exacte (x,y) coördinaten is geplaatst die we hebben opgegeven.

Voorbeeld 2: Wijzig de positie van de ondertitels met behulp van trefwoorden

De volgende code laat zien hoe u een legenda voor een basis-R-plot maakt en deze in de linkerbovenhoek plaatst:

 #create data
x <- 1:10
y1<- c(3, 6, 8, 7, 8, 9, 13, 12, 10, 10)
y2 <- c(1, 3, 3, 4, 6, 7, 8, 10, 9, 9)

#create plot with multiple lines
plot(x, y1, col=' purple ', type=' l ', xlab=' x ', ylab=' y ')
lines(x, y2, col=' red ')

#add legend
legend(' topleft ', legend=c(' y1 ', ' y2 '), col=c(' purple ', ' red '), lty= 1 ) 

De legenda wordt in de linkerbovenhoek van de plot geplaatst, zoals we hebben gespecificeerd.

We kunnen het eenvoudig naar een andere locatie verplaatsen, zoals de rechterbenedenhoek, met behulp van een ander trefwoord:

 #create data
x <- 1:10
y1<- c(3, 6, 8, 7, 8, 9, 13, 12, 10, 10)
y2 <- c(1, 3, 3, 4, 6, 7, 8, 10, 9, 9)

#create plot with multiple lines
plot(x, y1, col=' purple ', type=' l ', xlab=' x ', ylab=' y ')
lines(x, y2, col=' red ')

#add legend
legend(' bottomright ', legend=c(' y1 ', ' y2 '), col=c(' purple ', ' red '), lty= 1 ) 

De legenda wordt nu in de rechter benedenhoek van de plot geplaatst.

Gerelateerd: Hoe teken je een legenda buiten een plot in R

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in R kunt uitvoeren:

Hoe meerdere lijnen in een grafiek te plotten in R
Hoe teken je de lijn van de beste pasvorm in R
Hoe aline() te gebruiken in R