如何根据条件从R中的大型数据集中删除一组特定数据？

Question

我有这个数据集，其中包括给定年份中公司的所有销售额（公司代码= gvkey，年份= fyearq，销售额= saley），其销售额增长率（增长_增长率_调整后）（相对于过去的年份）以及它的增长率。 但是，某些年份在此数据集中存在一些异常值。 在这种情况下，我要删除波动率高于3.0的所有1995年行。

我曾尝试使用ddplyr通过以下方式将其过滤掉

rs <-rs%>%
  filter(!fyearq == 1995 & !volatility > 3.0) %>%
  ungroup()

但这不包括所有年份高于4的所有波动率，并且完全从数据集中排除1995，这不是我的目标。

如果有人能告诉我如何将其调整为仅在1995年达到3.0以上的波动率，我将不胜感激。 不幸的是，我对R来说还很陌生。

一个样本，该样本具有按年份排序的1994年和1995年的数据（会有一些NA，但可以），以使其具有可重复性：

structure(list(gvkey = c(65089L, 65090L, 65091L, 65094L, 65095L, 
65298L, 65351L, 65499L, 66430L, 66591L, 66624L, 109584L, 119053L, 
143972L, 145348L, 277918L, 1004L, 1009L, 1010L, 1011L, 1013L, 
1017L, 1019L, 1021L, 1025L, 1033L, 1034L, 1037L, 1038L, 1043L, 
1045L, 1048L, 1050L, 1055L, 1056L, 1072L, 1073L, 1075L, 1076L, 
1078L, 1082L, 1084L, 1086L, 1090L, 1094L, 1095L, 1097L, 1098L, 
1099L, 1104L, 1107L, 1108L, 1109L, 1111L), fyearq = c(1994L, 
1994L, 1994L, 1994L, 1994L, 1994L, 1994L, 1994L, 1994L, 1994L, 
1994L, 1994L, 1994L, 1994L, 1994L, 1994L, 1995L, 1995L, 1995L, 
1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 
1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 
1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 
1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L, 1995L), growth_rate_adjusted = c(8.96928631198866, 
8.4280138706961, 9.02704614077282, 8.10147860671897, 7.85740916384215, 
10.7523572462577, 0.0325017896704669, 0.285143311711521, -0.0215766088784792, 
7.5140205008648, 10.4833287736384, 1.73691297130171, 0.117237940329646, 
1.34207225611898, 8.38865848733786, NA, 11.217767632108, -0.304963611388244, 
8.90548855887399, -0.465405529093955, 0.308162761266, -0.428463261697025, 
9.71621276929561, -0.272514090039389, 0.365258326126507, -0.835436753370402, 
10.6675419276932, 21.8645191343365, 0.172555503849585, -0.0528834362682823, 
9.77177091825209, -0.0617758053830246, 7.26998471225084, 10.2427038986383, 
0.174166169584557, 11.7224789811471, 5.10323576237965, -0.0390433072454226, 
8.410713700002, 10.0433658114349, 8.56357182841634, 13.2022040407414, 
11.9928308829399, 11.6432049346405, 0.117529642161838, 9.53135348756221, 
9.58048755435235, 0.0758862747892137, 0.0654783197588846, 9.49577594725737, 
10.4061554746601, -0.454122878475859, 12.2471344335624, 37.1728040342351
), volatility = c(2.55192643294808, 2.39434025265926, 2.56344451051799, 
2.30624765181967, 2.23928130844332, 3.04354720436549, NA, 0.402804266987728, 
0.358552136097001, 2.13611997423426, 2.98090959393336, NA, 0.0847119569693743, 
NA, 2.37661435221257, NA, 3.18081892321314, NA, 2.52968180517002, 
NA, 0.429862168272561, NA, 2.76287646243831, 0.454406152459777, 
NA, NA, 3.0077233808187, 6.17293600484418, 0.304536845392376, 
0.0411853414230726, 2.76986690678473, 0.157817595412998, 1.99372992450495, 
NA, 0.293215830307968, 3.24928278487391, NA, 0.342934649585831, 
2.35498186010912, 2.84022723248247, 2.40517143665036, 3.13067695078128, 
NA, NA, 0.326138274385994, 2.70848653980122, 2.74871785774601, 
NA, 0.299889508129728, 2.71608606652565, 2.94982624906776, NA, 
3.47847130692363, 10.490117417769)), row.names = c(NA, -54L), class = c("tbl_df", 
"tbl", "data.frame"))

Answer 1

Base R解决方案：

rs <- rs[-which(rs$fyearq == 1995 & rs$volatility > 3), ]

请注意相反的条件：

rs[which(rs$fyearq == 1995 & rs$volatility > 3), ]

返回7行。 因此，如果子集按预期工作，我们期望54-7 = 47行。

Answer 2

neilfws提供了正确的基础R解决方案。 这是dplyr解决方案：

rs <- filter(rs, !(fyearq == 1995 & !is.na(volatility) & volatility > 3.0))

Answer 3

我们要“删除1995年波动率高于3.0的所有行”。

我们可以过滤以选择条件为TRUE所有内容，然后取反整个语句（而不是每个单独的组件）：

rs = rs%>%
  filter(!(fyearq == 1995 & volatility > 3.0)) %>%
  ungroup()

>rs
# A tibble: 36 x 4
   gvkey fyearq growth_rate_adjusted volatility
   <int>  <int>                <dbl>      <dbl>
 1 65089   1994               8.97        2.55 
 2 65090   1994               8.43        2.39 
 3 65091   1994               9.03        2.56 
 4 65094   1994               8.10        2.31 
 5 65095   1994               7.86        2.24 
 6 65298   1994              10.8         3.04 
 7 65351   1994               0.0325     NA    
 8 65499   1994               0.285       0.403
 9 66430   1994              -0.0216      0.359
10 66591   1994               7.51        2.14 
# … with 26 more rows

Answer 4

你已经很亲近了

rs <-rs%>%
  filter(!(fyearq == 1995 & volatility > 3.0)) %>%
  ungroup()