在R中累加相同类型数据的多列

我是一个新手，所以我可能会问一个最简单的问题。我有10列相同类型的数据，我想在一个名称下累积。列标题为：

鸡蛋直径1，鸡蛋直径2…鸡蛋直径10

我如何将其累积到一个通用名称下？比如说鸡蛋直径 我还想从研究中消除一些零值。有人能把代码也包括进来吗？ 谢谢

如果希望将10列减少为1列

数据

 dat1 <- data.frame(egg.diameter=unlist(dat, use.names=FALSE))

  dat2 <- setNames(stack(dat)[,1,drop=FALSE], "egg.diameter")

  dat2[dat2[,1]!=0,,drop=FALSE]

set.seed(24)
dat <- as.data.frame(matrix(sample(0:40, 10*20,replace=TRUE),
          ncol=10, dimnames=list(NULL, paste("egg", paste0("diameter",1:10)))))