道歉,如果我問這個錯誤,但我是新來的R.說我有一個向量X是這樣的:如何從一個向量中移除超過計數的項目?
Sam
George
George
Suzzy
Suzzy
Suzzy
Leo
我想是能夠得到一個包含名稱的載體,只有出現兩次,但保持它們在原始向量中出現的次數。這裏的僞代碼是什麼樣子的例子:
x <- x[sum x.uniquecount() >=2]
而最終的結果:
George
George
Suzzy
Suzzy
Suzzy
道歉,如果我問這個錯誤,但我是新來的R.說我有一個向量X是這樣的:如何從一個向量中移除超過計數的項目?
Sam
George
George
Suzzy
Suzzy
Suzzy
Leo
我想是能夠得到一個包含名稱的載體,只有出現兩次,但保持它們在原始向量中出現的次數。這裏的僞代碼是什麼樣子的例子:
x <- x[sum x.uniquecount() >=2]
而最終的結果:
George
George
Suzzy
Suzzy
Suzzy
vec <- scan(what="")
1: Sam
2: George
3: George
4: Suzzy
5: Suzzy
6: Suzzy
7: Leo
8:
Read 7 items
vec[ vec %in% names(table(vec))[table(vec) >= 2] ]
[1] "George" "George" "Suzzy" "Suzzy" "Suzzy"
非常感謝您的快速回答。我必須道歉,但我得到的輸出不正確。我編輯了這個問題。再次感謝你的幫助。 – Darkenor
df <- read.table(text = "Sam
George
George
Suzzy
Suzzy
Suzzy
Leo")
n <- ave(as.numeric(df$V1), df$V1, FUN = length)
df[n > 1, ]
# [1] George George Suzzy Suzzy Suzzy
爲什麼downvote? – Darkenor