Lec05: Manipulate

Lecture5: Wordcloudパッケージ, Manipulate関数

sentence1 & sentence1

sentence1 <- "The parent of Facebook, Instagram and WhatsApp reduced its work force by 13 percent and extended a hiring freeze through the first quarter of next year."

sentence2 <- "Over the summer, Lyft cut 2 percent of its employees, mostly as a result of shutting down its car rental business, and froze hiring. "

sentence1出現頻度表

wordLst<-strsplit(sentence1,"[[:space:]]|[[:punct:]]")
wordLst<-unlist(wordLst)
wordLst<-tolower(wordLst)
wordLst<- wordLst[wordLst != ""]
s1_freq <- table(wordLst)
(s1_freq_table<-sort(s1_freq, decreasing=TRUE))

wordLst
      and        of       the        13         a        by  extended  facebook     first 
        2         2         2         1         1         1         1         1         1 
    force    freeze    hiring instagram       its      next    parent   percent   quarter 
        1         1         1         1         1         1         1         1         1 
  reduced   through  whatsapp      work      year 
        1         1         1         1         1 

sentence2出現頻度表

wordLst<-strsplit(sentence2,"[[:space:]]|[[:punct:]]")
wordLst<-unlist(wordLst)
wordLst<-tolower(wordLst)
wordLst<- wordLst[wordLst != ""]
s2_freq <- table(wordLst)
(s2_freq_table<-sort(s2_freq, decreasing=TRUE))

wordLst
      its        of         2         a       and        as  business       car       cut 
        2         2         1         1         1         1         1         1         1 
     down employees     froze    hiring      lyft    mostly      over   percent    rental 
        1         1         1         1         1         1         1         1         1 
   result  shutting    summer       the 
        1         1         1         1 

２つの変数を連結(merge)

全ての単語

freq_merge <-merge(s1_freq_table, s2_freq_table, all=T, by="wordLst",suffixes = c(".s1",".s2"))
freq_merge

View

View(s1_freq_table)

共通単語のみ

merge(s1_freq_table, s2_freq_table, by="wordLst")

s1_freq_tableの単語基準

merge(s1_freq_table, s2_freq_table, all.x=TRUE, by="wordLst")

s2_freq_tableの単語基準

merge(s1_freq_table, s2_freq_table, all.y=TRUE, by="wordLst")

空セル（NA）に値を代入

freq_merge[is.na(freq_merge)] <- 0

View

View(freq_merge)

Loading packages: wordcloud, manipulate

library(wordcloud)
library(manipulate)

”sample_ja_2”の頻度テーブル

txt2<-readLines("sample_texts/sample_ja_2.txt")
wordLst<-strsplit(txt2,"[[:space:]]|[[:punct:]]")
wordLst<-unlist(wordLst)
wordLst<- wordLst[wordLst != ""]
freq2 <- table(wordLst)
freq_table2<-sort(freq2, decreasing=TRUE)
(freqData2 <- data.frame(freq_table2))

wordcloud(freqData2$wordLst,freqData2$Freq)

RColorBrewer Package

binfo<-brewer.pal.info[]
palets <-rownames(binfo[binfo$maxcolors>10,])
palets

 [1] "BrBG"     "PiYG"     "PRGn"     "PuOr"     "RdBu"     "RdGy"     "RdYlBu"   "RdYlGn"  
 [9] "Spectral" "Paired"   "Set3"    

wordcloud using custom colors

palets[10]

[1] "Paired"

wordcloud(freqData2$wordLst,freqData2$Freq, colors=brewer.pal(10,palets[1]))

wordcloud using custom colors

wordcloud(freqData2$wordLst,freqData2$Freq, colors=brewer.pal(10,palets[10]), min.freq=2)

wordcloud2

Introduction

install.packages('wordcloud2')

library('wordcloud2')

wordcloud2(freqData2)

manipulate (インタラクティブなプロット)

manipulate関数の書き方

• 単一実行スクリプトの場合

manipulate(
  実行スクリプト,
  picker, sliderの情報（複数の場合はカンマで結合）
)

• 複数実行スクリプトの場合

manipulate(
  {
  複数の実行スクリプト
  },
  picker, sliderの情報（複数の場合はカンマで結合）
)

注意：manipulate関数は、配布Notebookファイルではなく、拡張子”.R”のファイル上で確認すること

色の選択

title="PCH Symbols"
xlabel="x"
ylabel="y"
plot(0,0,pch=8,cex=5,col="blue", main=title, xlab=xlabel, ylab=ylabel)

• picker()関数

manipulate(plot(0,0,pch=8,cex=5,col=myColors), myColors=picker("red", "violet", "pink", "orange", "yellow", "green", "blue", "cyan") )

• picker()関数 & List

colors = c("red", "violet", "pink", "orange", "yellow", "green", "blue", "cyan")
manipulate(plot(0,0,pch=8,cex=5,col=myColors), myColors=picker(colors) )

プロットマーカーの選択

• マーカー
• picker()関数

manipulate(
  plot(0,0,pch=myMarkers,cex=5,col=myColors), myColors=picker("red", "violet", "pink", "orange", "yellow", "green", "blue", "cyan",initial="violet"),
  myMarkers=picker(1,2,3,4,5,6,7,8,initial="5")
)

picker + List

colPalets = c("red", "violet", "pink", "orange", "yellow", "green", "blue", "cyan")
manipulate(
  plot(0,0,pch=myMarkers,cex=5,col=myColors, main=title, xlab=xlabel, ylab=ylabel),
  myColors=picker(as.list(colPalets),initial=colPalets[2]),
  myMarkers=picker(as.list(seq(1,8)),initial="5")
)

プロットサイズの選択

• slider()関数

manipulate(
  plot(0,0,pch=8,cex=mySize,col="blue"),
  mySize=slider(1,10,initial=5)
)

棒グラフ(引数：テーブル型データの場合)

barplot(freq_table2[1:15], las=3, ylab="Frequency")

棒グラフ(引数：テーブルフレーム型の場合)

freqLst <- freqData2$Freq[1:15]
names(freqLst) <-freqData2$wordLst[1:15]
barplot(freqLst, las=3, ylab="Frequency")

色付き棒グラフ

color8 = c("red", "violet", "pink", "orange", "yellow", "green", "blue", "cyan")
barplot(freqLst, las=3,col=color8,ylab="Frequency")

練習1:manipulate関数で、上の棒グラフの軸ラベルの向き（変数las）と、色（変数col）をインタラクティブに変更できるようにしてください。

• 実行結果例は、配布資料の動画を参照

練習2:manipulate関数で、下のwordcloud描画の変数colorsと、変数min.freqをインタラクティブに変更できるようにしてください。

• 実行結果例は、配布資料の動画を参照

wordcloud using custom colors

wordcloud(freqData2$wordLst,freqData2$Freq, colors=brewer.pal(10,palets[10]), min.freq=2)