sites=c("all","gov.cn","stats.gov.cn","163.com","sohu.com","xinhuanet.com","wikipedia.org")
layout(matrix(1:9,3,3));
for(i in 1:length(sites)){
print(paste("Printing",sites[i]))
data=read.table(paste(sites[i],".txt",sep=""),sep=",")
plot(data$V1,data$V2,xlab="xx.yy%",ylab="count",pch=20)
title(sites[i])
}