將行轉換為列，然后使用 R 堆疊成單列

Question

我有一個數據數據框，我需要將其轉換為用於小組研究。 我想將我的行轉換為列，然后將列堆疊成一列。 我目前的數據：

STATE    1970   1971   1972   1973...2018
State-A  X      X      X      X       X
State-B  X      X      X      X       X
State-C  X      X      X      X       X

我需要的：

Year   State  Data
1970    A      X
1971    A      X
...
2018    A      X
1970    B      X
1971    B      X

等等...

我已經嘗試過堆棧、融化和重塑功能都無濟於事。 我還嘗試列出我的數據然后將其展平，這完全是一場災難。 任何幫助深表感謝！

Answer 1

我們可以使用tidyverse

library(dplyr)
library(tidyr)
df1 %>%
     pivot_longer(cols = -Year, values_to = 'Data') %>% 
    c
# A tibble: 12 x 3
#   Year  State Data 
#   <chr> <chr> <chr>
# 1 1970  A     X    
# 2 1971  A     X    
# 3 1972  A     X    
# 4 1973  A     X    
# 5 1970  B     X    
# 6 1971  B     X    
# 7 1972  B     X    
# 8 1973  B     X    
# 9 1970  C     X    
#10 1971  C     X    
#11 1972  C     X    
#12 1973  C     X 

更新

使用更新的示例，更改是

df1 %>%
   pivot_longer(cols = -STATE, names_to = 'Year', values_to = 'Data')

如果tidyr軟件包版本tidyr舊，請使用gather

df1 %>%
    gather(name, Data, -Year) %>%
    separate(Year, into = c('other', 'State')) %>%
    select(Year = name, State, Data)

---

或者用melt

library(data.table)
melt(setDT(df1), id.var = 'Year', value.name = 'Data')[, 
    .(State = sub('.*-', '', Year), Year = variable, Data)]

數據

df1 <- structure(list(Year = c("State-A", "State-B", "State-C"), `1970` = c("X", 
"X", "X"), `1971` = c("X", "X", "X"), `1972` = c("X", "X", "X"
), `1973` = c("X", "X", "X")), class = "data.frame", row.names = c(NA, 
-3L))