这是一个带ave的基本R方式。

transform(d, freq.loc = ave(seq(nrow(d)), location, FUN=length))

我肯定有人会贴一个（丑;））ave或plyr解决方案，下面是data.table解决方案：

library(data.table)
dt = data.table(your_df)

dt[, `freq-loc` := .N, by = location]
# note: using `-quotes around your var name, because of the "-" in the name

使用基：table 然后 merge：

merge(data, data.frame(table(location = data$location)), by = "location")
# location species Freq
# 1   boston       Q    1
# 2  buffalo       C    1
# 3   newark       J    1
# 4  seattle       A    2
# 5  seattle       D    2

另外，我听到了对plyr的请求：

library(plyr)
join(data, data.frame(table(location = data$location)))
# Joining by: location
# location species Freq
# 1  seattle       A    2
# 2  buffalo       C    1
# 3  seattle       D    2
# 4   newark       J    1
# 5   boston       Q    1

尝试在列名中使用破折号会非常痛苦。最好使用下划线或“点”。

dfrm$freq_loc <- ave( as.numeric(dat[[1]]), dat[["location"]] ,
                                                     FUN=length)

我尝试使用ave而不使用第一列中的as.numeric，但令我惊讶的是，得到了与因子水平相关的模糊错误消息。