我用reshape2包融合了一个数据框，如图。如何对第三列value进行赋值，令偶尔=1，有时=2，经常=3，持续=4。求助大神给予代码。