Question

我有两个因子变量 - 在data.frame中称为＆＃34;数据＆＃34; - 看起来像这样：

brand  Country
 "A"    "ITA"
 "A"    "ITA"
 "C"    "SPA"
 "B"    "POR"
 "C"    "SPA"
 "B"    "POR"
 "A"    "ITA"
 "D"    "ITA"
 "E"    "SPA"
 "D"    "ITA"

我希望得到一张表格，其中列出了brands的唯一country数量。以下示例应该是：

# of unique brands  Country
        2             "ITA"
        2             "SPA"
        1             "POR"

首先，我试过了：

data$var <- with(data, ave(brand, Country, FUN = function(x){length(unique(x))}))

但它不适用于因素，所以我转换了我的因素：

data$brand_t<-as.character(data$brand)
data$Country_t<-as.character(data$Country)

然后再次：

data$var <- with(data, ave(brand_t, Country_t, FUN = function(x){length(unique(x))}))

现在，如果我申请unique(data$var)，我会"2", "2", "1"这是正确的，但我无法获得我想要的表格。可能很傻，但我无法解决。

我也想知道是否有更聪明的方法来代替使用因素。

再次感谢。

Answer 1

以下是使用data.table v >= 1.9.5或dplyr

的两种快速方法

library(data.table)
setDT(df)[, uniqueN(brand), by = Country]

或者

library(dplyr)
df %>%
  group_by(Country) %>%
  summarise(n = n_distinct(brand))

或者用基础R

aggregate(brand ~ Country, df, function(x) length(unique(x)))

或者

tapply(df$brand, df$Country, function(x) length(unique(x)))

或者如果您喜欢基本R简单语法并且您的数据集不是太大，您可以将方法组合在一起

aggregate(brand ~ Country, df, uniqueN)

或

aggregate(brand ~ Country, df, n_distinct)

Answer 2

在基数R中，您可以与table和unique一起试用colSums，如下所示：

colSums(table(unique(mydf)))
# ITA POR SPA 
#   2   1   2

R中独特观察表

2 个答案: