Объединение логических столбцов в 1 с помощью r

Question

У меня есть набор данных, который выглядит следующим образом:

  X0.501_0.499.1 X0.400_0.600 X0.400_0.600.1 X1.Octanol X1.Propanol X2.Butanol X2.propanol X1.isobutanol
1         -39.91       -63.62         -53.14          1           0          0           0             0
2         -48.68       -73.45         -63.17          1           0          0           0             0
3         -57.89       -84.45         -73.99          1           0          0           0             0
4         -65.99       -92.61         -83.37          1           0          0           0             0
5         -72.62      -101.14         -91.33          1           0          0           0             0
6        -167.42      -263.80        -218.03          0           1          0           0             0

Я хотел бы объединить последние 5 столбцов в 1 результат должен выглядеть следующим образом:

  X0.501_0.499.1 X0.400_0.600 X0.400_0.600.1  Type 
1         -39.91       -63.62         -53.14  X1.Octanol          
2         -48.68       -73.45         -63.17  X1.Octanol           
3         -57.89       -84.45         -73.99  X1.Octanol           
4         -65.99       -92.61         -83.37  X1.Octanol           
5         -72.62      -101.14         -91.33  X1.Octanol           
6        -167.42      -263.80        -218.03  X1.Propanol          

Любой может предоставить мне с решением?

Answer 1

Мы можем использовать max.col, чтобы напрямую получить индекс столбца для каждой строки и заменить его именами столбцов набора данных

Type <- names(df1)[4:ncol(df1)][max.col(df1[4:ncol(df1)], 'first')]
df2 <- cbind(df1[1:3], Type = Type)
df2
#  X0.501_0.499.1 X0.400_0.600 X0.400_0.600.1        Type
#1         -39.91       -63.62         -53.14  X1.Octanol
#2         -48.68       -73.45         -63.17  X1.Octanol
#3         -57.89       -84.45         -73.99  X1.Octanol
#4         -65.99       -92.61         -83.37  X1.Octanol
#5         -72.62      -101.14         -91.33  X1.Octanol
#6        -167.42      -263.80        -218.03 X1.Propanol

data

df1 <- structure(list(X0.501_0.499.1 = c(-39.91, -48.68, -57.89, -65.99, 
-72.62, -167.42), X0.400_0.600 = c(-63.62, -73.45, -84.45, -92.61, 
-101.14, -263.8), X0.400_0.600.1 = c(-53.14, -63.17, -73.99, 
-83.37, -91.33, -218.03), X1.Octanol = c(1L, 1L, 1L, 1L, 1L, 
0L), X1.Propanol = c(0L, 0L, 0L, 0L, 0L, 1L), X2.Butanol = c(0L, 
0L, 0L, 0L, 0L, 0L), X2.propanol = c(0L, 0L, 0L, 0L, 0L, 0L), 
    X1.isobutanol = c(0L, 0L, 0L, 0L, 0L, 0L)),
    class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))

Answer 2

Вот еще одно базовое решение R, использующее матричное умножение для извлечения имени столбца:

dfout <- cbind(df[1:3],Type=names(u<-df[-(1:3)])[as.matrix(u) %*% t(t(1:ncol(u)))])

такое, что

> dfout
  X0.501_0.499.1 X0.400_0.600 X0.400_0.600.1        Type
1         -39.91       -63.62         -53.14  X1.Octanol
2         -48.68       -73.45         -63.17  X1.Octanol
3         -57.89       -84.45         -73.99  X1.Octanol
4         -65.99       -92.61         -83.37  X1.Octanol
5         -72.62      -101.14         -91.33  X1.Octanol
6        -167.42      -263.80        -218.03 X1.Propanol

Answer 3

Путь в обратном направлении:

data%>%pivot_longer(-c(1:3), names_to="Type")%>%filter(value==1)%>%select(-value)