Reshape包

 

#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)
y
z <- dcast(y,活动代码~value)
z
z <- dcast(y,活动代码~value,fill="")#value with which to fill in structural missings
z