gghatano

df1 = data.frame(a = 1:3, b = 4:6, c = 7:9)
df2 = data.frame(c = 10:12, a = 13:15,  b = 16:18)

merge(df1,df2, all=TRUE)
#    a  b  c
# 1  1  4  7
# 2  2  5  8
# 3  3  6  9
# 4 13 16 10
# 5 14 17 11

gghatano

library(Lahman)
library(dplyr)
library(magrittr)
library(pings)

# Batting: season stats data frame of all the players
all_dat <- Batting %>% 
  select(yearID, AB, H, HR) %>%
  group_by(yearID) %>% 
  dplyr::summarise(H = sum(H, na.rm = TRUE), 

gghatano

gghatano

library(shiny)
library(ggplot2)
library(kernlab)
library(dplyr)
library(magrittr)

shinyServer(function(input, output){
  output$distPlot = reactivePlot(function(){
    param = 10 ^ input$param 
    #package 'kernlab' = kernel pca

gghatano

d=data.frame(lt=c("blank", "solid", "dashed", "dotted", "dotdash", "longdash", "twodash", "1F", "F1", "4C88C488", "12345678"))
ggplot() +
scale_x_continuous(name="", limits=c(0,1), breaks=NA) +
scale_y_discrete(name="linetype") +
scale_linetype_identity() +
geom_segment(data=d, mapping=aes(x=0, xend=1, y=lt, yend=lt, linetype=lt))

gghatano

library(dplyr)
library(magrittr)
library(data.table)
library(ggplot2)

# pitch f/x data 2013
dat = fread("2013.csv")
dat = dat %>% filter(sv_id !="NA")

# hit event

gghatano

library(Rcpp)
library(inline)

cpp_code = "
 using namespace Rcpp;
 double piSugar(int N){
   RNGScope scope;
   NumericVector x = runif(N);
   NumericVector y = runif(N);
   NumericVector d = sqrt(x*x + y*y);

gghatano

library(data.table)
library(dplyr)
library(stringr)

# read data 
dat = fread("all2013.csv")
fields = fread("fields.csv")
setnames(dat, fields$Header)

# processing datatable

gghatano

library(data.table)
library(plyr)
library(dplyr)

master = fread("Master.csv")
master$fullname = with(master, paste(nameFirst, nameLast))
name_id_data = with(master, data.frame(name = fullname, PIT_ID = retroID))

season_babip <- function(year){
  filename = paste("all", year, ".csv", sep="")  

gghatano

library(pitchRx)
library(ggplot2)
library(data.table)
library(dplyr)

# データ取得
# data = scrapeFX("2013-01-01", "2013-10-01")
# 取得済みデータの利用
# data <- fread("2013.csv")