如何在 R 中的 data.table 对象中将交替行中的值转换为负数?