私はそのようなデータフレームを持っています
> df
a b c d
1 1 2 A 1001
2 2 4 B 1002
3 3 6 B 1002
4 4 8 C 1003
5 5 10 D 1004
6 6 12 D 1004
7 7 13 E 1005
8 8 14 E 1006
列cおよび列dに値が繰り返される行を削除したい。したがって、この例では、行2、3、5、および6が削除されます。
私はこれを使用しましたが、これは動作します:
df[!(df$c %in% df$c[duplicated(df$c)] & df$d %in% df$d[duplicated(df$d)]),]
>df
a b c d
1 1 2 A 1001
4 4 8 C 1003
7 7 13 E 1005
8 8 14 E 1006
しかし、それは不格好なようで、私はより良い方法があると思うしか仕方がありません。助言がありますか?
誰かがここでデータフレームを再作成したい場合は、dputがあります:
df = structure(list(a = c(1, 2, 3, 4, 5, 6, 7, 8), b = c(2, 4, 6,
8, 10, 12, 13, 14), c = structure(c(1L, 2L, 2L, 3L, 4L, 4L, 5L,
5L), .Label = c("A", "B", "C", "D", "E"), class = "factor"),
d = c(1001, 1002, 1002, 1003, 1004, 1004, 1005, 1006)), .Names = c("a",
"b", "c", "d"), row.names = c(NA, -8L), class = "data.frame")
duplicated
を2回使用すると動作します:
df[!(duplicated(df[c("c","d")]) | duplicated(df[c("c","d")], fromLast = TRUE)), ]
a b c d
1 1 2 A 1001
4 4 8 C 1003
7 7 13 E 1005
8 8 14 E 1006
2列の新しいオブジェクトを作成します。
df_dups <- df[c("c", "d")]
次に、メインdfに適用します。
df[!duplicated(df_dups),]
見栄えが良く、使用している列を簡単に表示/変更できます。