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

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