1# Load thư viện tidyr
2library(tidyr)
3
4# Tạo dữ liệu mẫu
5data <- data.frame(
6  Student = c("Alice", "Bob", "Charlie"),
7  Math = c(90, 88, 76),
8  Science = c(85, 92, 78),
9  English = c(88, 84, 80)
10)

1# 1. Sử dụng gather để biến đổi dữ liệu từ dạng (wide) thành dạng dài (long)
2gathered_data <- gather(data, Subject, Score, -Student)
3
4# Kết quả sau khi sử dụng gather:
5#   Student Subject  Score
6# 1   Alice    Math     90
7# 2     Bob    Math     88
8# 3 Charlie    Math     76
9# 4   Alice Science     85
10# 5     Bob Science     92
11# 6 Charlie Science     78
12# 7   Alice English     88
13# 8     Bob English     84
14# 9 Charlie English     80

1# 2. Sử dụng spread để biến đổi dữ liệu từ dạng dài thành dạng rộng
2spread_data <- spread(gathered_data, Subject, Score)
3
4# Kết quả sau khi sử dụng spread:
5#   Student English Math Science
6# 1   Alice      88   90      85
7# 2     Bob      84   88      92
8# 3 Charlie      80   76      78

1# 3. Sử dụng separate để tách cột Student thành First Name và Last Name
2separated_data <- separate(data, Student, into = c("First Name", "Last Name"), sep = " ")
3
4# Kết quả sau khi sử dụng separate:
5#   First Name Last Name Math Science English
6# 1      Alice    Johnson   90      85      88
7# 2        Bob      Smith   88      92      84
8# 3    Charlie    Jackson   76      78      80

1# 4. Sử dụng unite để kết hợp cột First Name và Last Name thành cột Full Name
2united_data <- unite(separated_data, "Full Name", "First Name", "Last Name", sep = " ")
3
4# Kết quả sau khi sử dụng unite:
5#         Full Name Math Science English
6# 1   Alice Johnson   90      85      88
7# 2       Bob Smith   88      92      84
8# 3 Charlie Jackson   76      78      80