vtree

library(here)
here()

## [1] "C:/Users/s-das/Syncplicity Folders/MyProjects_IMP/MY_Papers_V2/TRB 2022/00 R Codes"

data <- read.csv(here("data", "All_Int_File.csv"))
dim(data)

## [1] 572  53

names(data)

##  [1] "SiteName"                      "I_Legs"                       
##  [3] "I_CorRtTurnRadAve"             "I_CorRtTurnRadStd"            
##  [5] "I_NumCorKeep"                  "StNBSB_DrvDisAppMin"          
##  [7] "StEBWB_DrvDisRecMin"           "StNBSB_Lanes"                 
##  [9] "StNBSB_ShoulderWidthAve"       "StNBSB_VolPedBike"            
## [11] "StNBSB_VolVeh"                 "StEBWB_DrvDisAppMin"          
## [13] "StNBSB_DrvDisRecMin"           "StEBWB_Lanes"                 
## [15] "StEBWB_ShoulderWidthAve"       "StEBWB_VolPedBike"            
## [17] "StEBWB_VolVeh"                 "I_TotCrossDis"                
## [19] "StNBSB_BikeLn"                 "StEBSW_BikeLn"                
## [21] "StEBWB_BikeLn"                 "StNBSB_CrossDisAve"           
## [23] "StEBWB_CrossDisAve"            "StNBSB_LaneWidth"             
## [25] "StEBWB_LaneWidth"              "StNBSB_Median"                
## [27] "StEBWB_Median"                 "StNBSB_OWorTW"                
## [29] "StEBWB_OWorTW"                 "StNBSB_Park"                  
## [31] "StEBWB_Park"                   "I_Develop"                    
## [33] "State"                         "SiteID"                       
## [35] "IntLegs"                       "I_CorTrTurnRadStd"            
## [37] "StNBSB_VolPed"                 "StEBWB_NDrvDisRecMin"         
## [39] "StEBWB_VolPed"                 "KABC_11_17Fall"               
## [41] "I_CorRtTurnRadAve_Round"       "I_CorRtTurnRadStd_Round"      
## [43] "I_TotCrossDis_Round"           "StNBSB_DrvDisAppMin_Round"    
## [45] "StNBSB_DrvDisRecMin_Round"     "StNBSB_CrossDisAve_Round"     
## [47] "StNBSB_LaneWidth_Round"        "StNBSB_ShoulderWidthAve_Round"
## [49] "StEBWB_DrvDisAppMin_Round"     "StEBWB_DrvDisRecMin_Round"    
## [51] "StEBWB_CrossDisAve_Round"      "StEBWB_LaneWidth_Round"       
## [53] "StEBWB_ShoulderWidthAve_Round"

library(vtree)
vtree(data,"State StNBSB_OWorTW",showlegend=TRUE,shownodelabels=FALSE, 
      vp=FALSE)

vtree(data,"State StNBSB_OWorTW StEBWB_Park")