R语言ggplot2绘制居民消费气泡图

创建数据框

data <- data.frame(
  指标 = c('2023年5月', '2023年4月', '2023年3月', '2023年2月', '2023年1月'),
  居民消费 = c(100.8, 101, 101.3, 101.5, 102.1),
  食品烟酒类居民消费 = c(102.2, 102.4, 102.9, 103.4, 104.7),
  衣着类居民消费 = c(100.8, 100.7, 100.7, 100.6, 100.5),
  居住类居民消费 = c(99.8, 99.8, 99.8, 99.9, 99.9),
  生活用品及服务类居民消费 = c(100.7, 100.9, 101.2, 101.5, 101.6),
  交通和通信类居民消费 = c(98.6, 99.2, 100.1, 101, 102),
  教育文化和娱乐类居民 = c(101.7, 101.7, 101.7, 101.8, 102.4),
  医疗保健类居民消费 = c(101, 100.9, 100.9, 100.9, 100.8),
  其他用品和服务类居民消费 = c(103, 102.9, 102.7, 102.9, 103.1)
)

创建气泡图

ggplot(data, aes(x = 指标, y = 居民消费, size = 居民消费, color = 指标)) +
  geom_point() +
  scale_color_manual(values = c('#F8766D', '#7CAE00', '#00BFC4', '#C77CFF', '#619CFF')) +
  labs(title = '居民消费气泡图', x = '指标', y = '居民消费')

代码解释:

• 使用ggplot(data, aes(...)) 创建一个基础的ggplot图表，并指定x轴、y轴、气泡大小和颜色映射。
• geom_point() 添加气泡点图层。
• scale_color_manual(values = c(...)) 手动设置颜色，可以根据需要修改颜色值。
• labs(title = ..., x = ..., y = ...) 设置图表标题和坐标轴标签。

通过这种方式，我们可以创建具有不同颜色区分的居民消费气泡图，直观地展示不同消费类别在不同时间点的变化趋势。