Would this be acceptable?
d1 <- data.frame(Group = rep(c('First Period, All', 'First Period, Small'),
each = 200),
x = xx1,
y = yy1)
d2 <- data.frame(Group = rep(c('Second Period, All', 'Second Period, Small'),
each = 200),
x = xx2,
y = yy2)
library(ggplot2)
library(gridExtra)
Edit - Provide a plot with no background with theme_bw()
g1 <- ggplot(d1, aes(x=x, y = y)) + geom_point() +
labs(title = 'First Period, All', x='', y='') +
theme_bw()
g2 <- ggplot(d1, aes(x=x, y = y)) + geom_point() +
scale_x_continuous(limits= c(-2, 4)) +
scale_y_continuous(limits= c(-2, 4)) +
labs(title = 'First Period, Small', , x='', y='') +
theme_bw()
g3 <- ggplot(d2, aes(x=x, y = y)) + geom_point() +
labs(title = 'Second Period, All', x='', y='') +
theme_bw()
g4 <- ggplot(d2, aes(x=x, y = y)) + geom_point() +
scale_x_continuous(limits= c(-2, 4)) +
scale_y_continuous(limits= c(-2, 4)) +
labs(title = 'Second Period, Small', x='', y='') +
theme_bw()
grid.arrange(g1, g2, g3, g4)