Differences

This shows you the differences between two versions of the page.

--- r:baseball_data [2017/06/05 09:00] – hkimscil
+++ r:baseball_data [2017/06/05 11:37] – hkimscil
@@ Line 1: / Line 1: @@
+http://score.sports.media.daum.net/record/baseball/kbo/brnk.daum
+http://www.koreabaseball.com/Record/Player/HitterBasic/Basic1.aspx
 {{:r:baseball_performance.csv}}
 {{:r:17.3-1.txt}}
@@ Line 46: / Line 49: @@
 dev.copy(png, filename="baseball_ny.png")
 dev.off()
 label <- names(data2)
@@ Line 51: / Line 55: @@
 color <- c("black","red","green","blue","cyan","violet","yellow","grey")
 pie(val,labels=label,col=color, radius=0.1, cex=0.6) # 범례용 그래프 만들기
-savePlot("baseball_regend.png",type="png")
+dev.copy(png, filename="baseball_regend.png")
+dev.off()
+</code>
+{{:r:baseball_ny.png}}
+{{:r:baseball_regend.png}}
+<code>
 #연봉대비 출루율과 연봉대비 타점율 표현하기
@@ Line 69: / Line 79: @@
 par(new=T)
-plot(line2,type="o",axes=F, ylab="",xlab="",ylim=c(0,50),lty=2,col="red")
+plot(line2,type="o",axes=F, ylab="",xlab="",ylim=c(0,50),lty=2,col="red",lwd=2)
 axis(4,las=1)
 mtext(side=4,line=2.5,"연봉대비 타점율")
@@ Line 77: / Line 87: @@
 legend(18,50,names(data[21:22]),cex=0.8,col=c("red","blue"),lty=1,lwd=2,bg="white")
-savePlot("baseball_4.png",type="png")
 </code>
+{{:r:baseball_4.png}}