其他
R可视化——ggplot2包绘制折线图
安装、加载包
rm(list=ls())#设置工作环境setwd("D:\\桌面\\基础图形绘制\\折线图")#安装包# install.packages("ggplot2")# install.packages("reshape2")# install.packages("ggprism")# install.packages("ggalt")#加载包library(ggplot2)library(reshape2)library(ggprism)library(ggalt)数据
#生成作图数据df <- data.frame( y1=c(2,5,6,7,8,6,7,10,4), y2=c(10,12,14,15,10,12,13,9,10), y3=c(7,8,9,6,4,8,9,3,6))#转换数据data=melt(df)data$x<-rep(c(1,2,3,4,5,6,7,8,9))#修改列名colnames(data)=c("group","y","x")绘图
1、基础绘图
p1<-ggplot(data, aes(x, y, group=group, color=group, shape=group,linetype=group))+ geom_point(size=2)+ geom_line(size=1)p12、修改线形
p1+scale_linetype_manual(values = c(y1 = 4, y2 = 1, y3 = 3))3、自定义颜色
p1+scale_color_manual(values = c('#ec1c24','#fdbd10','#0066b2'))4、自定义点的形状
p1+scale_shape_manual(values = c(17,18,19))5、修改主题
p1+theme_bw()6、修改图例
p1+theme(legend.title = element_blank(),#图例标题去除 legend.text = element_text(family = 'serif'),#字体 legend.position = c(0.05,0.9),#位置 legend.direction = "vertical")#水平或垂直7、使得折线趋于平滑(ggalt包中的geom_xspline()函数)
ggplot(data, aes(x, y, group=group, color=group, shape=group))+ geom_point(size=3)+ geom_xspline(spline_shape = -0.3,size=1)绘图模板
ggplot(data, aes(x, y, group=group, color=group, shape=group,linetype=group))+ geom_point(size=3)+#散点 geom_xspline(spline_shape = -0.3,size=1)+#曲线平滑 scale_color_manual(values = c('#ec1c24','#fdbd10','#0066b2'))+#自定义颜色 theme_prism(palette = "candy_soft",#主题设置 base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ theme(legend.title = element_blank(),#图例标题去除 legend.text = element_text(family = 'serif'),#字体 legend.position = c(0.9,0.9),#位置 legend.direction = "vertical")+#水平或垂直 labs(title = "折线图", # 定义主标题 subtitle = "XXXXXXX", # 定义子标题 x = "XXXXX", # 定义x轴文本 y = "XXXXX")# 定义y轴文本爱我请给我好看!