-
apply()関数を使用する方法:
# データフレームの作成 df <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9)) # apply()関数を使用して最大値を持つセルを埋める df_filled <- apply(df, c(1, 2), function(x) ifelse(x == max(x, na.rm = TRUE), x, NA))
この例では、apply()関数を使用してデータフレームの各セルに対して関数を適用します。関数は各セルの値が最大値と等しい場合にはそのままの値を、そうでない場合にはNAを返します。
-
dplyrパッケージを使用する方法:
library(dplyr) # データフレームの作成 df <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9)) # mutate_all()関数を使用して最大値を持つセルを埋める df_filled <- df %>% mutate_all(~ifelse(. == max(., na.rm = TRUE), ., NA))
この例では、dplyrパッケージのmutate_all()関数を使用してデータフレームの各セルに対して関数を適用します。関数は各セルの値が最大値と等しい場合にはそのままの値を、そうでない場合にはNAを返します。