把宽数据转换成长数据
→→→
## get data, it is wide data
data("selfesteem", package = "datarium")
# if you don't have package"datarium",should install it "install.packages("datarium")"
#
## Gather columns t1, t2 and t3 into long format
# Convert id and time into factor variables
selfesteem <- selfesteem %>%
gather(key = "time", value = "score", t1, t2, t3) %>%
convert_as_factor(id, time)