stacking multiple columns into single column with single value in R

Question

ID Time  U1 U2 U3 U4
1  20     1  0  0  0 
2  20     0  1  0  0
3  20     0  0  1  0 
4  20     0  0  0  1

And I would need to keep it like:

ID Time   U 
1  20    U1 
2  20    U2 
3  20    U3 
4  20    U4

I tried with:

X_D <- as.data.frame(X)
X_new <- stack(X_D, select = -c(ID, Time))

You can simply use the `pivot_longer` function from tidyr package. — deschen, Nov 23 '20 at 10:50
Apart from that, please provide a reproducible exmaple, e.g. by doing sth. like `dput(head(YOURDATA))` in R and copying the result here. — deschen, Nov 23 '20 at 10:50
You can use something like `subset(cbind(df[c(1, 2)], stack(df[-c(1, 2)])), values == 1, select = c("ID", "Time", "ind"))`... — A5C1D2H2I1M1N2O1R2T1, Nov 26 '20 at 02:16

score 0 · Accepted Answer · answered Nov 23 '20 at 11:01

0

Try

library(dplyr)
df <- data.frame(ID = 1:4, Time = 20, U1 = c(1,0,0,0), U2 = c(0,1,0,0), U3 = c(0,0,1,0), U4 = c(0,0,0,1))

df %>% pivot_longer(cols = 3:6, names_to = "U") %>% 
  filter(value == 1) %>% 
  select(-value)

answered Nov 23 '20 at 11:01

Martin Schmelzer

23,283
6
73
98

stacking multiple columns into single column with single value in R

1 Answers1