gghatano

library(ggplot2)

# make dataframe
x <- seq(0,3, by = 0.1)
y <- x^2 
xy <- data.frame(x = x, y = y)

# plot
p <- ggplot()
p <- p + geom_line(data = xy, aes(x = x, y = y))

gghatano

#!/usr/bin/python
# -*- coding: utf-8 -*-
 
import re
import urllib
from BeautifulSoup import BeautifulSoup
 
html = '''
上記HTML。ここに書くと表示が乱れるので分けました。
'''

gghatano

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

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

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(data.table)
library(dplyr)
library(stringr)

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

# processing datatable

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(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

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(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