Question

我有以下代码，我可以绘制的只是“红色”行（失业）。如果有人能提供帮助，那就太好了。谢谢你：

library(lubridate) 

data<-read.csv("BLSdata.csv") 
summary(data) 

data$DATE <- as.date(mdy(data$Date)) 
class(data$DATE) 
data$DATE <- mdy(as.character(data$Date)) 
data$DATE 


plot(data$DATE, data$Unemployed, type="l", lwd=2, col="red",xlab="Year", 
     ylab="Jobs", ylim=c(6000,17000)) 

points(data$DATE, data$Employed, type="l", lwd=2, col="green")

目标：我试图用一个轴绘制图形上的绿线和红线。

Answer 1

您希望使用lines()代替points()，但这并不重要，因为您输入了type="l"。主要的是强制范围包括两组数据：

plot(data$DATE, data$Unemployed, type="l", lwd=2, col="red",xlab="Year", 
     ylab="Jobs", ylim=range(c(data$Unemployed,data$Employed))) 

lines(data$DATE, data$Employed, lwd=2, col="green")

如何使用点（）在R中绘制具有不同范围的两个不同线图

1 个答案: