Suppose I have a dataset
titanic = Uncompress[FromCharacterCode[ Flatten[ImageData[Import["http://i.stack.imgur.com/sd05e.png"],"Byte"]]]]
Groupy will give a output like
But actually I'd like a format like
How to get a
Dateset with such structure?