# 导入 ggplot2 包
library(ggplot2)
# 创建示例数据
data <- data.frame(category = c("A", "B", "C", "D", "E"),
x = c(1, 2, 3, 4, 5), # x 坐标
y = c(2, 3, 1, 5, 4), # y 坐标
size = c(10, 5, 8, 3, 12) # 气泡大小
)
# 创建气泡图
ggplot(data, aes(x = x, y = y, size = size, color = category)) +
geom_point() + # 添加点图层
scale_size(range = c(3, 10)) + # 设置气泡大小范围
scale_color_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "yellow", "E" = "yellow")) + # 自定义颜色
labs(x = "X轴标签", y = "Y轴标签", title = "气泡图示例") # 添加标签和标题
黄色背景是在气泡图灰白图代码基础上增加的代码
附图