一图中有2个向量

Question

我花了很长时间试图找出一些我认为非常容易的东西。我有三个向量（或者如果要使其成为一个，则为一个数据帧）

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

现在，我想创建一个沿x轴具有日期的图表，并用两条水平线代表这两组。在某些情况下，我进行了差异差异回归，并希望显示事件周围治疗组和对照组的平均值。我正在使用面板数据，并且已经在每个时间点计算了两组的均值。这是我从我那里截取的镜头，因此您可以看到我想要它的外观。

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)