Rを使って短歌の「詩的度」を測る

# A tibble: 4 × 301
  key      dim_0   dim_1  dim_2    dim_3   dim_4  dim_5   dim_6   dim_7   dim_8
  <chr>    <dbl>   <dbl>  <dbl>    <dbl>   <dbl>  <dbl>   <dbl>   <dbl>   <dbl>
1 が     -0.0990  0.102  0.0315  0.0344  -0.0516 0.0372 0.00477 -0.0513 0.0875 
2 新しい -0.0948 -0.0996 0.0667  0.00933 -0.0159 0.0456 0.111    0.0369 0.0713 
3 朝     -0.0754 -0.0258 0.145   0.0443   0.0791 0.0387 0.0115   0.0184 0.0777 
4 来た   -0.0675 -0.0613 0.0530 -0.0104   0.116  0.0115 0.0545  -0.0185 0.00332
# ℹ 291 more variables: dim_9 <dbl>, dim_10 <dbl>, dim_11 <dbl>, dim_12 <dbl>,
#   dim_13 <dbl>, dim_14 <dbl>, dim_15 <dbl>, dim_16 <dbl>, dim_17 <dbl>,
#   dim_18 <dbl>, dim_19 <dbl>, dim_20 <dbl>, dim_21 <dbl>, dim_22 <dbl>,
#   dim_23 <dbl>, dim_24 <dbl>, dim_25 <dbl>, dim_26 <dbl>, dim_27 <dbl>,
#   dim_28 <dbl>, dim_29 <dbl>, dim_30 <dbl>, dim_31 <dbl>, dim_32 <dbl>,
#   dim_33 <dbl>, dim_34 <dbl>, dim_35 <dbl>, dim_36 <dbl>, dim_37 <dbl>,
#   dim_38 <dbl>, dim_39 <dbl>, dim_40 <dbl>, dim_41 <dbl>, dim_42 <dbl>, …

[1] 0.2138897

[1] 0.7187364

[1] 0.67444

[1] 0.5455914

[1] 0.8785529

[[1]]
[1] "水槽に\tさかなを容れて飼うようにたぶんこのまま付かない既読"
[2] "水槽にさかなを\t容れて飼うようにたぶんこのまま付かない既読"
[3] "水槽にさかなを容れて\t飼うようにたぶんこのまま付かない既読"
[4] "水槽にさかなを容れて飼うように\tたぶんこのまま付かない既読"
[5] "水槽にさかなを容れて飼うようにたぶん\tこのまま付かない既読"
[6] "水槽にさかなを容れて飼うようにたぶんこのまま\t付かない既読"
[7] "水槽にさかなを容れて飼うようにたぶんこのまま付かない\t既読"
[8] "水槽にさかなを容れて飼うようにたぶんこのまま付かない既\t読"

# A tibble: 4 × 6
  doc_id                                            max median  mean   min     n
  <fct>                                           <dbl>  <dbl> <dbl> <dbl> <int>
1 水星をのぞむ明け方コンビニのFAXに「故障中」の…  0.816  0.631 0.645 0.525     8
2 2月5日夜のコンビニ暴力を含めてバランスを取る世… 0.752  0.665 0.652 0.596     7
3 ラスボスの手前でセーブするように無意味に入るフ… 0.879  0.543 0.611 0.488     6
4 水槽にさかなを容れて飼うようにたぶんこのまま付… 0.986  0.543 0.625 0.494     8

# A tibble: 4 × 6
  doc_id                                            max median  mean   min     n
  <fct>                                           <dbl>  <dbl> <dbl> <dbl> <int>
1 水星をのぞむ明け方コンビニのFAXに「故障中」の…  0.719  0.608 0.630 0.525     5
2 2月5日夜のコンビニ暴力を含めてバランスを取る世… 0.674  0.633 0.634 0.596     4
3 ラスボスの手前でセーブするように無意味に入るフ… 0.879  0.543 0.611 0.488     6
4 水槽にさかなを容れて飼うようにたぶんこのまま付… 0.553  0.543 0.535 0.494     5