Selecting rows conditioned on values in columns is easy, as for example selecting people aged over 33. What is about selecting rows conditioned on statistics computed on multiple rows of the data frame, as for example selecting pupils in groups by the number of pupils per group?<\/p>\n
That is where the very nice dplyr package comes in.<\/p>\n
We build and print the data frame:<\/p>\n
df <- data.frame(id=1:9, classid=c(1,1,1,2,2,3,3,3,3), math=round(runif(9,1,6),1))<\/pre>\n> print(df)\r\n id classid math\r\n1 1 1 5.4\r\n2 2 1 4.0\r\n3 3 1 1.1\r\n4 4 2 2.2\r\n5 5 2 3.9\r\n6 6 3 2.7\r\n7 7 3 6.0\r\n8 8 3 2.0\r\n9 9 3 1.6<\/pre>\nNow, we want to select – i.e. “filter” in terms of the dplyr package – pupils that are part of groups\/classes with more than two pupils per class. In dplyr there are three different syntaxes to achieve this.<\/p>\n
# step-by-step\r\ndf.g <- group_by(df, classid)\r\ndf.n <- filter(df.g, n()>2)\r\n\r\n# or nested syntax\r\ndf.n <- filter(group_by(df, classid), n()>2)\r\n\r\n# or with %.% operator\r\ndf.n <- df %.% \r\n group_by(classid) %.% \r\n filter(n()>2)<\/pre>\nThe result is the same for all:<\/p>\n
> print(df.n)\r\nSource: local data frame [7 x 3]\r\nGroups: classid\r\n\r\n id classid math\r\n1 1 1 5.4\r\n2 2 1 4.0\r\n3 3 1 1.1\r\n4 6 3 2.7\r\n5 7 3 6.0\r\n6 8 3 2.0\r\n7 9 3 1.6<\/pre>\nOf course, you can do this the pure-R-way,<\/p>\n
> df.c <- df[df$classid %in% which(xtabs(~classid, df)>2), ]\r\n> print(df.c)\r\n id classid math\r\n1 1 1 5.4\r\n2 2 1 4.0\r\n3 3 1 1.1\r\n6 6 3 2.7\r\n7 7 3 6.0\r\n8 8 3 2.0\r\n9 9 3 1.6<\/pre>\nbut I think with dplyr it looks quite a bit nicer.<\/p>\n
Happy dpylr!<\/p>\n","protected":false},"excerpt":{"rendered":"
Selecting rows conditioned on values in columns is easy, as for example selecting people aged over 33. What is about selecting rows conditioned on statistics computed on multiple rows of the data frame, as for example selecting pupils in groups by the number of pupils per group? That is where the very nice dplyr package … Continue reading Select Pupils by Number of Pupils per Group<\/span>