R: Применяя функцию к каждому элементу dataframe

Question

Например, позволяет использовать следующую dataframe, состоящую из строк:

df <- data.frame(X = LETTERS[1:3], Y = LETTERS[4:6], row.names = c("r1", "r2", "r3"), stringsAsFactors = F) 

> df 
    X Y 
r1 A D 
r2 B E 
r3 C F 

Теперь я хотел бы применить эту функцию к каждому элементу dataframe:

my_f <- function(x) paste0(x, x) 

Который должен произвести этот результат:

>df 
    X Y 
r1 AA DD 
r2 BB EE 
r3 CC FF 

Я использую вложенным для петель:

for (i in 1:dim(df)[1]) { 
    for (j in 1:dim(df)[2]) { 
     df[i, j] = my_f(df[i, j]) 
    } 
} 

Интересно, существует ли более короткий/быстрый способ достижения такого же результата? Обратите внимание, что вывод должен быть файловой рамкой с именами одинаковых строк и колонок.

Answer 1

Мы можем использовать strrep путем обхода столбцов набора данных с помощью lapply. [] восстановит ту же структуру data.frame.

df[] <- lapply(df, strrep,2) 
df 
# X Y 
#r1 AA DD 
#r2 BB EE 
#r3 CC FF 

Answer 2

У вас уже есть ответ.

Вы можете apply вашу функцию my_f для каждого элемента построчно (margin = 1)

data.frame(t(apply(df, 1,my_f))) 

# X1 X2 
#r1 AA DD 
#r2 BB EE 
#r3 CC FF 

И как @ m0h3n предложил, вы можете избежать t ranspose шаг, применяя функцию столбцам (margin=2)

data.frame(apply(df, 2,my_f)) 

Answer 3

Предлагаемое решение без применения функции:

df[] <- my_f(as.matrix(df)) 

Answer 4

Использование для петель

for(i in 1:nrow(df)){ 
    df$X[i] <- paste0(df$X[i],df$X[i],collapse = "") 
    df$Y[i] <- paste0(df$Y[i],df$Y[i],collapse = "") 
} 

print(df) 

    X Y 
r1 AA DD 
r2 BB EE 
r3 CC FF