R 如何转换此数据帧？

我有这个数据框：

  total agricultura extrativas transformadoras eletricidade construcao comercio alojamentoResta~ transportesArma~ gender
  <dbl>       <dbl>      <dbl>           <dbl>        <dbl>      <dbl>    <dbl>            <dbl>            <dbl>      <chr>
1 1274         928.      1394.           1232.        2994.       987.    1170.             893.            1405.      Male.
2 1047.        820.      1479.            926.        2766.      1052     1017.             765             1516.      Female.

但是我有很多问题，也就是做一个向量，把名字（df）叠在一起，使它的大小加倍。我试过：

aux1 <- cbind(names(df),names(df))

---

aux1我们也可以使用
melt
from
data.table

library(data.table)
melt(setDT(df), id.var = 'Gender')

使用pivot_的时间更长，除了在“完美”上！非常感谢。如果这达到了目的，也请接受。很高兴得到帮助。
aux1 <- cbind(names(df),names(df))

library(tidyverse)

df %>% pivot_longer(cols = -Gender, names_to = "sector", values_to = "value")

library(data.table)
melt(setDT(df), id.var = 'Gender')