आर

Question

में एक संख्यात्मक चर को बिन करना मेरे पास एक वेक्टर एक्स है जिसमें सकारात्मक संख्याएं हैं जिन्हें मैं बिन/डिस्क्रिटिज़ करना चाहता हूं। इस वेक्टर के लिए, मैं संख्याओं [0, 10) को वेक्टर में मौजूद होने के समान दिखाना चाहता हूं, लेकिन 10+ होने के लिए संख्या [10, ∞)।

मैं उपयोग कर रहा हूँ:

x <- c(0,1,3,4,2,4,2,5,43,432,34,2,34,2,342,3,4,2) 
binned.x <- as.factor(ifelse(x > 10,"10+",x)) 

लेकिन यह मेरे लिए klugey महसूस करता है। क्या कोई बेहतर समाधान या एक अलग दृष्टिकोण जानता है?

Answer 1

कैसे cut के बारे में:

binned.x=cut(x, breaks=c(-1:9,Inf), labels=c(as.character(0:9),'10+')) 

कौन सा पैदावार:

[1] 0 1 3 4 2 4 2 5 10+ 10+ 10+ 2 10+ 2 10+ 3 4 2 
Levels: 0 1 2 3 4 5 6 7 8 9 10+ 

Answer 2

आप प्रश्न असंगत है।
विवरण में 10 "10+" समूह से संबंधित है, लेकिन कोड 10 से अलग स्तर है।

pmin(x, 10) 
# [1] 0 1 3 4 2 4 2 5 10 10 10 2 10 2 10 3 4 2 10 

: तो 10 में होना चाहिए "10+" समूह तो आप कोड

as.factor(ifelse(x >= 10,"10+",x)) 

इस मामले आप 10 के लिए डेटा काट-छांट कर सकता है (यदि आप एक कारक नहीं करना चाहती) में होना चाहिए

Answer 3

x[x>=10]<-"10+" 

यह आपको स्ट्रिंग का वेक्टर देगा। आप अपने परिणाम प्राप्त करने के लिए संख्याओं को वापस करने के लिए as.numeric(x) का उपयोग कर सकते हैं ("10+" NA बनें), या as.factor(x)।

ध्यान दें कि यह मूल वेक्टर को स्वयं संशोधित करेगा, ताकि आप किसी अन्य वेक्टर में प्रतिलिपि बनाना चाहें और उस पर काम कर सकें।