はRで棒グラフのための範囲を設定し、項目

Question

のカウントを表示する私は、次のコマンドを使用して、虹彩データセットからのデータフレームを作成しました：

new_iris = data.frame(iris$Species,iris$Sepal.Length) 
range(iris$Sepal.Length) 

2番目のコマンドは私にSepal.Lengthの範囲を伝えます。 plotlyまたはggplot2を使って、コードが自動的にSepal.Lengthの範囲を決定し、各範囲にその範囲内のSepal.Length値すべてのカウントを与える1つのバーが含まれるように棒グラフを実装したいとします。つまり、決められた範囲が「2-4」、「4-6」、「6-8」であれば、「2-4」の間のすべてのsepal.length値をカウントする3つの棒を取得する必要があります。 「4-6」および「6-8」。スナップショットを添付するには、下のプロットでは、コードが決める範囲でx軸ラベルを編集し、「ケース」でy軸ラベル「total_bill」を編集します。ありがとう、助けてください。

Answer 1

iris$sepal_gp <- cut(iris$Sepal.Length, breaks=3, include.lowest=TRUE) 
ggplot(iris, aes(sepal_gp, fill=Species)) + geom_bar() 

編集：ggplotlyでカスタムホバーテキストに入れ

ggplot(iris, aes(sepal_gp, fill=sepal_gp)) + geom_bar() 

凡例を削除すると：

（ⅰ）各グループのカウントを計算

library(dplyr) 
iris <- iris %>% 
    group_by(sepal_gp) %>% 
    mutate(sepal_gp_count = n()) 

（ⅱ）カスタムggplotにテキストをホバー挿入しますggplotlyで

p <- ggplot(iris, aes(sepal_gp, fill=sepal_gp, text=paste("Case: <br>", sepal_gp, "<br> Count: <br>", sepal_gp_count))) + 
     geom_bar() 

（III）プロット：

ggplotly(p, tooltip="text") %>% 
    layout(showlegend=FALSE)