melt(data,id.vars=c(),measure.vars=(),variable.name="",value.name="")
melt(muying3,id.vars = "采購(gòu)員", measure.vars =c("北京在庫(kù)庫(kù)存","上海在庫(kù)庫(kù)存","廣州在庫(kù)庫(kù)存","成都在庫(kù)庫(kù)存","武漢在庫(kù)庫(kù)存","沈陽(yáng)在庫(kù)庫(kù)存","其它機(jī)構(gòu)庫(kù)存"),variable.name = "倉(cāng)庫(kù)",value.name="合計(jì)總庫(kù)存" )
# "muying3$采購(gòu)員" 是錯(cuò)誤格式
dcast(data, formula, fun.aggregate = NULL, ..., margins = NULL,subset = NULL, fill = NULL, drop = TRUE value.var = guess_value(data)
dcast(data2,采購(gòu)員~倉(cāng)庫(kù),value.var = "合計(jì)總庫(kù)存",fun.aggregate = sum)
#采購(gòu)員~倉(cāng)庫(kù) 不加引號(hào) value.var 要指定內(nèi)容
