Running the following does not produce a plot with a title:
data(acme)
plot(acme, title = "Testing 123")
Pulling out the code from plot.Node does produce a plot with a title:
graph <- ToDiagrammeRGraph(acme, "climb", NULL)
DiagrammeR::render_graph(graph, output = "graph", title = "Testing 123")