R语言 如何将宽数据中某几列一并转换为长数据？

举个例子，我想保持ID和VISIT不动，但是把CLASS、MEDICINE、DAY改成长数据的样子，比如ID为7的样本就变成
ID VISIT CLASS MEDICINE DAY
7 6M Beta Blockers lopressor 2
7 6M Ace Inhibitor lisinopril 2
7 12M Beta Blockers lopressor 2
7 12M Ace Inhibitor lisinopril 2
……
原数据如图

melt好像只能处理一列数据，像这样应该怎么做呢？有人解答吗