source("pca_plot.r")
pca_plot(
  eigenvector = "snp.eigenvector.xls",
  eigenvalue = "snp.eigenvalue.xls",
  group = "group_pca.xls",
  outdir = "pca",
  key = "snp",
  width = 8,
  height = 6,
  cexMain = 12,
  cexTick = 12,
  x_tick_angle = 0,
  x_tick_vjust = 0,
  add_lab = F,
  expand = c(0.02, 0.02)
)