如何计算R中tibble中一列的值并求和？

Question

例如，我有这个小标题：

       nationality    Other
[1,]          White     1 ------> I want to add
[2,]          Mexican   0
[3,]          American  0
[4,]          Asian     1 -------> I want to add
[5,]          af        1 -------> I want to add
[6,]          American  0

我想以某种方式总结 Other 中的值并创建它自己的 tibble：

       Other
[1,]     3

我尝试使用 sum()，但它给了我

  Error in FUN(X[[i]], ...) : 
  only defined on a data frame with all numeric variables

除此之外，tally() 给了我这个，它计算列中的行数：

      n
1     88

这是代码：

natgroups3 <- ibtclean %>% select(nationality) %>%mutate(Other = ifelse(str_detect(nationality, "af|White|Asian|white|Middle-Eastern"), yes = 1, no = 0)) %>% drop_na() 

Answer 1

尝试使用tidyverse库。 我准备了一个示例代码，它使用您的结构重新创建 tibble d并计算目标 tibble c ，其中列other等于 1 的行数。

library(tidyverse)
d <- tribble(~nationality, ~other, 'White', 0, 'Mexican', 1, 'Amrican', 0, 'Asian', 1, 'af', 1)
d
c <- d %>% count(other) %>% filter(other == 1) %>% select('Other' = n)
c

您也可以选择other列并使用以下代码计算其总和（根据您的业务需要）

library(tidyverse)
d <- tribble(~nationality, ~other, 'White', 0, 'Mexican', 1, 'Amrican', 0, 'Asian', 1, 'af', 1)
d
c <- d %>% select(other) %>% summarise('Other'=sum(other))
c

两个代码片段都产生以下结果

# A tibble: 5 x 2
  nationality other
  <chr>       <dbl>
1 White           0
2 Mexican         1
3 Amrican         0
4 Asian           1
5 af              1
# A tibble: 1 x 1
  Other
  <dbl>
1     3

我希望这些片段可以解决您的问题