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

R: Как поставить два квадрата рядом друг с другом, сохраняя одинаковый диапазон y для обоих?

Скажем, у меня есть два набора данных: один с диапазоном y [min0: max0], а другой с y-диапазоном [min1: max1]. Как можно поместить обе диаграммы на одном участке рядом друг с другом с разумным диапазоном y [min (min0, min1): max (max0, max1)]?

Вот что я пробовал:

d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)

par(mfrow = c(1, 2))
boxplot(d0)
usr <- par("usr")
plot.new()
par(usr = usr)
boxplot(d1, add = TRUE)

Но это будет удерживать только первые графики y-range и также сжимать обе графики, тогда как я бы хотел, чтобы они были квадратными.

Любые идеи?

4b9b3361

ОТВЕТЫ

Ответ 1

d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)

# Using base R graphics
lmts <- range(d0,d1)

par(mfrow = c(1, 2))
boxplot(d0,ylim=lmts)
boxplot(d1,ylim=lmts)

base graphics plot

Вы также можете подумать о том, как это сделать, используя графику сетки либо пакетами lattice, либо ggplot2.

Здесь одна попытка в ggplot2:

# Using ggplot2
library(ggplot2)
d <- data.frame(d.type=c(rep(0,15),rep(1,15)),sub.type=rep(c('A','B','C'),10),val=rnorm(30))

p <- ggplot(d, aes(factor(sub.type), val)) 
p + geom_boxplot() + facet_grid(. ~ d.type)

ggplot2

И в решетке:

# Using lattice
library(lattice)
bwplot(~ val|sub.type+d.type ,d)

lattice plot

Обратите внимание, как решения на основе сетки не позволяют вам указывать ограничения; вы указываете структуру, а программное обеспечение делает все остальное.