#初始化环境l################################################
#你将在代码里用到的包
packages = c("usmap","ggplot2","pacman","rio", "tidyverse","gridExtra")
#安装并加载你需要的包
package.check <- lapply(packages, FUN = function(x) {
if (!require(x, character.only = TRUE)) {
install.packages(x, dependencies = TRUE)
library(x, character.only = TRUE)
}
})
#########
#你的代码
#########
#开始大扫除#################################################
# 清除环境
rm(list = ls())
# 清除包以及删除所有的组件
p_unload(all)
# 清除控制台语句 或者 使用 ctrl+L
cat("\014")