如何在R中绘制人口增长率函数？

install.packages("ggplot2")
install.packages("dplyr")

library(ggplot2)
library(dplyr)

year <- c(2000, 2005, 2010, 2015, 2020)
population <- c(100, 120, 150, 180, 200)

data <- data.frame(year, population)

data <- data %>%
  mutate(growth_rate = (population - lag(population)) / lag(population) * 100)

ggplot(data, aes(x = year, y = growth_rate)) +
  geom_line() +
  xlab("Year") +
  ylab("Population Growth Rate") +
  ggtitle("Population Growth Rate Over Time")