server = function(input, output, session) {
output$grtest <- renderGrViz({
grViz("
digraph dot {
graph [layout = circo, overlap=false]
node [shape = circle, style = filled, fillcolor = red, fontsize = 30, width = 2]
a [label = 'DATA\nSCIENCE']
node [shape = circle, fillcolor = green, fixedsize = TRUE, fontsize = 30, width = 2]
b [label = 'Getting\nData']
c [label = 'Analyzing\nData']
d [label = 'Presenting\nResults']
node [shape = plaintext, width = 0]
e [label = 'Web\nScraping']
f [label = 'Munging/\nCleaning']
g [label = 'Transforming']
h [label = 'Storing/\nSharing']
node [fillcolor = orange]
i [label = 'Bayesian\nTechniques']
j [label = 'Linear\nRegression']
k [label = 'Maximum\nLikelihood']
m [label = 'Stochastic\nProcesses']
edge [color = grey]
a -> {b c d}
edge [color = grey, weight = 1.5]
b -> {e f g h}
c -> {i j k m}
d -> {n o p q}
}")
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.