作业：各省历年网民规模

2.实验内容

2.1读入数据集：“(1)2002-2022年网民数量.csv”

library(tidyverse)
options(scipen = 10)

Sys.setlocale("LC_TIME", "English")

df1 <- read.csv("(1)2002-2022年网民数量.csv")
df1$日期 <- as.Date(paste0("01-", df1$时间), format = "%d-%b-%y")

(1)计算半年度网民数量增长率；

# 计算增长率
df1$增长率 <- diff(df1$网民数量.万人.) / lag(df1$网民数量.万人.) * 100

# 输出结果
head(df1,10)

(2)根据网民数量、网民数量增长率绘制双轴图，网民数量用柱状图表示，网民数量增长率用折线图表示；

# 绘制柱状图（网民数量）
barplot(df1$网民数量.万人., names.arg = df1$时间, col = "skyblue",