remotes::install_github("paithiov909/pipian")

sentence <- "ふと振り向くと、たくさんの味方がいてたくさんの優しい人間がいることを、わざわざ自分の誕生日が来ないと気付けない自分を奮い立たせながらも、毎日こんな、湖のようななんの引っ掛かりもない、落ちつき倒し、音一つも感じさせない人間でいれる方に憧れを持てたとある25歳の眩しき朝のことでした"

df <- sentence %>% 
  pipian::ppn_cabocha() %>% 
  pipian::ppn_parse_xml()

head(df)
#>   doc_id sentence_id chunk_id token_id    token chunk_link chunk_score
#> 1      1           1        1        0     ふと          2    1.287564
#> 2      1           1        2        1 振り向く         37   -2.336376
#> 3      1           1        2        2       と         37   -2.336376
#> 4      1           1        2        3       、         37   -2.336376
#> 5      1           1        3        4 たくさん          4    1.927252
#> 6      1           1        3        5       の          4    1.927252
#>   chunk_head chunk_func entity POS1     POS2 POS3 POS4      X5StageUse1
#> 1          1          0   <NA> 副詞     一般 <NA> <NA>             <NA>
#> 2          2          2   <NA> 動詞     自立 <NA> <NA> 五段・カ行イ音便
#> 3          2          2   <NA> 助詞 接続助詞 <NA> <NA>             <NA>
#> 4          2          2   <NA> 記号     読点 <NA> <NA>             <NA>
#> 5          5          5   <NA> 名詞 副詞可能 <NA> <NA>             <NA>
#> 6          5          5   <NA> 助詞   連体化 <NA> <NA>             <NA>
#>   X5StageUse2 Original    Yomi1    Yomi2
#> 1        <NA>     ふと     フト     フト
#> 2      基本形 振り向く フリムク フリムク
#> 3        <NA>       と       ト       ト
#> 4        <NA>       、       、       、
#> 5        <NA> たくさん タクサン タクサン
#> 6        <NA>       の       ノ       ノ

g <- df %>% 
  pipian::ppn_make_graph()

print(g)
#> IGRAPH 4994b32 DN-- 38 38 -- 
#> + attr: name (v/c), tokens (v/c), pos (v/c), score (e/n)
#> + edges from 4994b32 (vertex names):
#>  [1] 111 ->112  112 ->1137 113 ->114  114 ->115  115 ->119  116 ->118 
#>  [7] 117 ->118  118 ->119  119 ->1110 1110->1114 1111->1114 1112->1113
#> [13] 1113->1114 1114->1118 1115->1116 1116->1117 1117->1118 1118->1132
#> [19] 1119->1120 1120->1130 1121->1122 1122->1123 1123->1124 1124->1130
#> [25] 1125->1127 1126->1127 1127->1128 1128->1129 1129->1130 1130->1132
#> [31] 1131->1132 1132->1136 1133->1134 1134->1136 1135->1136 1136->1137
#> [37] 1137->110  110 ->110

pagerank <- igraph::page.rank(g, directed = TRUE)

plot(
  g,
  vertex.size = pagerank$vector * 50,
  vertex.color = "steelblue",
  vertex.label = igraph::V(g)$tokens,
  vertex.label.cex = 0.8,
  vertex.label.color = "black",
  edge.width = 0.4,
  edge.arrow.size = 0.4,
  edge.color = "gray80",
  layout = igraph::layout_as_tree(g, mode = "in", flip.y = FALSE)
)