r:baseball_data
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
r:baseball_data [2017/06/05 08:21] – hkimscil | r:baseball_data [2017/06/05 09:14] – hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
{{: | {{: | ||
+ | {{: | ||
+ | < | ||
+ | |||
+ | setwd(" | ||
+ | data <- read.csv(" | ||
+ | head(data, | ||
+ | data$forward_rate <- (data$출루율/ | ||
+ | |||
+ | bp <- barplot(data$forward_rate, | ||
+ | main=paste(" | ||
+ | col=rainbow(25), | ||
+ | cex.names=0.7, | ||
+ | names.arg=data$선수명, | ||
+ | ylim=c(0, | ||
+ | |||
+ | title(ylab=" | ||
+ | |||
+ | aver <- 0 | ||
+ | for(i in 1: | ||
+ | { aver <- aver+data$forward_rate[i] } | ||
+ | aver <- aver/ | ||
+ | aver | ||
+ | |||
+ | abline(h=aver, | ||
+ | text(x=aver-11, | ||
+ | text(x=bp*1.01, | ||
+ | | ||
+ | |||
+ | dev.copy(png, | ||
+ | dev.off() | ||
+ | |||
+ | </ | ||
+ | |||
+ | {{: | ||
+ | |||
+ | 나이팅게일 챠트 | ||
+ | < | ||
+ | data <- read.csv(" | ||
+ | data | ||
+ | |||
+ | row.names(data) <- data$선수명 | ||
+ | data2 <- data[, | ||
+ | stars(data2, | ||
+ | | ||
+ | dev.copy(png, | ||
+ | dev.off() | ||
+ | |||
+ | |||
+ | label <- names(data2) | ||
+ | val <- table(label) | ||
+ | color <- c(" | ||
+ | pie(val, | ||
+ | dev.copy(png, | ||
+ | dev.off() | ||
+ | </ | ||
+ | |||
+ | {{: | ||
+ | {{: | ||
+ | |||
+ | < | ||
+ | # | ||
+ | |||
+ | data4 <- data[, | ||
+ | data4 | ||
+ | line1 <- data$연봉대비출루율 | ||
+ | line2 <- data$연봉대비타점율 | ||
+ | | ||
+ | par(mar=c(5, | ||
+ | |||
+ | plot(line1, | ||
+ | | ||
+ | | ||
+ | axis(1, | ||
+ | axis(2, | ||
+ | par(new=T) | ||
+ | | ||
+ | plot(line2, | ||
+ | axis(4, | ||
+ | mtext(side=4, | ||
+ | mtext(side=2, | ||
+ | |||
+ | abline(h=seq(0, | ||
+ | |||
+ | legend(18, | ||
+ | |||
+ | </ | ||
+ | {{: | ||
+ |
r/baseball_data.txt · Last modified: 2019/09/18 08:00 by hkimscil