pivot_widerの後でNAを削除する方法

まず、以下のようなデータフレームがあるとします。

# サンプルデータフレームの作成
df <- data.frame(
  ID = c(1, 2, 3, 4),
  Category = c("A", "B", "A", "B"),
  Value = c(10, NA, 20, 30)
)

このデータフレームをpivot_wider関数を使用して変換します。

# pivot_widerを使用してデータを変換
library(tidyr)
df_wide <- df %>% pivot_wider(names_from = Category, values_from = Value)

データフレームdf_wideは以下のようになります。

# A tibble: 4 x 3
     ID     A     B
  <dbl> <dbl> <dbl>
1     1    10    NA
2     2    NA    NA
3     3    20    NA
4     4    NA    30

この時点で、NAを削除するために、drop_na関数を使用します。

# NAを削除
df_clean <- drop_na(df_wide)

データフレームdf_cleanは以下のようになります。

# A tibble: 1 x 3
     ID     A     B
  <dbl> <dbl> <dbl>
1     1    10    NA

以上のようにして、pivot_wider関数の後にNAを削除する方法を示しました。