这种图该用R或stata可以画吗？求代码

这种图该用R或stata可以画吗？求代码。简单的替代效应即可。

excel不是也可以吗？

貌似无法一下子把所有的线条都画出来。