001、
dat <- data.frame(a = 4:1,
b = 1:4,
c = 11:14) ## 测试数据框
dat <- as.matrix(dat) ## 将数据框转换为矩阵
dat
c(dat) ## 按列将矩阵转换为一行数据
c(t(dat)) ## 按行将矩阵转换为一行数据