Вы можете использовать функции lines() и points() для наложения нескольких графиков в R:
#create scatterplot of x1 vs. y1
plot(x1, y1)
#overlay line plot of x2 vs. y2
lines(x2, y2)
#overlay scatterplot of x3 vs. y3
points(x2, y2)
В следующих примерах показано, как использовать каждую из этих функций на практике.
Пример 1: Как наложить линейные графики в R
В следующем коде показано, как наложить три линейных графика на один график в R:
#define datasets
x1 = c(1, 3, 6, 8, 10)
y1 = c(7, 12, 16, 19, 25)
x2 = c(1, 3, 5, 7, 10)
y2 = c(9, 15, 18, 17, 20)
x3 = c(1, 2, 3, 5, 10)
y3 = c(5, 6, 7, 15, 18)
#create line plot of x1 vs. y1
plot(x1, y1, type='l', col='red')
#overlay line plot of x2 vs. y2
lines(x2, y2, col='blue')
#overlay line plot of x3 vs. y3
lines(x3, y3, col='purple')
#add legend
legend(1, 25, legend=c('Line 1', 'Line 2', 'Line 3'),
col=c('red', 'blue', 'purple'), lty= 1 )
Пример 2: Как наложить диаграммы рассеяния в R
В следующем коде показано, как наложить две диаграммы рассеяния на один график в R:
#define datasets
x1 = c(1, 3, 6, 8, 10)
y1 = c(7, 12, 16, 19, 25)
x2 = c(1, 3, 5, 7, 10)
y2 = c(9, 15, 18, 17, 20)
#create scatterplot of x1 vs. y1
plot(x1, y1, col='red', pch= 19 )
#overlay scatterplot of x2 vs. y2
points(x2, y2, col='blue', pch= 19 )
#add legend
legend(1, 25, legend=c('Data 1', 'Data 2'), pch=c(19, 19), col=c('red', 'blue'))
Обратите внимание, что аргумент pch определяет форму точек на графике. Значение pch, равное 19, указывает закрашенный кружок.
Вы можете найти полный список значений pch и соответствующих им форм здесь .
Дополнительные ресурсы
В следующих руководствах объясняется, как выполнять другие распространенные функции построения графиков в R:
Как построить несколько блочных диаграмм на одной диаграмме в R
Как построить несколько линий на одном графике в R