用ggplot2实现基于FIPS码的县填写

library(ggplot2)

# 读取包含FIPS码和填写数据的数据集，假设数据集名为"county_data"
county_data <- read.csv("path/to/county_data.csv")

# 使用geom_polygon函数创建基础地图图层
# 假设数据集中的"FIPS"列存储了FIPS码，"填写数据"列存储了填写数据
map <- ggplot(county_data) +
  geom_polygon(aes(x = long, y = lat, group = group), fill = "white", color = "black")

# 使用geom_polygon函数在基础地图图层上添加填写数据
map <- map + geom_polygon(aes(fill = 填写数据), color = "black")

# 使用scale_fill_gradient函数设置填写数据的配色方案
map <- map + scale_fill_gradient(low = "blue", high = "red")

# 使用labs函数添加标题和注释
map <- map + labs(title = "基于FIPS码的县填写", fill = "填写数据")

# 使用print函数展示图像
print(map)

# 使用ggsave函数保存图像，假设保存为"county_fill.png"
ggsave("path/to/county_fill.png", width = 10, height = 8, dpi = 300)