バープロットとビニングの問題

Question

私が研究しているプロジェクトで意味のあるバープロットを作るのに問題があります。これは私が作業しているdfのサンプルです。

 State JobCode  AverageYearlySalary 
2404 CA 15-1031    95820 
2408 IN 15-1031    94750 
2429 CA 15-2041    85570 
2451 NY 15-2041    79300 
2452 IN 15-2041    79150 

この点について私の苦労を概説しましょう。私はJobCodeを使って値を整理しようとしました：data1 <- reshape(data, idvar = "JobCode", timevar = "State", direction = "wide")。次にdfを行列test <- as.matrix(data1)に変換します。 JobCodeのデータ型は、私の問題の一部を引き起こしていると思われる文字です。完了したらbarplot(test4[,2:4], beside = TRUE)を使用しますが、常にエラー-0.01*height : non-numeric argument to binary operatorを受け取ります。

x軸にJobCode、次にAverageYearlySalaryの個体を整理して、y軸にAverageYearlySalaryという異なる状態を比較したいと考えています。私はRにはまったく新しいので、Googleとブルートフォースコーディングの約1時間半後に解決策を理解することはできません。

私は助けていただきありがとうございます。ありがとうございました。

Answer 1

あなたのバープロットに適切な行列を作成するだけです。そんなに助けをG5W感謝@

XT = xtabs(AverageYearlySalary ~ State + JobCode, data=test4) 
barplot(XT, beside=TRUE, col=rainbow(3), ylim=c(0,99000)) 
legend("topright", legend=rownames(XT), pt.bg=rainbow(3), pch=22)