#rshape2#活动代码  城市#1    上海#1    广州#1    深圳#2    上海#2    北京#2    台湾#3    上海#3    江西#4    沈阳#4    广州data <- read.csv("C:\\Users\\Jennifer\\Desktop\\11.csv",header=T,sep="\t")head(data)y <- melt(data,id=c("活动代码"),measure=c("城市"),na.rm=T)yz <- dcast(y,活动代码~value)zz <- dcast(y,活动代码~value,fill="")#value with which to fill in structural missingsz