R - 擺脫向量中的重複元素

-4

我試圖從任何整數向量中刪除重複的元素，但沒有內置函數：duplicated(),unique()和anyDuplicated()。結果必須與unique()的結果相同。R - 擺脫向量中的重複元素

到目前爲止，我設法從遞增的順序獲得矢量值（這不夠好）。我做了（對於給定向量）如下：

vec <- c(1,2,2,4,1,1,5,6,3,9,0,4)

我可以用vec <- sort(vec)然後rle(vec)$val獲得值的向量遞增的順序。我還試圖通過sort(vec,index.return=TRUE)$ix從排序函數中獲得排序向量，並使用該向量來將此排序應用於result向量（但由於result短於vec，因此它是不可能的）。

任何想法如何解決這個問題？在此先感謝

來源

2013-10-11 user2871983

呵呵？你爲什麼不想使用這些功能？ – eddi

好的，但爲什麼不使用內置函數？這只是爲了好玩嗎？否則，知道這個看似奇怪的請求的需要將有助於提供有用的答案。 – Aaron

是的，這是我從老師那裏收到的一項具有挑戰性的任務。此外使用函數，循環和if-else語句也不允許**。忘記提及。 – user2871983

你可以這樣做：

> vec[match(vec, vec) == seq_along(vec)] 
# [1] 1 2 4 5 6 3 9 0

來源

2013-10-11 18:33:41 flodel

P.S.如果我從一開始就知道這是一項家庭作業，我寧願不回答。我想刪除我的答案，然後意識到1）OP已經有機會看到我的答案2）如果我讓我的答案可見並且說老師在這裏找到答案，他會知道這不是OP的工作。所以...我在這裏離開我的答案。 – flodel

這是很好的解決方案，但我不打算使用它，因爲它對我來說並不完全清楚。我仍然更喜歡我的方法完成。我想有人會給我一些提示如何進一步，但似乎我錯了。抱歉，添麻煩了。 – user2871983

@ flodel你是老師嗎？這真的很酷，我必須運行每一點來包圍我的頭，它是如何工作的。好一個。 –

如何做事的不自然的方式...

> vec[rank(vec,t="first")==rank(vec,t="min")] 
[1] 1 2 4 5 6 3 9 0 
> vec[{o<-outer(vec,vec,"-");rowSums((o==0) * (row(o)>col(o)))==0}] 
[1] 1 2 4 5 6 3 9 0 
> vec[!mapply("%in%",vec,lapply(seq_along(vec),function(x) head(vec,x-1)))] 
[1] 1 2 4 5 6 3 9 0

來源

2013-10-11 20:20:17 mrip

我覺得很簡單的解決方案。它足以執行： union(vec,vec)

來源

2013-10-13 18:12:38 user2871983

R - 擺脫向量中的重複元素

回答

相關問題