IfElse команда с помощью COLNAMES в R

Question

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

< df1 -data.frame (с (0,0,0), С (0,1,0), C (1,0,0))

имена (DF1) < -c ("А", "в", "с")

A B C 
1 0 0 1 
2 0 1 0 
3 0 0 0 

Я хотел бы заменить "1" значения в df1 для имен столбцов, связанных с этими значениями, для создания кадра данных, который выглядит как thi с:

A B C 
1 0 0 C 
2 0 B 0 
3 0 0 0 

Я попытался следующий код, но он произвел неправильный dataframe (перечислены ниже):

data.frame (IfElse (DF == 1, COLNAMES (DF), 0))

A B C 
1 0 0 A 
2 0 B 0 
3 0 0 0 

Любая помощь будет принята с благодарностью.

Answer 1

Что происходит, так это то, что ifelse работает один раз за столбец, а когда дело доходит до замены элемента, он принимает n-й элемент colnames. Но так как ifelse запускается по каждому столбцу за раз, индексирование colnames заканчивается совпадением с индексом строки, а не индексом столбца. Чтобы получить правильное решение, ifelse необходимо запустить в векторах строк, а не в векторах столбцов.

Вот одно решение, в котором используется функция t (транспонирование).

t(ifelse(t(df1)==1,names(df1),0)) 
    A B C 
[1,] "0" "0" "C" 
[2,] "0" "B" "0" 
[3,] "0" "0" "0"