Load necessary library library(ggplot2) # Define the initial velocity v0 <- 4 # mm/s # Create a sequence of time values from -1750 to 1000 seconds time_values <- seq(-1750, 1000, by = 1) # Calculate the corresponding distance values distance_values <- v0 * time_values # Create a data frame for plotting data <- data.frame(Time = time_values, Distance = distance_values) # Plotting ggplot(data, aes(x = Time, y = Distance)) + geom_line(color = "blue") + labs(title = "Distance as a Function of Time", x = "Time (seconds)", y = "Distance (mm)") + xlim(-1750, 1000) + theme_minimal()

wanna make agraph