9

記録された各出生日に出生したユニークなダムの数を知りたいです。私のデータフレームはこれに似ています：

dam <- c("2A11","2A11","2A12","2A12","2A12","4D23","4D23","1X23")
bdate <- c("2009-10-01","2009-10-01","2009-10-01","2009-10-01",
           "2009-10-01","2009-10-03","2009-10-03","2009-10-03")
mydf <- data.frame(dam,bdate)
mydf
#    dam      bdate
# 1 2A11 2009-10-01
# 2 2A11 2009-10-01
# 3 2A12 2009-10-01
# 4 2A12 2009-10-01
# 5 2A12 2009-10-01
# 6 4D23 2009-10-03
# 7 4D23 2009-10-03
# 8 1X23 2009-10-03

私は使用aggregate(dam ~ bdate, data=mydf, FUN=length)しましたが、特定の日に出産したすべてのダムをカウントします

bdate dam
1 2009-10-01   5
2 2009-10-03   3

代わりに、次のようなものが必要です。

mydf2
  bdate      dam
1 2009-10-01  2
2 2009-10-03  2

あなたの助けは大歓迎です！

4

4 に答える 4

15

どうですか：

aggregate(dam ~ bdate, data=mydf, FUN=function(x) length(unique(x)))
于 2011-05-05T02:16:52.473 に答える
5

unique最初にデータを実行することもできます。

aggregate(dam ~ bdate, data=unique(mydf[c("dam","date")]), FUN=length)

次に、出力は少し異なりますが、のtable代わりに使用することもできます。aggregate

> table(unique(mydf[c("dam","date")])$bdate)

2009-10-01 2009-10-03 
         2          2
于 2011-05-05T03:21:03.687 に答える
3

これは問題の考え方の一例であり、解決方法のアプローチの 1 つです。

split.mydf <- with(mydf, split(x = mydf, f = bdate)) #each list element has only one date.
# it's just a matter of counting unique dams
unique.mydf <- lapply(X = split.mydf, FUN = unique)
#and then count the number of unique elements
unilen.mydf <- lapply(unique.mydf, length)
#you can do these two last steps in one go like so
lapply(split.mydf, FUN = function(x) length(unique(x)))

as.data.frame(unlist(unilen.mydf)) #data.frame is just a special list, so this is water to your mill

           unlist(unilen.mydf)
2009-10-01                   2
2009-10-03                   2
于 2011-05-05T07:01:17.677 に答える