- 注文＆着色因子変数によって、および棒グラフで

Question

こんにちは、

私は上のX軸および周波数カウントに顧客セグメントを示したことになる、注文した棒グラフを生成するplotly使用していますY軸。 問題は、セグメントの頻度に応じて色を設定することです。

私はこれと同じ構造を持つ93回の観測とデータフレームを使用しています：

予想通り

df <- data.frame(
     Segments = c("Pete", "Gary", "TopNews"...), 
     Frequency = c(4,2,5...) 
     ) 

問題

は、Rは、自動的要因として「セグメント」変数を認識しました。グラフを初めてプロットしたとき、それは（予想どおり）それ自体を注文しました。すなわち、だから、これは問題ではありませんでしたが、私は「のFreq」変数にバーの色を結ぶしようとしたとき、それが問題となっ

plot_ly(Segments2, y = ~Var1, x = ~Freq, type = "bar", orientation = 'h') 

：私は、次のコードを使用

plot_ly(Segments2, y = ~Var1, x = ~Freq, type = "bar", color = ~Freq, orientation = 'h') 

もちろん

は、Rは、次のエラーのプリント：だから、すべてのすべてで

‘range’ not meaningful for factors 

を、私の質問は：どのように私は、シーケンシャルカラーとして周波数を使用するように順序付けplotly棒グラフに色をしますか？

Answer 1

あなたはオブジェクトのcolorにあなたの周波数を追加することができます。

library(plotly) 

df <- data.frame(
    Segments = c("Pete", "Gary", "TopNews", "Harry"), 
    Freq = c(4,2,5,3) 
) 

plot_ly(df, 
     y = ~Segments, 
     x = ~Freq, 
     type = "bar", 
     orientation = 'h', 
     marker = list(color = df$Freq, 
         showscale=T) 
     )