透视数据框

如何解决透视数据框

任何将数据帧从这种格式转换为更长格式的建议都会很棒。 原始数据有 50 个名称和数百个 YearMonths。所以它应该是一个从宽到长的支点（？）。

df<-data.frame(name=c("Amber","Thomas","Stefan","Joe"),YM_202006=c(8,2,NA,7),YM_202007=c(NA,4,1,YM_202008=c(1,3,4))

改造前：

转换后/期望输出（df_new）：

使用此代码伪造所需的输出：

df_new<- data.frame(YM=c("YM_202006","YM_202007","YM_202008"),Amber=c(8,1),Thomas=c(2,2),Stefan=c(NA,3),Joe=c(7,7,4))

我尝试了很多方法都没有得到想要的输出。

希望有人能帮忙，提前谢谢！