如何在R语言ggplot2水平条形图中移动X轴至图表顶部？

Got it! I see you want to move the numeric axis (total_bill) ticks and labels to the top of your horizontal bar chart created with ggplot2 and plotly. Since you're using coord_flip(), we need to adjust the right axis settings because flipping swaps the underlying x/y axis mapping. Here's the modified script and breakdown:

Modified R Script #

library(ggplot2)
library(plotly)

# Original data setup
time <- c("A","B","C")
total_bill <- c(12,34,23)
dat <- data.frame(time, total_bill)

# Updated plot code
p <- ggplot(data=dat, aes(x=time, y=total_bill)) +
  geom_bar(stat="identity", fill = "#3399ff") +
  coord_flip() +
  # Move the numeric axis (originally y-axis, now horizontal after flip) to top
  scale_y_continuous(position = "top") +
  # Ensure ticks and labels are visible at the top
  theme(
    axis.ticks.x.top = element_line(),
    axis.text.x.top = element_text(color = "black"),
    axis.title.x.top = element_text(margin = margin(b = 10)) # Optional: add space for axis title
  )

# Convert to interactive plotly chart
ggplotly(p)

Key Changes Explained #

• scale_y_continuous(position = "top"): When you use coord_flip(), your original y-axis (numeric total_bill values) becomes the horizontal axis displayed in the chart. Setting position = "top" shifts this axis's labels and ticks to the top edge.
• Theme adjustments: By default, ggplot might hide ticks for the top axis after flipping, so we explicitly enable axis.ticks.x.top and ensure axis.text.x.top is visible. The optional margin adjustment keeps the axis title from overlapping with the chart.

Alternative: Avoid coord_flip() (Clearer Axis Logic) #

If you want simpler axis mapping, you can create the horizontal bar chart directly without flipping axes, then move the x-axis to the top:

p <- ggplot(data=dat, aes(y=time, x=total_bill)) +
  geom_bar(stat="identity", fill = "#3399ff", orientation = "y") +
  scale_x_continuous(position = "top") +
  theme(
    axis.ticks.x.top = element_line(),
    axis.text.x.top = element_text(color = "black")
  )

ggplotly(p)

This works by mapping the categorical time variable to the y-axis and numeric total_bill to the x-axis directly. The orientation = "y" ensures bars are horizontal (ggplot usually infers this automatically, but it's explicit here).

内容的提问来源于stack exchange，提问作者Robert J