설정 바 R의 차트 및 I는 다음과 같은 명령을 사용하여 홍채 데이터 세트로부터 데이터 프레임을 만들었

Question

항목의 표시 카운트 범위 :

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

번째 명령 내게 Sepal.Length의 범위를 말한다. plotly 또는 ggplot2를 사용하여 코드가 자동으로 Sepal.Length의 범위를 결정하고 각 범위에 해당 범위의 모든 Sepal.Length 값의 수를 제공하는 막대가 하나씩 포함되도록 막대 그림을 구현하고 싶습니다. 그래서 결정된 범위가 "2-4", "4-6", "6-8"이라면, 나는 모든 sepal의 수를 나에게주는 3 개의 막대를 얻어야한다고 가정합시다. "2-4"사이의 길이 값, "4-6"과 "6-8". 스냅 샷 첨부하기 아래 플롯에서 코드가 결정할 범위와 x 축 레이블을 편집하고 "total_bill"레이블을 "cases"로 편집하고자합니다. 고마워 도와주세요.

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() 

전설을 제거하고 :

,

(I) 각 그룹의 개수를 계산

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

(II)의 정의 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)