Visualice la estructura de árbol de Parse

Me gustaría mostrar el análisis (etiquetado POS) deopenNLP como una visualización de estructura de árbol. A continuación proporciono el árbol de análisis deopenNLP pero no puedo trazar como un árbol visual común aAnálisis de Python.

install.packages(
    "http://datacube.wu.ac.at/src/contrib/openNLPmodels.en_1.5-1.tar.gz",  
    repos=NULL, 
    type="source"
)

library(NLP)
library(openNLP)

x <- 'Scroll bar does not work the best either.'
s <- as.String(x)

## Annotators
sent_token_annotator <- Maxent_Sent_Token_Annotator()
word_token_annotator <- Maxent_Word_Token_Annotator()
parse_annotator <- Parse_Annotator()

a2 <- annotate(s, list(sent_token_annotator, word_token_annotator))
p <- parse_annotator(s, a2)
ptext <- sapply(p$features, `[[`, "parse")
ptext
Tree_parse(ptext)

## > ptext
## [1] "(TOP (S (NP (NNP Scroll) (NN bar)) (VP (VBZ does) (RB not) (VP (VB work) (NP (DT the) (JJS best)) (ADVP (RB either))))(. .)))"
## > Tree_parse(ptext)
## (TOP
##   (S
##     (NP (NNP Scroll) (NN bar))
##     (VP (VBZ does) (RB not) (VP (VB work) (NP (DT the) (JJS best)) (ADVP (RB either))))
##     (. .)))

La estructura de árbol debería ser similar a esto:

¿Hay alguna manera de mostrar esta visualización de árbol?

encontréeste árbol relacionado a saber pregunta para trazar expresiones numéricas que pueden ser útiles pero que no pude generalizar para la visualización del análisis de oraciones.

Respuestas a la pregunta(1)

Su respuesta a la pregunta