如何在R中的X轴上画短线

install.packages("ggplot2")
library(ggplot2)

df <- data.frame(x = c(1, 2, 3, 4, 5), y = c(10, 20, 30, 40, 50))

plot <- ggplot(data = df)

plot + geom_segment(aes(x = x, y = y, xend = x, yend = y + 5))

# 安装并加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建数据框
df <- data.frame(x = c(1, 2, 3, 4, 5), y = c(10, 20, 30, 40, 50))

# 创建绘图对象
plot <- ggplot(data = df)

# 添加短线
plot + geom_segment(aes(x = x, y = y, xend = x, yend = y + 5))

# 添加标题和坐标轴标签
plot + geom_segment(aes(x = x, y = y, xend = x, yend = y + 5)) +
  labs(title = "Short Lines on X-axis", x = "X-axis", y = "Y-axis")