применить определенную пользователем функцию к каждому элементу кадра данных

Question

Мне не удалось найти решение этого непростого вопроса в R. Как применить «пользовательскую» функцию к каждому элементу (ячейке) фреймворка с выводом цикла?

func <- function(cell){ 
     if (cell==1) return("hello") 
     else return ("bye") 
    } 

Пожалуйста, не пытайтесь сказать, что вы можете заменить 1 «привет» в вашей информационной кадре. Это всего лишь пример пользовательской функции на скаляре, но мы можем применить ее к каждому элементу. Функция может составлять несколько сотен строк кода. Я попытался приклеить и использовать, но не работал. Видимо, я чего-то не хватает. Заранее спасибо.

Answer 1

Вам нужно apply

посмотреть:

func <- function(cell){ 
    if (cell==1) return("hello") 
    else return ("bye") 
} 

df=data.frame(x=1:5,y=-2:2) 
apply(df,c(1,2),func) 

    x  y  
[1,] "hello" "bye" 
[2,] "bye" "bye" 
[3,] "bye" "bye" 
[4,] "bye" "hello" 
[5,] "bye" "bye"