Discussion :

[Puppet_Master]

Bonjour.

Je cherche un moyen de faire une représentation graphique d'une base de données (postgres) dans un document RMarkdown.

Idéalement, si R pouvait faire lui même la représentation en se connectant à la base en question cela permettrait une mise à jour simplifié.

Si vous avez des idées ou propositions de modules, je suis à l'écoute!

[Puppet_Master]

Voici un exemple de ce que je cherche à faire:



J'ai vu le module igraph qui devrait pouvoir faire ce genre de graphique.

Si quelqu'un a une idée de comment l'utiliser je suis preneur.

[Alpacky]

hello,

jamais fait dsl mais cette ressource à l'air pas mal http://kateto.net/network-visualization

[Puppet_Master]

Bonjour Alpacky

Merci pour votre lien. Cela m'a bien aidé à démarrer l'utilisation de ce module.

J'ai du mal à faire ce que je veux pour le moment ... je dois encore y travailler.

voici mes essais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
library(igraph)
g <- graph(
    edges = c(
                'fk_entt', 'id_entt'
               ,'fk_msg1', 'id_msg'
               ,'fk_msr' , 'id_msr'
            ),
    isolates = c(
                'nom'
               ,'machine'
               ,'dt_seq'
               ,'msr'
               ,'msg'
            )
)
 
layouts <- grep("^layout_", ls("package:igraph"), value=TRUE)[-1] 
layouts <- layouts[!grepl("bipartite|merge|norm|sugiyama|tree", layouts)]
 
par(mfrow=c(3,2), mar=c(1,1,1,1))
 
for (layout in layouts) {
    print(layout)
    l <- do.call(layout, list(g)) 
    plot(g
         , vertex.size = 30
         , vertex.shape = "none"
         , layout = l
         , edge.arrow.size = 0.3
         , mark.groups=list(
               c('id_entt', 'nom', 'machine')
             , c('fk_entt','dt_seq','fk_msg1','fk_msr')
             , c('id_msr','msr')
             , c('id_msg','msg')
         )
    )
}