setwd("~/Projekte/data-learning/test_data") data = read.table("PrincipleComponents_PCA.dat",header=FALSE) plot(data$V1,data$V2) data = read.table("PrincipleComponents_PCA.dat",header=FALSE) plot(data$V1,data$V2) data = read.table("PrincipleComponents_PCA.dat",header=FALSE) plot(data$V1,data$V2) plot(data$V1,data$V2)