R语言绘制棒棒糖图

ggplot2包绘制棒棒糖图

library(ggplot2)
# 创建数据框
city<-c("广东","江苏","山东","浙江","河南","四川","福建","湖北","湖南","上海","安徽","河北","北京","陕西","江西","辽宁","重庆","云南","广西","贵州","山西","内蒙古","天津","新疆","黑龙江","吉林","甘肃","海南","宁夏","青海","西藏")
gdp<-c(110761,102719,73129,64613,54997,48599,43904,43443,41781,38701,38681,36207,36103,26182,25692,25115,25003,24522,22157,17827,17652,17360,14084,13798,13699,12311,9017,5532,3921,3006,1903)
data1<-data.frame(city,gdp)

# 绘图
ggplot(data1, aes(x=city, y=gdp)) +
  geom_segment( aes(x=city, xend=city, y=1,