如何在R中编程分层随机抽样？

Question

我一直在尝试寻找一种有效的方法来对分层随机抽样进行编程，但是失败了。这就是我想要的以及到目前为止我所做的。 -二进制结果变量（移民和非移民）

这是我的手动方法的示例：

UITabBar

有没有一种更有效的方法可以利用我获得相同的输出？