Differences

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

--- r:baseball_data [2017/06/05 08:55] – hkimscil
+++ r:baseball_data [2019/09/18 08:00] (current) – 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 32: / Line 35: @@
 </code>
+{{:r:out_rate.png}}
+나이팅게일 챠트
+<code>
+data <- read.csv("주요선수별성적-2013년.csv", header=T)
+data
+row.names(data) <- data$선수명
+data2 <- data[,c(7,8,11,12,13,14,17,19)]
+stars(data2,flip.labels=FALSE, draw.segment=TRUE, frame.plot=TRUE, full=TRUE,
+     main=" 야구 선수별 주요 성적 분석-2013년 ")
+dev.copy(png, filename="baseball_ny.png")
+dev.off()
+label <- names(data2)
+val <- table(label)
+color <- c("black","red","green","blue","cyan","violet","yellow","grey")
+pie(val,labels=label,col=color, radius=0.1, cex=0.6) # 범례용 그래프 만들기
+dev.copy(png, filename="baseball_regend.png")
+dev.off()
+</code>
+{{:r:baseball_ny.png}}
+{{:r:baseball_regend.png}}
+<code>
+#연봉대비 출루율과 연봉대비 타점율 표현하기
+data4 <- data[,c(2,21,22)]
+data4
+line1 <- data$연봉대비출루율
+line2 <- data$연봉대비타점율
+par(mar=c(5,4,4,4)+0.1)
+plot(line1,type="o",axes=F, ylab="",xlab="",ylim=c(0,50),lty=2,col="blue",
+     main="한국프로야구선수별 기록분석-2013년",lwd=2)
+axis(1,at=1:25,lab=data4$선수명,las=2)
+axis(2,las=1)
+par(new=T)
+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,"연봉대비 타점율")
+mtext(side=2,line=2.5,"연봉대비 출루율")
+abline(h=seq(0,50,5),v=seq(1,25,1),col="gray",lty=2)
+legend(18,50,names(data[21:22]),cex=0.8,col=c("red","blue"),lty=1,lwd=2,bg="white")
+</code>
+{{:r:baseball_4.png}}
+{{tag> statistics r "baseball data" "sports analysis"}}