library(ggplot2)
dd <- data.frame(ref_start=c(1,3,5,7), ref_end=c(2,4,6,8),qry_start=c(11,12,13,18),qry_end=c(15,16,17,14),ref_tag=c("chr1","chr1","chr1","chr1"),qry_tag=c("chr1","chr1","chr1","chr1"))
ggplot(data = dd) +
geom_segment(aes(x = ref_start, y = qry_start,
xend = ref_end,yend = qry_end,color=qry_end-qry_start<0),size=10)+
scale_color_manual(values=c("red","blue"))+
theme(panel.background=element_rect(fill="white"),
panel.border=element_rect(fill=NA,color="grey",size=0.5,linetype=1),
rect = element_rect(fill = "white", colour = "black", size =5, linetype = 1),
panel.spacing.x = unit(0, "cm"),
panel.spacing.y = unit(0, "cm"),
axis.line = element_blank(),
axis.ticks = element_blank(),
axis.ticks.x= element_blank(),
axis.ticks.y= element_blank(),
axis.title.x=element_text(size=30,family = "serif"),
axis.title.y=element_text(size=30,color = "black",family = "serif"),
axis.text.x=element_blank(),
axis.text.y=element_blank(),
legend.position = 'none')
这应该是一个最小重复数据集吧?也可以作图,但为什么reprex()报错呢