R使用spread()从长格式更改为宽格式