कट और लेबल/टूटता लंबाई संघर्ष

Question

मैं कटौती समारोह के साथ काम कर रहा हूँ एक barplot हिस्टोग्राम के लिए डेटा तैयार लेकिन मेरे लेबल और टूट जाता है जो प्रतीयमान विसंगति में चालू रखने के लिए:

Error in cut.default(sample(1:1e+05, 500, T), breaks = sq, labels = sprintf("$%.0f", : labels/breaks length conflict

यहाँ एक उदाहरण है । मैं दिखाता हूं कि यह 10,000 डॉलर के डिब्बे में 0 से $ 100,000 के अनुक्रम का उपयोग करके आय डेटा है। मैं लेबल तरफ नाबालिग बनाने के साथ, ब्रेक और लेबल दोनों उत्पन्न करने के लिए एक ही चर का उपयोग करता हूं। मैंने सोचा कि किसी चरित्र के वेक्टर की तुलना करते समय वे किसी कारण के लिए अलग-अलग लंबाई ले सकते हैं, लेकिन वे अभी भी वही लंबाई लगते हैं।

> sq<-seq(0,100000,10000) 
> cut(sample(1:100000, 500, T),breaks=sq,labels=sprintf("$%.0f",sq)) 
> length(sprintf("$%.0f",sq)) 
[1] [11] 
> length(sq) 
[1] [11] 

संपादित करें:

प्रति @thelatemail और @Josh ओ ब्रायन के सुझावों, मैं इस के लिए कोड बदल गया है और चीजों को चालू हालत में हैं। cut(sample(1:100000, 500, T),breaks=sq,labels=sprintf("$%.0f",sq[-1]))

Answer 1

cut() के साथ, 11 ब्रेक 10 स्तरों को सीमित करते हैं जिन्हें केवल 10 लेबल की आवश्यकता होगी। "labels/breaks length conflict" त्रुटि आपको बता रही है कि sprintf() पर कॉल labels= तर्क में एक बहुत से लेबल की आपूर्ति कर रहा है।

कोड में:

breaks <- 0:10/10 
dat <- runif(1e4) 

length(breaks) 
# [1] 11 
length(levels(cut(breaks, sq))) 
# [1] 10