R gene_d in chromsome

install.packages('RIdeogram')
require(RIdeogram)
file2 <- read.table('染色体大小文件.txt',header = T )
head(file2)
class(genne_d)
ideogram(karyotype = file2)
convertSVG("chromosome.svg", device = "png")
density <- read.table("ceshi2", sep = "\t", header = T,stringsAsFactors = T)
head(density)
ideogram(karyotype = file2, overlaid = density)
convertSVG("chromosome.svg", device = "png")