# ライブラリ -------------------------------------------------------------------

pacman::p_load(tidyverse,pipeR,rvest,DataExplorer)

# ソース本文 -------------------------------------------------------------------

#各週刊少年ジャンプのURL情報を取得する
url_txt <- "https://mediaarts-db.bunka.go.jp/mg/magazine_titles/11470?display_view=pc&locale=ja"

data <- read_html(url_txt)

#対象のURL情報を取得
url_path <-data %>>%
  #aタグのノード情報を取得
  html_nodes(xpath = "//a") %>>%
  #属性を取得
  html_attr("href") %>>% 
  #データフレーム化
  as.data.frame() %>>%
  #リンク先の情報だけ取得できるようフィルタする
  filter(grepl("/mg/magazines/", .))

#ジャンプのURLから各作品の掲載情報を取得する

df_jump <- data_frame()

for (i in 1:nrow(url_path)) {
  url_txt2 <- paste0("https://mediaarts-db.bunka.go.jp",url_path$.[i])

  #ロケールを変更しないとテーブル情報を正しく読み込めないため、一時的にロケールを変更する
  if(i == 527){
    Sys.setlocale("LC_ALL","C")
  }

  data2 <- read_html(url_txt2)

  jump_data <- data2 %>>%
    #ノード情報を取得
    html_nodes(xpath = "//table[@class = 'infoTbl2']") %>>%
    #テーブル情報を取得
    html_table() %>>%
    '[['(1)

  #一時的に変更したロケールを元に戻す
  if(i == 527){
    Sys.setlocale("LC_ALL", '.932')
  }

  jump_title <- data2 %>>%
    html_nodes(xpath = "//h1[@class='ttl']") %>>%
    html_text(trim = FALSE)

  jump_data <- jump_data %>>%
    mutate(タイトル=jump_title)

  jump_data$作品枚数 <- as.character(jump_data$作品枚数)

  #ジャンプの掲載情報を行結合で集約していく
  df_jump <- bind_rows(df_jump,jump_data)

}

#列名を変更
names(df_jump) <- c("category","title","author","sub_title","start_page","pages","remarks","form","number")

#表紙を飾ったマンガ作品のみを抽出
df_top <- df_jump %>>%
  #表紙のみ抽出
  filter(grepl("表紙",category)) %>>%
  #オールスター等は除きたいため、フィルタする
  filter(!grepl("[表紙]",title))


#カラーで載ったマンガ作品のみを抽出
df_1st <- df_jump %>>%
  #マンガ作品のみ抽出
  filter(grepl("マンガ作品",category)) %>>%
  #カラーのみ抽出
  filter(grepl("4色カラー",remarks))

#可視化
#表紙を飾ったマンガのbest100
df_top <- table(df_top$title) %>>%
  as.data.frame() %>>%
  arrange(desc(Freq)) %>>%
  head(100)


#カラーで載ったマンガのbest100
df_1st <- table(df_1st$title) %>>%
  as.data.frame() %>>%
  arrange(desc(Freq)) %>>%
  head(100)

#グラフで可視化する

#ggplotで可視化(100件だと見づらいので50件に絞る)
ggplot(df_top %>>% head(50),mapping = aes(x=reorder(Var1, Freq),y=Freq)) + 
  geom_bar(stat = "identity") + 
  coord_flip()

ggplot(df_1st %>>% head(50),mapping = aes(x=reorder(Var1, Freq),y=Freq)) + 
  geom_bar(stat = "identity") + 
  coord_flip()