一个图中的2个向量[重复]

Question

这个问题在这里已有答案：

• Plotting multiple curves same graph and same scale 5个答案

我花了很长时间试图找出一些我觉得很容易的东西。我有三个向量（或者如果你想把它变成一个数据帧）

date <- c("Q1","Q2","Q3","Q4")
group1 <- c(12,13,16,11)
group2 <- c(9,11,10,9)

现在我想创建一个图表，其中日期沿x轴，两条水平线代表2组。对于一些上下文，我做了一个差异差异回归，并希望显示事件周围治疗组和对照组的平均值。我正在使用面板数据并且已经计算了每个时间点两组的平均值。这是我拍摄的一张照片，所以你可以看到我想要的样子。

Answer 1

# plot solid line, set plot size, but omit axes
plot(x=seq(date), y=group1, type="l", lty=1, ylim=c(5,20),
     axes=F, bty="n", xaxs="i", yaxs="i", main="My Title",
     xlab="", ylab="Total Risk-Based Capital Ratio")

# plot dashed line
lines(x=seq(date), y=group2, lty=2)

# add axes
axis(side=1, labels=date, at=seq(date))
axis(side=2, at=seq(5,20,3), las=1)

# add vertical red line
abline(v=2, col="red")

# add legend
par(xpd=TRUE)
legend(x=1.5, y=2, legend=c("solid", "dashed"), lty=1:2, box.lty=0, ncol=2)