【第六章 数据】统计词话 Demo 报错 about msg HOT 9 CLOSED

demo("SongWordsNet“, package = "MSG")
        ---- ~~~~~~~~~~~~

> require("igraph")
Loading required package: igraph

Attaching package: igraph

The following objects are masked from package:stats:

    decompose, spectrum

The following object is masked from package:base:

    union


> load(system.file('extdata','HighFreq100.rda',package='MSG'))

> g <- graph.adjacency((HighFreq100>0.05)*HighFreq100,mode="undirected",weighted
=T, diag=F)

> cg <- clusters(g)

> colbar <- as.numeric(as.factor(cg$csize[cg$membership+1]))

> V(g)$color <- rev(heat.colors(9))[colbar]

> ff <- as.numeric(cut(g[[9]][[4]]$weight,breaks=c(0.05,0.1,0.2,0.3,0.4)),right=
F)
Error in g[[9]][[4]] : subscript out of bounds
> sessionInfo()
R Under development (unstable) (2019-08-12 r76979)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Debian GNU/Linux 10 (buster)

Matrix products: default
BLAS:   /opt/R/R-devel/lib/R/lib/libRblas.so
LAPACK: /opt/R/R-devel/lib/R/lib/libRlapack.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
 [9] LC_ADDRESS=C               LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] igraph_1.2.4.1

loaded via a namespace (and not attached):
[1] compiler_3.7.0  magrittr_1.5    tools_3.7.0     pkgconfig_2.0.2
>

> sessionInfo()
R version 3.6.1 (2019-07-05)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 14393)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] igraph_1.2.4.1     vioplot_0.3.2      zoo_1.8-6          sm_2.2-5.6         RColorBrewer_1.1-2 maps_3.3.0        
 [7] KernSmooth_2.23-15 MSG_0.2.4          rpart_4.1-15       survival_2.44-1.1  formatR_1.7       

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.2       knitr_1.24       magrittr_1.5     splines_3.6.1    lattice_0.20-38  stringr_1.4.0    tcltk_3.6.1     
 [8] tools_3.6.1      grid_3.6.1       packrat_0.5.0    xfun_0.8         htmltools_0.3.6  yaml_2.2.0       digest_0.6.20   
[15] bookdown_0.12    latex2exp_0.4.0  Matrix_1.2-17    rsconnect_0.8.15 evaluate_0.14    rmarkdown_1.14   stringi_1.4.3   
[22] compiler_3.6.1   magick_2.1       pkgconfig_2.0.2 

load(system.file("extdata", "HighFreq100.rda", package = "MSG"))
write.table(HighFreq100, "HighFreq100.csv")

ff <- as.numeric(cut(g[[9]][[4]]$weight, breaks = c(0.05, 0.1, 0.2, 0.3, 0.4)), right = F)

str(g)
List of 10
 $ :List of 1
  ..$ 自然: 'igraph.vs' Named int [1:6] 2 9 16 18 85 96
  .. ..- attr(*, "names")= chr [1:6] "逍遥" "无为" "修行" "清净" ...
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 逍遥: 'igraph.vs' Named int [1:8] 1 5 9 18 25 39 43 74
  .. ..- attr(*, "names")= chr [1:8] "自然" "物外" "无为" "清净" ...
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 人间: 'igraph.vs' Named int 26
  .. ..- attr(*, "names")= chr "万里"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 何处: 'igraph.vs' Named int(0) 
  .. ..- attr(*, "names")= chr(0) 
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 物外: 'igraph.vs' Named int [1:3] 2 39 43
  .. ..- attr(*, "names")= chr [1:3] "逍遥" "云水" "自在"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 明月: 'igraph.vs' Named int 45
  .. ..- attr(*, "names")= chr "清风"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 风流: 'igraph.vs' Named int [1:2] 57 65
  .. ..- attr(*, "names")= chr [1:2] "千古" "当年"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 东风: 'igraph.vs' Named int 27
  .. ..- attr(*, "names")= chr "风吹"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 无为: 'igraph.vs' Named int [1:8] 1 2 16 18 36 43 85 99
  .. ..- attr(*, "names")= chr [1:8] "自然" "逍遥" "修行" "清净" ...
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 $ :List of 1
  ..$ 尊前: 'igraph.vs' Named int [1:2] 79 83
  .. ..- attr(*, "names")= chr [1:2] "相逢" "人生"
  .. ..- attr(*, "env")=<weakref> 
  .. ..- attr(*, "graph")= chr "8befa314-c332-11e9-80f1-ed1b15b68ff1"
 - attr(*, "class")= chr "igraph"
> g[[9]]
$无为
+ 8/100 vertices, named, from 8befa31:
[1] 自然 逍遥 修行 清净 功成 自在 功行 些儿