library(openxlsx)

df<-read.xlsx("http://kanggc.iptime.org/book/data/finance-k.xlsx")
df_dat<-data.matrix(df)

year<-as.numeric(df$year)
su<-df_dat[,2]
bs<-df_dat[,3]
dg<-df_dat[,4]
ic<-df_dat[,5]
gj<-df_dat[,6]
dj<-df_dat[,7]
us<-df_dat[,8]
sj<-df_dat[,9]
gg<-df_dat[,10]
gw<-df_dat[,11]
cb<-df_dat[,12]
cn<-df_dat[,13]
jb<-df_dat[,14]
jn<-df_dat[,15]
gb<-df_dat[,16]
gn<-df_dat[,17]
jj<-df_dat[,18]

plot(year,su,type="l",ylab="",col="black", ylim=c(0,100))
lines(year,bs,col="green")
lines(year,dg,col="blue")
lines(year,ic,col="red")
lines(year,gj,col="brown")
lines(year,dj,col="gray")
lines(year,us,col="gold")
lines(year,sj,col="orange")
lines(year,gg,col="black")
lines(year,gw,col="green")
lines(year,cb,col="blue")
lines(year,cn,col="red")
lines(year,jb,col="brown")
lines(year,jn,col="gray")
lines(year,gb,col="gold")
lines(year,gn,col="orange")
lines(year,jj,col="black")

legend("bottomleft",legend=c("su","bs","dg","ic","gj","dj","us","sj","gg",
                             "gw","cb","cn","jb","jn","gb","gn","jj"),col=c(1,3),lty=1)