下面是R语言中利用ggplot2进行点线图绘制的代码分享。
代码分为几个四个主要部分，1）把数据导入；2）调用安装包；3）利用ggplot2进行绘图；4）把画好的图片导出。
1.把数据导入的代码如下：
data1<-read.csv("C:/bilibili/shuju/huatu.csv",stringsAsFactors = FALSE)
本代码导入的数据为csv格式，数据导入后命名为data1。
2.调用绘图需要的安装包代码如下：
library(ggplot2)
3.进行绘图的代码如下：
其中，geom_point()中为绘制散点图的相关设置，geom_line()为折线图的相关设置。仅保留geom_point()时，图片仅有散点，仅保留geom_line()时，图片仅有折线。
ggplot(data=data1,aes(x=年份,y=单产))+
geom_point(size=2,shape=21,colour="red",alpha=0.5)+
geom_line(size=2,colour="red",fill="blue",alpha=0.5)+
theme(axis.line = element_line(colour = "black",linetype="solid",
size = 0.5))+
scale_y_continuous(limits=c(0,8000),breaks =seq(0,8000,by=2000),expand = c(0,0))+
scale_x_continuous(limits=c(1950,2020),breaks =seq(1950,2020,by=10))
4.图片导出的代码如下：
其中width设置导出图片的宽度，hieght设置到处图片的高度，dpi设置导出图片的分辨率。
ggsave(file="C:/bilibili/tupian/图1.png",plot=last_plot(),device=NULL,path=NULL,scale=1,width=10,height=6,dpi=600,limitsize=TRUE)
