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