Gallery.rpy
# 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")
# Create a second plot p2 <- ggplot(mtcars, aes(x = cyl, y = mpg)) + geom_bar(stat = "identity") + labs(title = "Barplot of Cylinders vs. MPG") 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") # Create a fourth plot p4 <- ggplot(mtcars,