pack the plot into function
change paint.R and pDBfunction.R GetVariantInfo