カットやラベル/休憩長の競合

Question

：

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] 

EDIT：@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=引数に1つのあまりにも多くのラベルを供給していることを語っています。コードで

：

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

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