Сложное изменение формы

Я хочу изменить свой фрейм данных с длинного на широкий формат, и я теряю некоторые данные, которые я хотел бы сохранить. Для следующего примера: df <- data.frame(Par1 = unlist(strsplit("AABBCCC","")), Par2 = unlist(strsplit("DDEEFFF","")), ParD ...