扩展数据帧以包括新的计数器列R

我想将数据框按类型（第1列）分组，以显示与它们相关联的所有不同描述。我在R工作；我能找到的处理这种情况的最接近的函数是tidyr:：spread，但我不希望每个DESC都有不同的列，只需要计数器列

下面的代码创建了两个数据帧，给出了我想要转换的内容的示例（mydata->mydata2）

---

column1这不是一个微不足道的重塑，我会这样做：
mydata$suffix您想要的输出没有多大意义。在
size
行中有
blue
。此外，您将过多的列名传递给
mydata2
。看看这是否提供了您想要的
库（data.table）；dcast（setDT（mydata），type~rowid（type））
谢谢-这是完美的David-很抱歉。。我修好了code@digEmAll我认为这件事有很多麻烦
column1 <- c("color","color","color","size","size")
column2 <- c("red","blue","green","small","big")
mydata <- data.frame(column1,column2)
colnames(mydata)[c(1:2)] <- c("type","desc")
View(mydata)

column1 <- c("color","size")
column2 <- c("red","big")
column3 <- c("green","small")
column4 <- c("blue",NA)
mydata2 <- data.frame(column1,column2,column3,column4)
colnames(mydata2)[c(1:4)] <- c("type","desc1","desc2","desc3","desc4")
View(mydata2)