在ggplot中添加带刻度的轴和不带标签的轴

library(ggplot2)

# 创建数据
data <- data.frame(x = 1:5, y = 1:5)

# 创建ggplot对象并绘制散点图
p <- ggplot(data, aes(x, y)) +
  geom_point()

# 添加带刻度的x轴
p <- p + scale_x_continuous(breaks = 1:5)

# 显示图形
print(p)

library(ggplot2)

# 创建数据
data <- data.frame(x = 1:5, y = 1:5)

# 创建ggplot对象并绘制散点图
p <- ggplot(data, aes(x, y)) +
  geom_point()

# 添加不带标签的x轴
p <- p + theme(axis.text.x = element_blank())

# 显示图形
print(p)