0

データの概要:

> str(dataStart[c("gvkey","DEF","FittedRob","NewCol")])
'data.frame':   1000 obs. of  4 variables:
$ gvkey         : int  1004 1004 1004 1004 1004 1021 1021 1021 1021 1033 ...
$ DEF           : int  0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0...
$ FittedRob        : num  0.549 0.532 0.519 0.539 0.531 ...
$ NewCol           : chr  0.549 "Del" 0.519 0.539 "Del2" ...

ここで、「Del」または「Del2」が発生し、それが特定の「gvkey」のすべての行を削除したいと思います。

dataStart <- NewDataFrame[ ! NewDataFrame$NewCol %in% c("Del","Del2"),]

NewDataFrame は、NewCol を含む data.frame です。ただし、これは「Del」と「Del2」が発生する行のみを削除します。「Del」または「Del2」が発生した場合は、「gvkey」全体を削除したいと思います。ありがとう。

4

3 に答える 3

3

gvkey最初に、削除するすべての を選択する必要があります。

keys_to_delete <- unique(NewDataFrame$gvkey[NewDataFrame$NewCol %in% 
    c("Del","Del2")])

そして、これらを使用して対応する行を削除します。

dataStart <- NewDataFrame[!(NewDataFrame$gvkey %in% keys_to_delete), ]
于 2013-07-18T09:48:00.743 に答える
1 
set.seed(42)
DF <- data.frame(a = sample(c("a", "b", "c"), 10, T), b = sample(1:10, 10, T))
#    a  b
# 1  c  5
# 2  c  8
# 3  a 10
# 4  c  3
# 5  b  5
# 6  b 10
# 7  c 10
# 8  a  2
# 9  b  5
# 10 c  6


library(plyr)
res <- ddply(DF, .(a), transform, test = any(b %in% c(2, 3)))
res[!res$test, 1:2]
#   a  b
# 3 b  5
# 4 b 10
# 5 b  5
于 2013-07-18T09:45:44.260 に答える
0

ave@Rolandが使用したサンプルデータを使用して、少しアクションを使用します。

DF[ave(DF$b,DF$a, FUN=function(x) !any(x %in% c(2,3)))==1,]

そして、ヤンの素敵な答えの適応：

DF[!DF$a %in% unique(DF$a[DF$b %in% c(2,3)]) ,]

両方を与える：

  a  b
5 b  5
6 b 10
9 b  5
于 2013-07-18T10:12:48.850 に答える