ggplot2:使用geom_segment和geom_text_repel创建(转录因子结合位点的)线性地图，包括一条线和填充的方框

library(ggplot2)

# 创建数据框，包含起点和终点的坐标
data <- data.frame(
  xstart = c(1, 2, 3),
  ystart = c(1, 2, 3),
  xend = c(4, 5, 6),
  yend = c(4, 5, 6)
)

# 创建线性地图
ggplot(data) +
  geom_segment(aes(x = xstart, y = ystart, xend = xend, yend = yend), color = "blue", size = 1)

library(ggplot2)
library(ggrepel)

# 创建数据框，包含方框的位置和文本
data <- data.frame(
  x = c(2, 4, 6),
  y = c(2, 4, 6),
  label = c("A", "B", "C")
)

# 创建线性地图，并添加填充的方框和文本
ggplot(data) +
  geom_segment(aes(x = 1, y = 1, xend = 7, yend = 7), color = "blue", size = 1) +
  geom_rect(aes(xmin = x - 0.5, xmax = x + 0.5, ymin = y - 0.5, ymax = y + 0.5), fill = "gray") +
  geom_text_repel(aes(x = x, y = y, label = label), color = "white")