Подтвердить что ты не робот

Как отделить два графика в R?

Всякий раз, когда я запускаю этот код, первый график просто перезаписывает предыдущий. Разве нет пути в R, чтобы разделить, чтобы получить два графика?

plot(pc)
title(main='abc',xlab='xx',ylab='yy')

plot(pcs)
title(main='sdf',xlab='sdf',ylab='xcv')
4b9b3361

Ответ 1

Если вы просто хотите, чтобы одновременно открывались два разных окна построения, используйте dev.new, например.

plot(1:10)
dev.new()
plot(10:1)

Если вы хотите нарисовать два графика в том же окне, то, как сказал Шейн, установите параметр mfrow.

par(mfrow = c(2,1))
plot(1:10)
plot(10:1)

Если вы хотите попробовать что-то более продвинутое, вы можете взглянуть на решетчатую графику или ggplot, оба из которых отлично подходят для создания условных графиков (графики, в которых разные подмножества данных отображаются в разных кадрах).

Пример решетки:

library(lattice)
dfr <- data.frame(
  x   = rep(1:10, 2), 
  y   = c(1:10, 10:1), 
  grp = rep(letters[1:2], each = 10)
)
xyplot(y ~ x | grp, data = dfr)

Пример ggplot. (Сначала вам нужно загрузить ggplot из CRAN.)

library(ggplot2)
qplot(x, y, data = dfr, facets = grp ~ .)
#or equivalently
ggplot(dfr, aes(x, y)) + geom_point() + facet_grid(grp ~ .)

Ответ 2

Попробуйте использовать par перед началом работы.

 par(mfrow = c(2, 1))

Ответ 3

Вы также можете попробовать выполнить команду компоновки:

Try      layout(1:2)

plot(A)    
plot(B)

Ответ 4

попробуйте выполнить команду x11() перед каждым графиком, вот пример:

x11()
plot(1:10)
x11()
plot(rnorm(10))

Это приведет к разным окнам графика. Вы можете добавить команду "par" в любой из этих окон x11() и получить более разнообразные графики, т.е. 4 графика в одном окне, а большой сюжет в другом окне.

Ответ 5

Если вы хотите, чтобы 2 графика в отдельных окнах или файлах вы могли выбрать новые устройства, перед вызовом каждой команды графика. См.:

? Устройства

и

? Dev.cur

Ответ 6

Альтернативный ответ - назначить сюжет как объект, затем вы можете отображать его, когда хотите то есть

abcplot<-plot(pc) title(main='abc',xlab='xx',ylab='yy')

sdfplot<-plot(pcs) title(main='sdf',xlab='sdf',ylab='xcv')

abcplot # Displays the abc plot
sdfplot # Displays the sdf plot
abcplot # Displays the abc plot again