Lec08: Shiny, Collocate(RMecCab)

Lecture08: Shiny, Collocate関数(RMecCab)

課題２の補足：プロットエリアの余白

RMeCab

ライブラリー&パッケージの読み込み

path_home <- system("echo $HOME",intern=T)
lib_path <- paste(path_home,"/usr/local/lib/libmecab.so.2", sep="")
dyn.load(lib_path)
library(RMeCab)

分かち書き＆頻度表（テキストファイル使用）

View(freqNews1)

Collocation

collo_ja <- collocate(file = "nhk_news/nhk_news_1.txt", node = "カブトムシ", span = 3)

file = nhk_news/nhk_news_1.txt 
length = 87 

記号除外

共起スコア: T, MI

collScores(collo_ja,"カブトムシ", span = 3)

Error in collScores(collo_ja, "カブトムシ", span = 3) : 
  could not find function "collScores"

ディレクトリ内のファイル名を取得

(files <- list.files(dirName))

 [1] "kyoto1.txt"  "kyoto2.txt"  "osaka1.txt"  "osaka2.txt"  "osaka3.txt"  "osaka4.txt" 
 [7] "tokyo1.txt"  "tokyo2.txt"  "waseda1.txt" "waseda2.txt"

filesDir[1]

[1] "univ/kyoto1.txt"

filename

[1] "univ/osaka4.txt"

Collocationの取得手順

テキストの読み込み

txt<-readLines(filename)
txt<-strsplit(txt,"[[:space:]]|[[:punct:]]")
txt<-unlist(txt)
txt<-tolower(txt)
txt<- txt[txt != ""]
head(txt)

[1] "greetings" "everyone"  "today"     "i"         "was"       "appointed"

中心語の設定＆出現位置

• 中心語(node)=“education”
• ignore.case: 大文字・小文字の区別
• 文字検索: grep
• grep使用例

node <- "education"
(nodeLst <- grep("^education$",txt, value=T))

[1] "education" "education"

(nodeIndex <- grep("^education$",txt, ignore.case = T))

[1]  17 695

周辺語の抽出

• span=2

Left1 <- txt[nodeIndex-1]
Left2 <- txt[nodeIndex-2]
Right1 <- txt[nodeIndex+1]
Right2 <- txt[nodeIndex+2]

コンコーダンス

collo <- cbind(Left2, Left1, nodeLst, Right1, Right2)
colnames(collo) <- c("L2","L1","node","R1","R2")
rownames(collo) <- rep(1:dim(collo)[1])
collo

  L2         L1     node          R1           R2      
1 "minister" "of"   "education"   "culture"    "sports"
2 "research" "and"  "educational" "capability" "the"   
3 "missions" "were" "education"   "research"   "and"   

補足：grep関数による検索（部分一致）

grep(node,txt, ignore.case = T, value=T)

[1] "education"   "educational" "education"  

shiny

Shiny apps Demo

shinyパッケージのインストール

install.packages("shiny", dependencies = TRUE)

shinyパッケージのロード

library(shiny)

Shiny app作成手順

1. Shiny appのフォルダを作成
2. ui.R, server.R, (global.R)のスクリプトファイルを作成
3. runApp(フォルダ名)で実行

• Tutorial

app_hoge

• server.R
• ui.R ### Shinyアプリケーション”app_hoge”の実行

runApp("app_hoge")

app_hoge2

• server.R
• ui.R
• global.R

Shinyアプリケーション”app_hoge2”の実行

runApp("app_hoge2")

プロットマーカーのアプリケーション1”app_pch1”の実行

• PCH Symbols

runApp("app_pch1")

プロットマーカーのアプリケーション2”app_pch2”の実行

runApp("app_pch2")

Shinyでアプリケーションを作成する際の注意点

• UI（外観）部分から作り始める
• 少しずつコードを書いて、こまめに動作確認