समूह द्वारा अद्वितीय मूल्यों की संख्या को कैसे गिनें?

Question

ID= c('A', 'A', 'A', 'B', 'B', 'B') 
color=c('white', 'green', 'orange', 'white', 'green', 'green') 

d = data.frame (ID, color) 

मेरे वांछित परिणाम

unique_colors=c(3,3,3,2,2,2) 
d = data.frame (ID, color, unique_colors) 

या एक नया dataframe सी में और अधिक स्पष्ट है

ID= c('A','B') 
unique_colors=c(3,2) 
c = data.frame (ID,unique_colors) 

मैं aggregate और ave के साथ-साथ by और with के विभिन्न संयोजनों और मुझे लगता है की कोशिश की है यह उन कार्यों का एक संयोजन है।

समाधान शामिल होंगे:

length(unique(d$color)) 

अद्वितीय तत्व की संख्या की गणना करने के लिए।

Answer 1

मुझे लगता है कि आपको यह सब गलत मिला है। data.table का उपयोग करते समय plyr या <- में कोई आवश्यकता नहीं है। data.table, वी> = 1.9.6, के

हाल संस्करणों एक नया कार्य uniqueN() सिर्फ इतना है कि के लिए की है।

library(data.table) ## >= v1.9.6 
setDT(d)[, .(count = uniqueN(color)), by = ID] 
# ID count 
# 1: A  3 
# 2: B  2 

आप मायने रखता है के साथ एक नया स्तंभ बनाने के लिए चाहते हैं, := ऑपरेटर का उपयोग

setDT(d)[, count := uniqueN(color), by = ID] 

---

या dplyr साथ n_distinct समारोह

library(dplyr) 
d %>% 
    group_by(ID) %>% 
    summarise(count = n_distinct(color)) 
# Source: local data table [2 x 2] 
# 
# ID count 
# 1 A  3 
# 2 B  2 

या का उपयोग करें (यदि आप एक नया कॉलम चाहते हैं)के बजाय mutate का उपयोग करें

d %>% 
    group_by(ID) %>% 
    mutate(count = n_distinct(color))