choroplethR：state_choropleth不再处理AK和HI。

使用ggplot2包的geom_sf函数来制作州区域地图，然后使用Alaska和Hawaii特别的包含在内的数据集。

下面是一个示例代码：

library(ggplot2)
library(ggpubr)
library(sf)

# 读取美国州界地理数据
us_states <- st_read(system.file("shape/nc.shp", package="sf"))

# 获取Alaska和Hawaii数据
ak_hi <- data.frame(state=c("Alaska", "Hawaii"), lon=c(-152, -157), lat=c(63, 21))

# 合并地理数据
us_states <- rbind(us_states, ak_hi)

# 创建平均薪资数据
salary <- data.frame(state=c("Alaska", "Hawaii", "North Carolina"), salary=c(76016, 79839, 60531))

# 绘制地图
ggplot() +
  geom_sf(data=us_states, aes(fill=region)) +
  scale_fill_manual(values=brewer.pal(9,"YlGnBu")) +
  geom_text(data=salary, aes(x=lon, y=lat, label=salary), size=3, color="white")

以上代码将在地图上显示包括Alaska和Hawaii在内的所有美国州的平均工资数据。