image.png

image.png

# Mon Dec 14 11:46:26 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
require(jsTree)

rm(list=ls());gc()

  data(states)
  data(state_bird)

  #collapse columns to text (with sep "/")
  nested_string <- apply(states,1,paste,collapse='/')
  jsTree(nested_string)

  #pass additional parameters to core
  jsTree(nested_string,core=list(multiple=FALSE))

  # Add tooltips to state names with the state bird
  jsTree(nested_string,tooltips = state_bird)

  #initialize tree with checked boxes for certain fields
  nodestate1 <- states$variable=='Area'
  jsTree(nested_string,nodestate=nodestate1)

  nodestate2 <- states$variable=='Area'&grepl('^M',states$state.name)
  jsTree(nested_string,nodestate=nodestate2)

  nodestate3 <- states$variable %in% c('Murder') & states$value >= 10
  nodestate4 <- states$variable %in% c('HS.Grad') & states$value <= 55
  jsTree(nested_string,nodestate=nodestate3|nodestate4)

  #change the order of the hierarchy
  nested_string2 <- apply(states[,c(4,1,2,3,5)],1,paste,collapse='/')

  jsTree(nested_string2)

  #use jsTree to visualize folder structure

  jsTree(list.files(full.names = TRUE,recursive = FALSE))

  ## Not run:
  # This may be too long for example if running from ~.
  jsTree(list.files(full.names = TRUE,recursive = TRUE))
  # Mon Dec 14 11:51:27 2020 --diy----------------------------

  # 字符编码：UTF-8
  # R 版本：R x64 4.0.3 for window 10
  # cgh163email@163.com
  # 个人笔记不负责任
  # —— 拎了个梨🍐
  .rs.restartR()
require(jsTree)
    library(tidyr)
  rm(list=ls());gc()

  jsTree(runif(10,1,90) %>% as.character())
    # Mon Dec 14 11:51:48 2020 --
  #
dt <- read.csv('cgh，演示数据.csv')
dt1 <- unite(dt,'a',Class,c,sep = '/')

jsTree(dt1$a)