r - 使用 ggplot2 和 plotly 的水平条形图

Question

给定的图使用 ggplot2 和 plotly 生成一个条形图。我想使用 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 的开发版本，您可以在绘图对象中将方向更改为水平（如此处所述）：

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