library(ggplot2) data <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10)) p <- ggplot(data, aes(x = x, y = y)) + geom_point(size = 3, color = "red") + ggtitle("Scatter Plot") + xlab("X") + ylab("Y") + theme_bw() print(p)