我写了一个代码，希望能帮到楼主。但是我不知道楼主的shiny app整体代码是怎样的，所以需要楼主看着怎么应用进去。在下列代码中只要把dat代替为shiny输入的一个数据data.frame就行，比如dat=input$dat, 或者dat=dat()之类的。

> ##define data frame
> dat <- data.frame(ID=c(1,1,4,5),SITE=c('beijing','shanghai','beijing','beijing'),Volume=c(1,1,4,5))
> dat
  ID     SITE Volume
1  1  beijing      1
2  1 shanghai      1
3  4  beijing      4
4  5  beijing      5
>
> ##create new site names
> sub.dat <- dat[,c('ID','SITE')]
> site <- by(data=sub.dat,INDICES = sub.dat$ID,FUN = function(x){
+   paste0(x$SITE,collapse = ',')
+ })
>
> site.idx <- which(colnames(dat)=='SITE')
>
> ##remove duplicated and put in the new site names
> dat.new <- dat[!duplicated(dat[,-site.idx]),]
> dat.new$SITE <- as.vector(site)
> dat.new
  ID             SITE Volume
1  1 beijing,shanghai      1
3  4          beijing      4
4  5          beijing      5

普通的是已经没问题啦，周一去用公司电脑用shiny搞一下没问题的话就发币了，有问题了再问问你。放心啦，绝不会辜负你的劳动成果

请问第一个出现的idx是什么呢？我这边变异错误，说找不到这个object   谢谢！

不好意思，写错了，这个是正确的代码，测试过能用了，把idx换成sub.dat。我主要是用了一个by（）函数来从新整合beijing，shanghai的名字，楼主可以查看？by帮助文件来了解函数具体的应用方法

##define data frame
dat <- data.frame(ID=c(1,1,4,5),SITE=c('beijing','shanghai','beijing','beijing'),Volume=c(1,1,4,5))
dat


##create new site names
sub.dat <- dat[,c('ID','SITE')]
site <- by(data=sub.dat,INDICES = sub.dat$ID,FUN = function(x){
   paste0(x$SITE,collapse = ',')
})

site.idx <- which(colnames(dat)=='SITE')

##remove duplicated and put in the new site names
dat.new <- dat[!duplicated(dat[,-site.idx]),]
dat.new$SITE <- as.vector(site)
dat.new

谢谢谢谢！我刚用了很多数据做测试，可是我又发现了一个问题哎

对于你的测试数据来说，当重复ID是最小的数的时候可以得到正确的输出。当重复ID的数字比较大不是最小的时候会出问题哎

不知道我有没有表达清楚

就是将你的数据ID=c(8,8,4,5)就会出问题哎，不知道是什么原因呢

蟹蟹啦！