Как изменить положение легенды на базовых графиках r

Есть два способа изменить положение легенды на базовых графиках R:

Способ 1: использовать координаты (x,y)

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

Способ 2: используйте ключевые слова

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

Используя этот метод, вы можете указать следующие местоположения:

• «внизу справа»
• «вниз»
• «слева внизу»
• «ЛЕВЫЙ»
• «в верхнем углу слева»
• «высокий»
• «в правом верхнем углу»
• «ВЕРНО»
• «центр»

Следующие примеры показывают, как использовать каждый метод на практике.

Пример 1. Изменение положения легенды с использованием координат (x,y)

Следующий код показывает, как создать легенду для базового графика R и разместить ее в точках x=4 и y=12:

 #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 ) 

Обратите внимание, что легенда размещается в указанных нами точных координатах (x,y).

Пример 2. Изменение положения заголовка с помощью ключевых слов

Следующий код показывает, как создать легенду для базового графика R и разместить ее в верхнем левом углу:

 #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 ) 

Легенда размещается в левом верхнем углу графика, как мы указали.

Мы можем легко переместить его в другое место, например в правый нижний угол, используя другое ключевое слово:

 #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 ) 

Легенда теперь размещена в правом нижнем углу графика.

Связанный: Как нарисовать легенду вне графика в R

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в R:

Как построить несколько линий на графике в R
Как провести линию наилучшего соответствия в R
Как использовать aline() в R