方法一：
library(reshape2)
library(dplyr)
Test <- reshape2::dcast(table_name, fields1+fields2+fields3+...~fieldsA, value.var = "fieldsB")
解释：table_name 表名
fields1+fields2+fields3 选择你想看的字段
fieldsA 依据哪一个字段拉横数据，分组依据。分类变量
fieldsB 拉横后，显示哪个字段的值。
例1
查看不同的NUM，SKU下的ABC价格。
Test <- reshape2::dcast(table_name, NUM+SKU ~ TYPE, value.var = "PRICE")
结果为：
结果1
方法二：
dplyr包中的case_when
