Gallery.rpy -

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

# Create a fourth plot p4 <- ggplot(mtcars, aes(x = wt, y = mpg, color = factor(gear))) + geom_point() + labs(title = "Scatterplot of MPG vs. WT by Gear") gallery.rpy

# Create a second plot p2 <- ggplot(mtcars, aes(x = cyl, y = mpg)) + geom_bar(stat = "identity") + labs(title = "Barplot of Cylinders vs. MPG") # Create a first plot p1 &lt;- ggplot(mtcars,