如何用 R 数据框列中的下一个位置出现的第一个非零替换零?