Here is the complete code for the solution:

Mastering Tidyr's Spread Function: Overcoming Variable Selection Challenges

How to Add Unique Row Identifiers to Grouped Long Data Using dplyr