remove duplicate melt in r