점()을 사용하여 서로 다른 범위의 두 개의 다른 선 그래프를 그리는 방법

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()을 사용하고 싶지만 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")