r - 分割表を正規化する

Question

テーブルがあるとします

> tab <- table(c("www.a.com","a.com","a.com","www.b.com"))
> tab
    a.com www.a.com www.b.com 
        2         1         1 

と のエントリをマージし"www.a.com"て"a.com"取得したい

    a.com  b.com 
        3      1

私は持っている

> fqdn.normalization.regexp <- "^ww*[0-9]*\\."
> normalize.fqdn <- function (domain) sub(fqdn.normalization.regexp,"",domain)
> normalize.fqdn(names(tab))
[1] "a.com" "a.com" "b.com"

tab問題は、値を必要なものに変換するにはどうすればよいですか?

Answer 1

> names(tab) <- normalize.fqdn(names(tab))
> tapply(tab, names(tab), sum)
a.com b.com 
    3     1