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