这个不算复杂
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的所有月份的观测。以此类推

你好，我又重新解释了下