CODEWITHSUNDEEP
rdataframestack
Expectation mean first moment
Expectation mean first moment

Reputation: 366

Stack columns in a data frame

Can someone help me stack the following data frame so that the as are on top of each other and also the 1s and 2s, preferably using a pipe and form a 3x4 dataframe

df <- rbind(data.frame(X1 = 'a', X2 = 1, X3 = 2, X4 = 'a', X5 = 1, X6 = 2), data.frame(X1 = 'a', X2 = 1, X3 = 2, X4 = 'a', X5 = 1, X6 = 2))

Thank you

Upvotes: 0

Views: 40

Answers (2)

Ronak Shah
Ronak Shah

Reputation: 388907

Using tidyverse -

library(dplyr)
library(tidyr)

df %>%
  mutate(across(.fns = as.character)) %>%
  pivot_longer(cols = everything()) %>%
  mutate(id = paste0('col', rep(1:3, length.out = n()))) %>%
  group_by(id) %>%
  mutate(name = row_number()) %>%
  pivot_wider(names_from = id, values_from = value) %>%
  select(-name)

#  col1  col2  col3 
#  <chr> <chr> <chr>
#1 a     1     2    
#2 a     1     2    
#3 a     1     2    
#4 a     1     2

Upvotes: 0

Wimpel
Wimpel

Reputation: 27732

Here is a data.table solution...

library(data.table)
cols <- 3
# Split df to chuncks of 3 (=ncol) columns
L <- split.default(df, f = cols:(ncol(df) + 2) %/% cols)
# Rowbind, ignore columns names
data.table::rbindlist(L, use.names = FALSE)
#    X1 X2 X3
# 1:  a  1  2
# 2:  a  1  2
# 3:  a  1  2
# 4:  a  1  2

Upvotes: 2

Related Questions