如果有条件的删除数据组

示例如下：

对P分组，如果此时q<1，那么删除整个p=1的观测，按照这种规则，最后产生的结果只剩p=2和p=5的所有观测，请问如果实现该功能。示例非常简单，实际数据非常庞大，可能需要写循环。。求高手

这个不算复杂
library(tidyverse)
myData %>%
  filter(Permno %in% (myData %>%
                                   group_by(Permno) %>%
                                   filter(abs(prc) == min(abs(prc)),
                                          abs(prc) > 1) %>%
                                   pull(Permno)))

没有看见示例

题目表述非常不清楚，如果只需要留下p=2或者p=5的观测的话，可以用

dat[dat$p ==2 | dat$p ==5, ]

不知道你这里的q指的是什么。大量数据的话也不要写循环，R的循环非常慢，一般都可以用矢量化的句子来代替。

现在重新解释一下，Permno是股票代码，abs(prc)是每月的closing price, 举例，对于permno=10000的股票而言，只要有一个月份的c'losing price小于1，那么就删除Permno=10000的所有月份的观测。以此类推

caimiao0714 发表于 2019-1-10 06:24
题目表述非常不清楚，如果只需要留下p=2或者p=5的观测的话，可以用

dat[dat$p ==2 | dat$p ==5, ]

你好，我又重新解释了下

cheetahfly 发表于 2019-1-9 21:49
没有看见示例

你好，我重新解释了下

cheetahfly 发表于 2019-1-10 09:24
这个不算复杂
library(tidyverse)
myData %>%

感谢帮助，我试了下code,tidyverse是可以安装，但是library会报错怎么办

talentmsy 发表于 2019-1-10 09:39
感谢帮助，我试了下code,tidyverse是可以安装，但是library会报错怎么办

报的什么错呀？

caimiao0714 发表于 2019-1-10 13:49
报的什么错呀？

报错了下面这个
> library(tidyverse)
Error: package or namespace load failed for ‘tidyverse’:
.onAttach failed in attachNamespace() for 'tidyverse', details:
  call: loadNamespace(name)
  error: there is no package called ‘rstudioapi’