|  | # Import required libraries | 
        
          |  | library(ggplot2) | 
        
          |  |  | 
        
          |  | # Set seed for reproducibility | 
        
          |  | set.seed(123) | 
        
          |  |  | 
        
          |  | data <- read.csv('data.csv') | 
        
          |  | data$time <- as.Date(data$time) | 
        
          |  | data <- data[order(data$time), ] | 
        
          |  |  | 
        
          |  | #Plot | 
        
          |  | p <- ggplot(data = data) + | 
        
          |  | geom_point(aes(x = time, y = speed, color = visual), size = 1.5) + | 
        
          |  | geom_smooth(aes(x = time, y = speed), color = "white", method = 'loess') + | 
        
          |  | scale_x_date(date_breaks = "5 month") + | 
        
          |  | scale_y_continuous(breaks = round(seq(0, 10, by = 1),1)) + | 
        
          |  | scale_color_gradient(low = "blue", high = "red") + | 
        
          |  | labs(title = "lewis6991/gitsigns.nvim setup speed over time", | 
        
          |  | x = "Time", | 
        
          |  | y = "Time (ms)", | 
        
          |  | color = 'visual (%)') + | 
        
          |  | theme( | 
        
          |  | # plot.margin=grid::unit(c(0,0,0,0), "cm"), | 
        
          |  | plot.background = element_rect(fill = "black"), | 
        
          |  | panel.background = element_rect(fill = "black"), | 
        
          |  | panel.grid.major = element_line(color = "#4c4c4c"), | 
        
          |  | panel.grid.minor = element_blank(), | 
        
          |  | plot.title = element_text(colour = "white", hjust = 0.5, face = "bold"), | 
        
          |  | axis.title.x = element_text(colour = "white"), | 
        
          |  | axis.title.y = element_text(colour = "white"), | 
        
          |  | axis.text.x = element_text(colour = "white"), | 
        
          |  | axis.text.y = element_text(colour = "white"), | 
        
          |  | legend.position="none", | 
        
          |  | legend.background = element_rect(fill = "black"), | 
        
          |  | legend.text = element_text(colour = "white"), | 
        
          |  | plot.subtitle = element_text(color = "white"), | 
        
          |  | plot.caption = element_text(color = "white") | 
        
          |  | ) | 
        
          |  | # theme(aspect.ratio = 9 / 16) | 
        
          |  | ggsave("plot.png", plot = p, width = 10, height = 6, dpi = 300, bg = "black") |