在我的时间序列图中添加第二行时遇到问题

我有一个由 3 列（dates、unemployment rate和seasonally adjusted unemployment rate）组成的数据集，我试图在时间序列图中绘制它。但是，我只能让它为unemployment rate或工作seasonally adjusted unemployment rate，并且无法同时在同一情节上获得两者。

我尝试使用不同的方法，例如 ggplot 和从 SO 上找到的答案中的绘图，但是我没有成功。

到目前为止，这是我的代码，其中绘图数据表示存储我的数据的数据框。

pd <- plotdata
Pd <- ts(pd[,2], frequency = 12, start = 2000)
plot(as.xts(Pd), type="l", col="red", major.format = "%b-%y", ylab="Unemployment Rate",
     main= "Unemployment Rate over Time")
lines(ts(pd[,3]), type = "l", col = "blue")

预期结果将是带有 2 条线的图形。但是，'lines' 似乎没有添加额外的行，如果我尝试使用 pd 而不是 pd[,2] 或 pd[,3] 生成时间序列，它会造成混乱，看起来与我正在寻找的完全不同为了。谢谢