我认为这将作为您的最后一行:

I think this will work as your final line:

Table1$Col1 <- sapply(broken,function(x) paste(unique(x), collapse=','))

因为我是包functional的粉丝，所以这是等效的:

Because I am a fan of package functional, here is an equivalent:

sapply(broken, Compose(unique, Curry(paste, collapse=',')))