【R语言】使用ggpubr包绘制折线图

ggpubr包简介

ggpubr包是一个用于数据可视化的R语言包。它建立在ggplot2包的基础上，使得数据可视化更加简单和灵活。它提供了一系列函数和工具，用于创建高质量的图形和图表。支持各种类型的图形，包括散点图、线图、柱状图、箱线图、饼图等。使用ggpubr包，可以轻松地自定义图形的外观，包括颜色、字体、标签、图例等。
此外，ggpubr包还提供了一些统计分析和数据处理的功能，如计算和可视化统计指标、绘制显著性标记、添加回归线和置信区间等。

作图需求

详细步骤

读入R包和所需文件

宽格式转长格式

使用ggline进行作图

作图美化

完整代码

library(ggpubr)
library(reshape2)
library(ggsci)
data = read.csv("~/Desktop/20231124 折线图/data.csv",header = T)
head(data)

data1=melt(data,id="X")
head(data1)
#data1$X

pdf("~/Desktop/20231124 折线图/line.pdf",height = 8,width = 8)
ggline(data1,
    x="X", y = "value", color = "variable")+
    labs(x="Year",y="Total Count",title = "Total Country Counts by Year")+#修改标题
    theme_classic2()+
    theme(legend.title = element_blank(),
    aspect.ratio      = 0.8,
    plot.title        = element_text(hjust = 0.5,size = 16,face = "bold"),
    axis.title        = element_text(size = 14,face = "bold"),
    legend.background = element_rect(colour = "black"),
    legend.position = c(0.1,0.8))+
    scale_color_aaas()#修改颜色
dev.off()