ggplot2优雅绘制轨迹趋势散点

欢迎关注R语言数据分析指南

❝

本节来介绍如何使用使用ggplot2来绘制带有轨迹的散点图。整张图均使用R代码进行绘制，「数据+代码已经上传2023VIP群，加群的观众老爷请自行下载」

❞

❝

有需要学习个性化数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」购买「2023年度会员」 初始价格99元，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码；按照往年数据小编年产出约在150+以上

❞

购买后微信发小编订单截图即邀请进新的会员交流群，小编的文档为按年售卖，只包含当年度的「除系列课程外」的文档，有需要往年文档的朋友也可下单购买，需要了解更多信息的朋友欢迎交流咨询，「添加小编微信请备注，以提高沟通效率」

加载R包

library(tidyverse)
library(ggforce)
# install.packages("janitor")
library(janitor)

导入数据

# 读取 age.txt 文件，并将列名变为小写字母形式
age <- read_csv("age.txt") %>% janitor::clean_names()

数据清洗

# 创建新的数据框 age_new，选取前20行数据，并新增一列 median_age_2，计算方法是 median_age - difference
age_new <- age %>%  head(20) %>% mutate(median_age_2 = median_age - difference)

数据可视化

age_new %>% ggplot() +
  ggforce::geom_link(aes(x = median_age,y = reorder(name, -index), # 绘制线段，x轴为median_age，y轴为name（按index从大到小排序）
      xend = median_age_2,yend = name, # xend为median_age_2，yend为name
      size = after_stat(index), # 线段的宽度，按照index的值来设置
      alpha = after_stat(index)),color = "#709AE1FF") + # 线段的颜色和透明度
  geom_point( # 绘制点
    aes(x = median_age_2, y = name), # x轴为median_age_2，y轴为name
    color = "#709AE1FF",shape = 21,size = 6,fill = "#F3F3F3") + # 点的颜色、形状、大小和填充色
  geom_vline(xintercept = 26.3, linetype = "dashed") + # 绘制虚线，x轴截距为26.3
  geom_vline(xintercept = 28, linetype = "dashed") + # 绘制虚线，x轴截距为28
  geom_text( # 绘制文本标签
    data = data.frame(x = 26.4, y = 10,label = "Median 2006-10"), # 文本标签的位置和内容
    mapping = aes(x = x, y = y, label = label), # 映射x轴、y轴和标签内容
    inherit.aes = FALSE,size = 3,angle = 90,face="bold") + # 文本标签的大小、旋转角度和字体样式
  geom_text(data = data.frame(x = 28.1, y = 12,
                      label = "Median 2015-19"),
    mapping = aes(x = x, y = y, label = label),
    inherit.aes = FALSE,size = 3,angle = 90,face="bold") + # 第二个文本标签的位置、内容和样式
  theme_classic()+ # 使用经典主题
  theme(
    legend.position = "none", # 不显示图例
    panel.grid.major.x = element_blank(), # 不显示x轴的网格线
    panel.grid.minor = element_blank(), # 不显示y轴的网格线
    axis.text = element_text(size = 7.7,face="bold"), # 坐标轴标签的字体大小和样式
    axis.title.y = element_blank(),
    axis.title.x = element_text(size = 9))

❝

可以看到非常简单的一个小例子那么本节介绍到此结束，喜欢的观众老爷欢迎分享转发。有学习需求者欢迎到小编「淘宝店铺 R语言数据分析指南」 购买小编2023年的VIP文档，已有不少朋友学以至用用到了论文当中，「加小编微信请备注信息及来意，无需要请勿扰」

❞

小编微信

关注下方公众号下回更新不迷路

往期精彩内容