r - 我如何告诉 R 在表输出中只给我大于 1 的值（即有多个项）？

Question

我有一个包含许多条目的大型数据集，我想查看哪个公司有多个条目。下面是我要查看的变量的表函数的一部分输出。相反，我想要一个只有大于 1 的条目的表。例如，我想说这样的话，table(dataset$var > 1)但这显然行不通。

                                                                                                                        Accretive Health 
                                                                                                                                         1 
                                                                                                                                Accuprint  
                                                                                                                                         1 
                                                                                  ACS, Affiliated Computer Services, Inc., A Xerox Company 
                                                                                                                                         1 
                                                                                                                                AdminisTEP 
                                                                                                                                         1 
                                                                              Administracion de Seguros de Salud - Triple S Salud Inc (BA) 
                                                                                                                                         2 
                                                                                                                                 ADPI-West 
                                                                                                                                         1 
                                                                                                      ADT LLC Group Health & Welfare Plan 
                                                                                                                                         1 
                                                                                                         Adult & Pediatric Dermatology, PC 

Answer 1

尝试 ：

x <- table(dataset$var)
x[x > 1]

或单线使用Filter

Filter(function(x) x > 1, table(dataset$var))

使用dplyr，您可以执行以下操作：

library(dplyr)
dataset %>% count(var) %>% filter(n > 1)