image.png
首先是准备数据
表示整个基因的矩形数据
gene1<-data.frame(
xmin=15000,
xmax=16000,
ymin=1,
ymax=2
)
外显子的数据...exon<-
data.frame(
xmin=c(15100,15300,15700),
xmax=c(15200,15600,15900),
ymin=1,
ymax...ymax=ymax),
fill="white",color="black")+
geom_rect(data=exon,aes(xmin=xmin,...= xmin,
xmax = xmax,
ymin = ymin,
ymax = ymax
),
fill = "white", color = "...black"
) +
geom_rect(
data = exon, aes(
xmin = xmin,
xmax = xmax,
ymin = ymin