R install.packages("ggplot2") R library(ggplot2) R data <- data.frame( month = c(1, 2, 3, 4, 5, 6), sales = c(100, 150, 200, 180, 220, 250) ) R p <- ggplot(data, aes(x = month)) R p <- p + geom_line(aes(y = sales)) R R p <- p + theme( plot.title = element_text(color = "blue", size = 14, face = "bold"), axis.title = element_text(color = "red", size = 12) ) R print(p) ggsave("line_plot.png", plot = p, width = 8, height = 6)