Prj Aerial

今日話す人:　Shoichi Otomo

http://www.aerial-proj.org/

次の1000年を支えるプロジェクト

ぷろじぇくと　えありある

@GeoJackass

自己紹介

元JAXA　去年慶應　また慶應

大友　翔一　33歳　男性　独身

技術書を書いたり、ビジネス誌で連載をしたりする

R4Rの取り組みとして必要になること

1. データの重要性を認識させる

2. ITなどのインフラ整備を行う

広義の意味で、教育投資を行う

海水温・海風のデータ

海流のデータ

プランクトンのデータ

大黒海浜公園

本牧海浜公園

移動平均を用いた推計モデル

prep_ggpl <- function(){
  choka.df <- data.frame(pdate,aji,saba,konoshiro,shikoiwashi,shirogisu)
  choka.bind <<- cbind(1:nrow(choka.df), choka.df)
  colnames(choka.bind)[1] <- "id"
  choka.melted <<- melt(choka.bind, id.var=c("id", "pdate"))
  colnames(choka.melted)[3] <- "gyosyu"
}

draw_plot <- function(){
#draw_plot <- function(place){
#  ggtl <- paste(place,"fishing","park",sep="-")
  g <- ggplot(choka.melted, aes(x=as.Date(choka.melted$pdate), y=choka.melted$value, colour=choka.melted[,3]))
  g <- g + geom_line(size=1)
  g <- g + xlab("Date") + ylab("volume") + ggtitle(ggtl) + labs(colour="kinds")
#  plot(g)
}

moving_ave_aji <- function(){
  w3 <- rep(1,3)/3 ; w7 <- rep(1,7)/7 ; w14 <- rep(1,14)/14
  aji3 <- filter(aji, filter=w3, sides=2)
  aji7 <- filter(aji, filter=w7, sides=2)
  aji14 <- filter(aji, filter=w14, sides=2)
  aji.df <<- data.frame(pdate, aji, aji3, aji7, aji14)
  aji.bind <<- cbind(1:nrow(aji.df), aji.df)
  colnames(aji.bind)[1] <- "aji.b.id"
  aji.melted <- melt(aji.bind, id.var=c("aji.b.id", "pdate"))
  aji_p <- ggplot(aji.bind, aes(x=as.Date(aji.melted$pdate), y=aji.melted$value, colour=aji.melted[,3]))
  aji_p <- aji_p + geom_line(size=1)
  aji_p <- aji_p + xlab("Date") + ylab("volume") + ggtitle("") + labs(colour="moving-ave-range")
#plot(aji_p)
}

長期的な展望・メリット