การจัดข้อมูลให้เป็นระเบียบด้วย tidyr

library(tidyr)
data <- data.frame(Name = c('Alice', 'Bob'), Jan = c(10, 15), Feb = c(20, 25))
data_long <- pivot_longer(data, cols = c('Jan', 'Feb'), names_to = 'Month', values_to = 'Score')

data_wide <- pivot_wider(data_long, names_from = 'Month', values_from = 'Score')

data <- data.frame(Name = c('Alice_Smith', 'Bob_Jones'))
data_separated <- separate(data, Name, into = c('FirstName', 'LastName'), sep = '_')

data_united <- unite(data_separated, FullName, FirstName, LastName, sep = ' ')

library(dplyr)
data_clean <- data %>% drop_na()

data_filled <- data %>% mutate(Score = replace_na(Score, 0))

data_tidy <- data %>% pivot_longer(cols = c('Jan', 'Feb'), names_to = 'Month', values_to = 'Score') %>% separate(Name, into = c('FirstName', 'LastName'), sep = '_') %>% unite(FullName, FirstName, LastName, sep = ' ')