|
# 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") |