いつも縦横変換を忘れてしまうので、メモ
name.data <- c(2000, 2001, 2002)
age.data <- c(124, 1324, 542)
data <- data.frame(year=name.data, value=age.data)
data_wider <- data %>%
pivot_wider(names_from = "year", values_from = "value")
data_wider <- as.data.frame(data_wider)
data_wider_longer <- data_wider %>%
pivot_longer(col = -country, names_to = "year", values_to = "amount")