R语言绘制气泡图

气泡图是一种数据可视化图表。它通常在二维或三维空间中展示数据。两个变量决定气泡在平面或空间中的位置,第三个变量则以气泡大小呈现。能直观反映三个变量间关系,帮助用户快速理解数据特征和趋势,在数据分析和展示中广泛应用。

0x01 使用symbols()函数

一、函数用法及参数说明

symbols(x, y = NULL, circles, squares, rectangles, stars, thermometers, boxplots, inches = TRUE, add = FALSE, fg = par("col"), bg = NA, xlab = NULL, ylab = NULL, main = NULL, xlim = NULL, ylim = NULL,...)

1.x:表示横坐标位置。

2.y:表示纵坐标位置。

3.circles:圆形的半径。

4.squares:正方形的边长。

5.rectangles:绘制矩形,需搭配两列矩阵指定宽高,第一列表示宽度,第二列表示长度。

6.stars:绘制星形,搭配多列矩阵定义射线长度。

7.thermometers:绘制温度计,搭配三或四列矩阵定义宽高及填充比例。

8.boxplots:绘制箱线图,搭配五列矩阵定义宽高、须长及中位数位置比例。

9.inches:尺寸大小,取值为FLASE、TRUE或者一个给定的正数。

10.add:如果为TRUE,符号将添加到现有图形上,否则将创建一个新图形。

11.fg:表示符号的边框颜色。

12.bg:表示符号的填充颜色。

13.xlab:x轴标签。

14.ylab:y轴标签。

15.main:图形的主标题。

16.xlim:指定x轴范围。

17.ylim:指定y轴范围。

二、数据准备

这里作为方便演示,使用ggplot2包的diamonds数据集,它包含了超过 50,000 颗圆形切割钻石的价格和其他属性信息,可用于对钻石数据进行分析和可视化。

r 复制代码
#加载ggplot2包
library(ggplot2)
#由于数据中存在5w多条数据,这里提取十五条作为演示。
diamond <- diamonds[0:15,]

三、绘制基本的气泡图

r 复制代码
symbols(diamond$depth,diamond$price,circle = diamond$carat)

四、美化和调整

r 复制代码
# 绘制以钻石深度为横坐标、价格为纵坐标、克拉重量决定圆形大小的图形
symbols(diamond$depth,diamond$price,circle = diamond$carat,inches = 0.5,fg = "white",bg = "lightblue3",main = "part of diamonds",ylab = "price of diamond",xlab = "depth of diamond")
# 在对应的坐标位置添加钻石的切割等级文本
text(diamond$depth,diamond$price,diamond$cut,cex = 0.5)

0x02 使用ggplot2包

一、准备工作

r 复制代码
#加载ggplot2包
library(ggplot2)
#sample(sequence, n)函数从给定的序列中随机抽取n个元素。在这里,从 1 到 500000 的序列中随机抽取 30 个整数。
diamond <- diamonds[sample(1:50000,30),]

二、绘制基本的气泡图

使用geom_point()函数绘制气泡图。

r 复制代码
ggplot(diamond,aes(x = depth,y = price)) +
  geom_point(size = diamond$price/400)

三、美化与调整

r 复制代码
ggplot(diamond,aes(x = depth,y = price)) +
  geom_point(size = diamond$price/400,shape = 19,color = 7) +
  labs(title = "气泡图",x = "depth of diamond",y = "price of diamond") +
  theme(plot.title = element_text(hjust = 0.5))

也可以将某些参数设定为因子,然后对颜色进行区分。

r 复制代码
ggplot(diamond,aes(x = depth,y = price)) +
  geom_point(size = diamond$price/400,shape = 19,color = factor(diamond$depth)) +
  labs(title = "气泡图",x = "depth of diamond",y = "price of diamond") +
  theme(plot.title = element_text(hjust = 0.5))

也可以对颜色进行手动的设置。

r 复制代码
ggplot(diamond,aes(x = depth,y = price)) +
  geom_point(size = diamond$price/400,shape = 19,color = "grey") +
  annotate("text",x = diamond$depth,y = diamond$price,label = diamond$cut,fontface = "italic",colour = "darkred",size = 3)
#fontface = "italic"设置文本的字体样式为斜体。
相关推荐
bst@微胖子35 分钟前
Python高级语法之selenium
开发语言·python·selenium
王小义笔记40 分钟前
Postman如何流畅使用DeepSeek
开发语言·测试工具·lua·postman·deepseek
java1234_小锋3 小时前
一周学会Flask3 Python Web开发-request请求对象与url传参
开发语言·python·flask·flask3
流星白龙5 小时前
【C++】36.C++IO流
开发语言·c++
诚信爱国敬业友善6 小时前
常见排序方法的总结归类
开发语言·python·算法
The god of big data6 小时前
深入探索 DeepSeek 在数据分析与可视化中的应用
ai·数据挖掘·数据分析
wyg_0311137 小时前
用deepseek学大模型04-模型可视化与数据可视化
人工智能·机器学习·信息可视化
nbsaas-boot7 小时前
Go 自动升级依赖版本
开发语言·后端·golang
架构默片7 小时前
【JAVA工程师从0开始学AI】,第五步:Python类的“七十二变“——当Java的铠甲遇见Python的液态金属
java·开发语言·python
不只会拍照的程序猿8 小时前
从插入排序到希尔排序
java·开发语言·数据结构·算法·排序算法