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

使用R语言的ggplot2库可以方便地创建居民消费气泡图，展示不同消费类别在不同月份的消费水平变化趋势。

1. 创建数据框

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)
)

2. 创建气泡图

ggplot(data, aes(x = 指标, y = 居民消费, size = 居民消费, color = 指标)) +
  geom_point() +
  labs(title = '居民消费气泡图', x = '指标', y = '居民消费')

3. 添加颜色

可以使用scale_color_manual函数来指定颜色，例如：

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

其中，scale_color_manual函数中的values参数可以指定颜色的代码。这里使用了五种不同的颜色。可以根据需要自行修改。

通过以上步骤，可以轻松创建出具有不同颜色区分的居民消费气泡图，直观地展示不同消费类别在不同月份的消费水平变化趋势。