如何在R中为组创建滞后变量?