R： 更长的透视数据帧，列名为单个列，行为不同列

sapply调用的输出返回class: [1] "matrix" "array"，这是我以前从未见过的。不过，将其转换为数据帧可以提供我想要的“宽”格式。例如：

df<-structure(list(`04232395` = c("22.8", "0", NA, NA), `04232200` = c("39.4", 
"2024", "47.5506849315069", "1977-09-30 to 2019-03-27 , 1976-11-30 to 1977-03-01 , 1975-11-30 to 1976-03-01 , NA"
), `04232185` = c(NA, "0", NA, NA), `04232165` = c(NA, "0", NA, 
NA), `01515600` = c("0.93", "0", NA, NA), `01515580` = c("4.77", 
"0", NA, NA), `01515600.1` = c("0.93", "0", NA, NA), `01515580.1` = c("4.77", 
"0", NA, NA), `01515720` = c("4.44", "0", NA, NA), `01515790` = c("1.32", 
"0", NA, NA)), row.names = c(NA, -4L), class = "data.frame")

我希望此数据帧的列名在一行中，而旧数据帧中每列的4行在新数据帧中是4个单独的列。我尝试了：

df_new<-data.frame(site = colnames(df), DA = df[1,], Q = df[2,], POR = df[3,], Q_gaps = df[4,])

但这是不对的。

搜索这个问题并不能返回我正在查找的内容，所以这可能会在其他地方重复，我只是不知道如何提问。