使用ggplot2创建居民消费气泡图

library(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 = '居民消费')

代码说明:

1. 使用scale_color_manual()函数手动指定每个指标的颜色。
2. 颜色值使用十六进制颜色代码。

结果:

代码运行后将生成一个居民消费气泡图，每个指标使用不同的颜色进行区分，直观展示不同类别居民消费的变化趋势。