Lec05: Manipulate

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

• Posit support page: Interactive Plotting with Manipulate

manipulate関数の書き方``

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

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

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

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

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

ライブラリのインストール

install.packages("manipulate")

ライブラリの読み込み

library(manipulate)

Function: plot

• pch: plot character
• las: label style

色の選択

title<-"PCH Symbols"
xlabel="x"
ylabel="y"
plot(0,1,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()関数

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,step=2)
)

軸ラベル表示の選択

• checkbox()関数

manipulate(
  plot(0,0,pch=8,cex=mySize,col="blue", ann=annFlag, ylab="Y axis",xlab="X axis"),
  mySize=slider(1,11,initial=5,step=2),
  annFlag = checkbox(FALSE, "Show Label")
  )

オンライン記事から情報を取得 (Ref. Lec02)

ライブラリの読み込み

library(httr)
library(rvest)

Mainichi Japan’s Article titled “A sharply divided America decides between Trump and Harris

# URL of the Mainichi Shinbun's article
url <- "https://mainichi.jp/english/articles/20241106/p2g/00m/0in/002000c"

# Send a GET request with a user agent
response <- GET(url, user_agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 14_7) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/18.0 Safari/605.1.15"))
page <- read_html(response)

Extract the content

article_content <- html_text(html_nodes(page, "p.txt"), trim = TRUE)

article_content[9]

[1] "\"This truly represents the best of who we are,\" Harris told a room of cheering staffers. She was handed a cellphone by supporters doing phone banking, and when asked by reporters how she was feeling, the vice president held up a phone and responded, \"Gotta talk to voters.\""

Text Cleaning

• trimws: Remove leading and/or trailing whitespace from character strings
• gsub: Pattern Matching and Replacement
• paste: Concatenate Strings

#cleaned_content <- gsub("\\r|\\n", "", article_content)
cleaned_content <- trimws(article_content)
cleaned_content <- paste(cleaned_content, collapse = "")
substring(cleaned_content, 1, 100)

[1] "WASHINGTON (AP) -- A divided America weighed a stark choice for the nation's future Tuesday as a pre"

出現単語頻度表の作成（高頻度順）

wordLst<-strsplit(cleaned_content,"[[:space:]]|[[:punct:]]")
wordLst<-unlist(wordLst)
wordLst<-tolower(wordLst)
wordLst<- wordLst[wordLst != ""]
freq <- table(wordLst)
freq_data<-sort(freq, decreasing=TRUE)

paste("Tokens", sum(freq_data), sep = ": ")
paste("Types", length(freq_data), sep = ": ")

length(sub_freq_data)

[1] 30

las: label style

las = 0 : XYの両軸とも目盛り文字は軸方向（デフォルト）
las = 1 : XYの両軸とも目盛り文字は水平方向
las = 2 : XYの両軸とも目盛り文字は軸方向と直角
las = 3 : XYの両軸とも目盛り文字は垂直方向

barplot(sub_freq_data, las=3,col=colPalets,ylab="Frequency")

練習:freq_dataを棒グラフで表示し、manipulate関数を使用して、以下の2点をインタラクティブに変更できるようにしてください。

-軸ラベルの向き -freq_dataの最低頻度値（最小値=1,最大値=6,Step=1）

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

RColorBrewer Package

ライブラリの読み込み

library(wordcloud)

Loading required package: RColorBrewer

パレット情報

binfo<-brewer.pal.info[]
head(binfo)

パレットの抽出

palets <-rownames(binfo[binfo$maxcolors>10,])
palets

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

using a brewer.palet

palets[10]#"Paired"

[1] "Paired"

barplot(sub_freq_data, las=3,col=brewer.pal(10,palets[1]),ylab="Frequency")

Wordcloud

Wordcloud2

ライブラリのインストール

install.packages("wordcloud2")

library(wordcloud2)
wordcloud2(freq_data)

wordcloud2(freq_data, size = 0.7, shape = 'star')