data <- read.csv("d:/test/dat.txt",head=T)
data2 <-data.frame(data[,2],data[,3,],data[,5],data[,6])
row.names(data2) <-data[,1]
colnames(data2) <- c("h9売り場面積","h19売り場面積","h9年間販売額","h19年間販売額")
summary(data2[,1:4])
library(maptools)
plot(data2[,1],data2[,3],cex=0.2)
arrows(data2[,1],data2[,3],data2[,2],data2[,4],length=0.1,angle=6,code=2)
pointLabel(x=data2[,2], y=data2[,4], labels=rownames(data2),cex=0.6)
points(data2[,2],data2[,4],pch=2,col=2)
data2 <-data.frame(data[,2],data[,3,],data[,5],data[,6])
row.names(data2) <-data[,1]
colnames(data2) <- c("h9売り場面積","h19売り場面積","h9年間販売額","h19年間販売額")
summary(data2[,1:4])
library(maptools)
plot(data2[,1],data2[,3],cex=0.2)
arrows(data2[,1],data2[,3],data2[,2],data2[,4],length=0.1,angle=6,code=2)
pointLabel(x=data2[,2], y=data2[,4], labels=rownames(data2),cex=0.6)
points(data2[,2],data2[,4],pch=2,col=2)