减少轴标签和轴之间的曼哈顿图(Package: qqman in R)上的空白

library(qqman)

# 假设有一组基因组关联分析的结果数据
# 这里使用随机生成的数据作为示例
data <- data.frame(
  CHR = rep(1:22, each = 100),
  BP = rep(1:100, times = 22),
  P = runif(2200)
)

# 绘制曼哈顿图
manhattan(data, col = c("blue", "red"), xlim = c(0, max(data$BP)), ylim = c(0, -log10(0.05)))

# 设置横轴和纵轴的标签
xaxis_labels <- seq(0, max(data$BP), length.out = 5)
yaxis_labels <- seq(0, -log10(0.05), length.out = 6)
axis(side = 1, at = xaxis_labels, labels = xaxis_labels)
axis(side = 2, at = yaxis_labels, labels = yaxis_labels)

# 添加标题和图例
title(main = "Manhattan Plot", xlab = "Chromosome", ylab = "-log10(p-value)")
legend("topright", legend = c("Group 1", "Group 2"), col = c("blue", "red"), pch = 16)