如何将此excel中的文字用r语言替换为数字，令偶尔=1，有时=2，经常=3，持续=4，并输出为数据框，跪求，谢谢了！