Turn Specific Observation and Row into Column in R

Question

I have data with rows and columns similar to the below example and want to basically convert every other row into a column. However, I also want to extract each specific obs