ggbiplot, vector labels go outside of the plot frame

Question

Here\'s my code

ggbiplot(concen.PCA, groups=type[![enter image description here][1]][1], ellipse=TRUE)+
  labs(x=expression("PC1 47.4% variance"),