在R中的多個列上聚合table（）而不進行“按”細分

Question

我有一個點的x坐標和y坐標的2列數據框。 我想生成一個表，列出每個點的出現次數。 使用table()命令會為所有可能的xy對生成一張表。 我可以用消除多余的東西

fullTable <- table(coords)
smalLTable <- subset(fullTable, fullTable > 0)

然后，我確定我可以使用dimnames(fullTable)進行一些dimnames(fullTable)來獲取適當的坐標，但是還有更好的方法嗎？ 內置的東西？ 的東西

coords <- data.frame(x = c(1, 1, 2, 2, 3, 3), y = c(1, 1, 2, 1, 1, 1))

會回來

x y count
1 1 2
2 1 1
2 2 1
3 1 2

Answer 1

僅使用Vanilla R，您就可以

aggregate(rep(1, nrow(coords)), by = list(x = coords$x, y = coords$y), sum)

Answer 2

優於ddply是count ：

library(plyr)
count(coords)

對於稀疏的2d結果，它也比表格快得多。

Answer 3

您也可以使用data.table

library(data.table)
DT <- data.table(coords)
DT[,.N,by=list(x,y)]
##   x y N
## 1: 1 1 2
## 2: 2 2 1
## 3: 2 1 1
## 4: 3 1 2

見這個答案上使用的更多細節.N和創建頻數表data.table

Answer 4

您可以從plyr庫中使用ddply

plyr::ddply(coords, .(x, y), summarize, count = length(x))

Answer 5

與dplyr

library(dplyr)
count(coords, x, y)

帶有data.table

library(data.table)
setDT(coords)
coords[, .(n = .N), by = .(x, y)]