Unexpected input \ does not allow character identification in string

Question

I have the dataframe below

string<-"[\\"TV\\", \\"Hair dryer\\",\\"Dryer\\", \\"Heating\\", \\"Kitchen\\&