R画包含次坐标的图 plot(）

Posted 2021-03-19 wanghaolu

1.画图

数据：

Date <- c(0,0.2,0.4,0.6,0.8,1)
Agents<-c(0,1,2,3,4,5,6,7,8,9,10)
cost_S<-c(11500,11750,12000,12250,12500,12750,13000,13250,13500,13750,14000)
Full_Time<- c(10,9,9,8,7,7)
Part_Time<- c(0,2,4,6,8,9)
Cost<-c(13800,13140,12540,12120,11940,11820)
df1 <- data.frame(Date=Date, Full_Time=Full_Time,Part_Time=Part_Time,Cost=Cost,Agents=Agents,cost_S=cost_S)

par(mar=c(4,4,4,4))  #设置图的边缘空白距离
par(mfrow=c(2,2)) #组合图：以2X2的组合
par(new=T) #在原来的图上继续画

plot(x = df1$Date, y = df1$Full_Time, type = "o",cex = 1.5, lwd = 1.5,
  pch = 15, lty = 1,main=‘p=100%,cp=30‘,ylab=‘人数‘,xlab=‘比例‘,xlim = c(0,1), ylim = c(0, 10))
#先画第一个图
#type：图的类型
#lty：线型
#pch:数据标记，取值范围：1-25
#main：标题
#cex:数据标记的大小
#lwd：线的粗细

#xlim,ylim:坐标轴范围

axis(2, at = seq(0, 10, 1))
 #设置坐标轴间距和范围，1代表横轴，2代表左边纵轴，3代表上面的边框，4代表右边纵轴

par(new=T)#在这个图上再画图

plot(x = df1$Date, y = df1$Part_Time, type = "o",
     cex = 1.5, lwd = 1.5,  pch = 17, lty = 1,yaxt="n",ylab="",xlab=‘‘)

#yaxt="n"：不显示y轴，也没有y轴的标签，给下一步做次坐标轴打基础

par(new=T)
plot(x = df1$Date, y = df1$Cost, type = "l", cex = 1.5, lwd = 1.5, lty = 2,
　　　　yaxt="n",ylab="",xaxt="n",xlab="",pch=1) 

axis(4,at = seq(11500, 14000, 250)) #把次坐标轴的刻度标上去

legend("right", inset = 0.03, c("全职人员",‘兼职人员‘,‘成本‘), lty = c(1,1,2), pch = c(15,17,27),cex=0.75)
#图例，前两个参数表示位置，pch的参数取一个超出25的数，就没有数据标记了，会有警告
#cex 比例

mtext(‘成本‘,side=4,line=3)
#在图上写字，side表示哪一边，line表示与轴的距离

dev.off()
dev.new()
#图不显示的时候，用这个清除一下，就可以显示了

设置

par(mfrow=c(2,2))时，画了一个图的效果

 

 待解决问题：输出的图不够清楚，输出pdf清楚，但是pdf不能输出中文，网上的办法用了没用，图都出不来了