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"设置文本的字体样式为斜体。
相关推荐
源猿人2 天前
企业级文件浏览系统的Vue实现:架构设计与最佳实践
前端·javascript·数据可视化
侃侃_天下2 天前
最终的信号类
开发语言·c++·算法
echoarts2 天前
Rayon Rust中的数据并行库入门教程
开发语言·其他·算法·rust
Aomnitrix2 天前
知识管理新范式——cpolar+Wiki.js打造企业级分布式知识库
开发语言·javascript·分布式
每天回答3个问题2 天前
UE5C++编译遇到MSB3073
开发语言·c++·ue5
伍哥的传说2 天前
Vite Plugin PWA – 零配置构建现代渐进式Web应用
开发语言·前端·javascript·web app·pwa·service worker·workbox
小莞尔2 天前
【51单片机】【protues仿真】 基于51单片机八路抢答器系统
c语言·开发语言·单片机·嵌入式硬件·51单片机
我是菜鸟0713号2 天前
Qt 中 OPC UA 通讯实战
开发语言·qt
JCBP_2 天前
QT(4)
开发语言·汇编·c++·qt·算法
Brookty2 天前
【JavaEE】线程安全-内存可见性、指令全排序
java·开发语言·后端·java-ee·线程安全·内存可见性·指令重排序