在R中的ggplot条形图中移动X轴的位置

Question

给定的脚本使用ggplot2包创建水平条形图。 我想在图表上方移动x轴详细信息和标签。 请帮忙。

library(ggplot2)
library(plotly)
time <- c("A","B","C")
total_bill <- c(12,34,23)
dat <- data.frame(time,total_bill)
p <- ggplot(data=dat, aes(x=time, y=total_bill)) +
geom_bar(stat="identity", fill = "#3399ff") +
coord_flip()
ggplotly(p)

Answer 1

如果您不需要使用ggplotly（）函数，则可以尝试：

library(ggplot2)
time <- c("A","B","C")
total_bill <- c(12,34,23)
dat <- data.frame(time,total_bill)
p <- ggplot(data=dat, aes(x=time, y=total_bill)) +
  geom_bar(stat="identity", fill = "#3399ff") +
  coord_flip()
p + scale_y_continuous(position = "top")