Gallery.rpy -

# Load necessary libraries library(ggplot2) library(gridExtra)

# Create a first plot p1 <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() + labs(title = "Scatterplot of MPG vs. WT") gallery.rpy

# Create a third plot p3 <- ggplot(mtcars, aes(x = wt, fill = factor(cyl))) + geom_histogram(bins = 5, alpha = 0.5, position = "dodge") + labs(title = "Histogram of WT by Cylinders") aes(x = wt

# Arrange plots in a grid grid.arrange(p1, p2, p3, p4, nrow = 2, ncol = 2) This example creates four plots and arranges them in a 2x2 grid. You can adjust the nrow and ncol arguments in grid.arrange() to suit your desired gallery layout. alpha = 0.5