ggplot2 및 음영을 사용하는 가로 막대 플롯

Question

주어진 플롯은 ggplot2 및 플롯을 사용하여 막대 그래프를 생성합니다. 나는 ggplotly (p)를 사용하여 비슷한 수평 바 롯트를 만들고 싶다. geom_bar()에서 coord_flip() 속성을 사용했지만 도움이되지 않았습니다. 도와 줘서 고마워.

library(plotly) 
dat <- data.frame(
time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")), 
total_bill = c(14.89, 17.23)) 
p <- ggplot(data=dat, aes(x=time, y=total_bill)) + 
geom_bar(stat="identity") 
p <- ggplotly(p) 

Answer 1

당신이 ggplot2의 개발 버전을 설치하는 경우 (here를 설명 참조) 플롯 객체의 수평의 방향을 변경할 수 있습니다 [수평 Barplot의

p <- ggplot(data=dat, aes(x=time, y=total_bill)) + 
    geom_bar(stat="identity") + 
    coord_flip() 

l = plotly_build(p) 
l$data[[1]]$orientation <- "h" 
l