r语言spread函数长转宽如何解决列值一样