Wolfram의 가중치를 기반으로 Graph의 가장자리 스타일을 설정하는 방법은 무엇입니까?

Question

ell, poll,등의 정점 이름 (숫자가 아니지만 상징적 인 이름)을 사용하여 사용자 정의 그래프를 설정했습니다. 정점과 가장자리를 설정합니다 (가중치는 양수 또는 음수 일 수 있습니다). 이러한 가중치를 기반으로 정점과 가장자리의 다른 스타일 매개 변수를 설정하려고합니다. 어떻게해야합니까? 고맙습니다.

Graph[ 
{ 
    Labeled[ 
    Property[ 
    vat, {VertexSize -> (.567 + .7)/3, 
    VertexStyle -> Hue[.567/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    elch, {VertexSize -> (-.608 + .7)/3, 
    VertexStyle -> Hue[-.608/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    ion, {VertexSize -> (-.025 + .7)/3, 
    VertexStyle -> Hue[-.025/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    kar, {VertexSize -> (-.167 + .7)/3, 
    VertexStyle -> Hue[-.167/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    kos, {VertexSize -> (-.400 + .7)/3, 
    VertexStyle -> Hue[-.400/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    lap, {VertexSize -> (.408 + .7)/3, 
    VertexStyle -> Hue[.408/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    mas, {VertexSize -> (-.050 + .7)/3, 
    VertexStyle -> Hue[-.050/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    novi, {VertexSize -> (.258 + .7)/3, 
    VertexStyle -> Hue[.258/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    novo, {VertexSize -> (-.033 + .7)/3, 
    VertexStyle -> Hue[-.033/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    pod, {VertexSize -> (-.083 + .7)/3, 
    VertexStyle -> Hue[-.083/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    pol, {VertexSize -> (.142 + .7)/3, 
    VertexStyle -> Hue[.142/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    sar, {VertexSize -> (.025 + .7)/3, 
    VertexStyle -> Hue[.025/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    sok, {VertexSize -> (-.142 + .7)/3, 
    VertexStyle -> Hue[-.142/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    sut, {VertexSize -> (.067 + .7)/3, 
    VertexStyle -> Hue[.067/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    ust, {VertexSize -> (-.050 + .7)/3, 
    VertexStyle -> Hue[-.050/3 + .75, 1, 1]}], ""], 
    Labeled[ 
    Property[ 
    ell, {VertexSize -> (.117 + .7)/3, 
    VertexStyle -> Hue[.117/3 + .75, 1, 1]}], ""] 
    } 
, 
{ 
    Property[vat -> elch, EdgeWeight -> -9], 
    Property[vat -> kar, EdgeWeight -> 3], 
    Property[vat -> kos, EdgeWeight -> -4], 
    Property[vat -> lap, EdgeWeight -> 5], 
    Property[vat -> mas, EdgeWeight -> -1], 
    Property[vat -> novi, EdgeWeight -> 1], 
    Property[vat -> novo, EdgeWeight -> 1], 
    Property[vat -> pod, EdgeWeight -> -2], 
    Property[vat -> pol, EdgeWeight -> 4], 
    Property[vat -> sut, EdgeWeight -> 2], 
    Property[kar -> vat, EdgeWeight -> 9], 
    Property[kar -> elch, EdgeWeight -> -9], 
    Property[kar -> ion, EdgeWeight -> -1], 
    Property[kar -> lap, EdgeWeight -> 1], 
    Property[kar -> mas, EdgeWeight -> -2], 
    Property[kar -> novi, EdgeWeight -> 4], 
    Property[kar -> novo, EdgeWeight -> 1], 
    Property[kar -> sar, EdgeWeight -> 1], 
    Property[kar -> sok, EdgeWeight -> -4], 
    Property[kar -> ust, EdgeWeight -> -2], 
    Property[sok -> vat, EdgeWeight -> 2], 
    Property[sok -> elch, EdgeWeight -> -4], 
    Property[sok -> ion, EdgeWeight -> -3], 
    Property[sok -> kar, EdgeWeight -> -4], 
    Property[sok -> kos, EdgeWeight -> -3], 
    Property[sok -> lap, EdgeWeight -> 3], 
    Property[sok -> novi, EdgeWeight -> 1], 
    Property[sok -> novo, EdgeWeight -> 1], 
    Property[sok -> pod, EdgeWeight -> -1], 
    Property[sok -> pol, EdgeWeight -> -3], 
    Property[sok -> sar, EdgeWeight -> 2], 
    Property[sok -> sut, EdgeWeight -> 2], 
    Property[sok -> ell, EdgeWeight -> 7], 
    Property[novo -> vat, EdgeWeight -> 6], 
    Property[novo -> elch, EdgeWeight -> 3], 
    Property[novo -> ion, EdgeWeight -> -2], 
    Property[novo -> kar, EdgeWeight -> -2], 
    Property[novo -> kos, EdgeWeight -> -3], 
    Property[novo -> lap, EdgeWeight -> 1], 
    Property[novo -> pod, EdgeWeight -> -1], 
    Property[novo -> sok, EdgeWeight -> -2], 
    Property[novo -> sut, EdgeWeight -> 1], 
    Property[novo -> ust, EdgeWeight -> -3], 
    Property[novo -> ell, EdgeWeight -> 2], 
    Property[sut -> vat, EdgeWeight -> 7], 
    Property[sut -> elch, EdgeWeight -> -3], 
    Property[sut -> kar, EdgeWeight -> -6], 
    Property[sut -> kos, EdgeWeight -> -6], 
    Property[sut -> lap, EdgeWeight -> -1], 
    Property[sut -> novi, EdgeWeight -> 6], 
    Property[sut -> novo, EdgeWeight -> -1], 
    Property[sut -> pol, EdgeWeight -> 4], 
    Property[novi -> vat, EdgeWeight -> 3], 
    Property[novi -> elch, EdgeWeight -> -3], 
    Property[novi -> kar, EdgeWeight -> 2], 
    Property[novi -> kos, EdgeWeight -> -7], 
    Property[novi -> lap, EdgeWeight -> 6], 
    Property[novi -> mas, EdgeWeight -> 1], 
    Property[novi -> novo, EdgeWeight -> -1], 
    Property[novi -> pol, EdgeWeight -> 3], 
    Property[novi -> sut, EdgeWeight -> -2], 
    Property[novi -> ust, EdgeWeight -> -1], 
    Property[novi -> ell, EdgeWeight -> 3], 
    Property[lap -> vat, EdgeWeight -> 8], 
    Property[lap -> elch, EdgeWeight -> -2], 
    Property[lap -> ion, EdgeWeight -> 1], 
    Property[lap -> kar, EdgeWeight -> 1], 
    Property[lap -> kos, EdgeWeight -> -3], 
    Property[lap -> mas, EdgeWeight -> -3], 
    Property[lap -> novi, EdgeWeight -> 4], 
    Property[lap -> novo, EdgeWeight -> -1], 
    Property[lap -> sar, EdgeWeight -> -4], 
    Property[lap -> sok, EdgeWeight -> -2], 
    Property[lap -> ell, EdgeWeight -> 1], 
    Property[ell -> vat, EdgeWeight -> 3], 
    Property[ell -> elch, EdgeWeight -> -8], 
    Property[ell -> kar, EdgeWeight -> 1], 
    Property[ell -> kos, EdgeWeight -> -2], 
    Property[ell -> lap, EdgeWeight -> 6], 
    Property[ell -> mas, EdgeWeight -> -3], 
    Property[ell -> novi, EdgeWeight -> 1], 
    Property[ell -> novo, EdgeWeight -> -2], 
    Property[ell -> pol, EdgeWeight -> 5], 
    Property[ell -> sok, EdgeWeight -> -3], 
    Property[ell -> sut, EdgeWeight -> 2], 
    Property[ust -> vat, EdgeWeight -> 6], 
    Property[ust -> elch, EdgeWeight -> -8], 
    Property[ust -> ion, EdgeWeight -> 2], 
    Property[ust -> kos, EdgeWeight -> -7], 
    Property[ust -> lap, EdgeWeight -> 2], 
    Property[ust -> novi, EdgeWeight -> 2], 
    Property[ust -> pod, EdgeWeight -> 1], 
    Property[ust -> pol, EdgeWeight -> 2], 
    Property[ust -> sok, EdgeWeight -> -2], 
    Property[ust -> sut, EdgeWeight -> 2], 
    Property[mas -> vat, EdgeWeight -> 3], 
    Property[mas -> elch, EdgeWeight -> -9], 
    Property[mas -> kar, EdgeWeight -> -2], 
    Property[mas -> kos, EdgeWeight -> -5], 
    Property[mas -> lap, EdgeWeight -> 8], 
    Property[mas -> novi, EdgeWeight -> 1], 
    Property[mas -> pod, EdgeWeight -> -2], 
    Property[mas -> pol, EdgeWeight -> 1], 
    Property[mas -> sar, EdgeWeight -> 4], 
    Property[mas -> ell, EdgeWeight -> 1], 
    Property[sar -> vat, EdgeWeight -> 5], 
    Property[sar -> elch, EdgeWeight -> -7], 
    Property[sar -> kar, EdgeWeight -> -3], 
    Property[sar -> kos, EdgeWeight -> -4], 
    Property[sar -> lap, EdgeWeight -> 8], 
    Property[sar -> mas, EdgeWeight -> 2], 
    Property[sar -> novi, EdgeWeight -> 3], 
    Property[sar -> pod, EdgeWeight -> -4], 
    Property[ion -> vat, EdgeWeight -> 9], 
    Property[ion -> elch, EdgeWeight -> -1], 
    Property[ion -> kar, EdgeWeight -> -9], 
    Property[ion -> kos, EdgeWeight -> -4], 
    Property[ion -> lap, EdgeWeight -> 6], 
    Property[ion -> novi, EdgeWeight -> 2], 
    Property[ion -> novo, EdgeWeight -> -1], 
    Property[ion -> pod, EdgeWeight -> -1], 
    Property[ion -> pol, EdgeWeight -> 1], 
    Property[ion -> sok, EdgeWeight -> -2], 
    Property[pod -> vat, EdgeWeight -> 7], 
    Property[pod -> elch, EdgeWeight -> -9], 
    Property[pod -> ion, EdgeWeight -> -2], 
    Property[pod -> kar, EdgeWeight -> -1], 
    Property[pod -> lap, EdgeWeight -> 4], 
    Property[pod -> novi, EdgeWeight -> 6], 
    Property[pod -> novo, EdgeWeight -> -1], 
    Property[pod -> sok, EdgeWeight -> -2], 
    Property[pod -> sut, EdgeWeight -> 1] 
    }, 
EdgeShapeFunction -> 
    GraphElementData[{"CarvedArrow", "ArrowSize" -> .01}], 
    GraphLayout -> "CircularEmbedding", 
EdgeStyle -> 
    Thread[a -> 
    Transpose@{Dashing /@ ((b + 0.5)/10), Hue /@ (b + 0.5), 
     Thickness /@ ((b + 0.5)/100)}] 
] 

Answer 1

당신은 당신의 그래프에 대한 많은 정보를주지 않았다, 그러나 이것은 다른 특성 EdgeWeight로 정의 할 수 있도록하는 방법입니다.

Graph[a = {"a" <-> "b", "b" <-> "c", "c" <-> "a"}, 
EdgeWeight -> (b = RandomReal[{-.5, .5}, 3]), 
EdgeStyle -> 
    Thread[a -> 
    Transpose@{Dashing /@ ((b + 0.5)/10), Hue /@ (b + 0.5), 
     Thickness /@ ((b + 0.5)/100)}]] 

편집 :

name = {vat, elch, ion, kar, kos, lap, mas, novi, novo, pod, pol, sar, 
    sok, sut, ust, ell}; 
vSize = {.567, -.608, -.025, -.167, -.4, .408, -.05, .258, -.033, \ 
-.083, .142, .025, -.142, .067, -.05, .117}; 
hue = {.567, -.608, -.025, -.167, -.4, .408, -.05, .258, -.033, \ 
-.083, .172, .025, -.142, .025, -.142, .067, -.050, .117}; 
props = Labeled[ 
    Property[ 
     name[[#]], {VertexSize -> (vSize[[#]] + .7)/3, 
     VertexStyle -> Hue[hue[[#]]/3 + .75, 1, 1]}], ""] & /@ 
    Range[Length[name]]; 
a = {vat -> elch, vat -> kar, vat -> kos, vat -> lap, vat -> mas, 
    vat -> novi, vat -> novo, vat -> pod, vat -> pol, vat -> sut, 
    kar -> vat, kar -> elch, kar -> ion, kar -> lap, kar -> mas, 
    kar -> novi, kar -> novo, kar -> sar, kar -> sok, kar -> ust, 
    sok -> vat, sok -> elch, sok -> ion, sok -> kar, sok -> kos, 
    sok -> lap, sok -> novi, sok -> novo, sok -> pod, sok -> pol, 
    sok -> sar, sok -> sut, sok -> ell, novo -> vat, novo -> elch, 
    novo -> ion, novo -> kar, novo -> kos, novo -> lap, novo -> pod, 
    novo -> sok, novo -> sut, novo -> ust, novo -> ell, sut -> vat, 
    sut -> elch, sut -> kar, sut -> kos, sut -> lap, sut -> novi, 
    sut -> novo, sut -> pol, novi -> vat, novi -> elch, novi -> kar, 
    novi -> kos, novi -> lap, novi -> mas, novi -> novo, novi -> pol, 
    novi -> sut, novi -> ust, novi -> ell, lap -> vat, lap -> elch, 
    lap -> ion, lap -> kar, lap -> kos, lap -> mas, lap -> novi, 
    lap -> novo, lap -> sar, lap -> sok, lap -> ell, ell -> vat, 
    ell -> elch, ell -> kar, ell -> kos, ell -> lap, ell -> mas, 
    ell -> novi, ell -> novo, ell -> pol, ell -> sok, ell -> sut, 
    ust -> vat, ust -> elch, ust -> ion, ust -> kos, ust -> lap, 
    ust -> novi, ust -> pod, ust -> pol, ust -> sok, ust -> sut, 
    mas -> vat, mas -> elch, mas -> kar, mas -> kos, mas -> lap, 
    mas -> novi, mas -> pod, mas -> pol, mas -> sar, mas -> ell, 
    sar -> vat, sar -> elch, sar -> kar, sar -> kos, sar -> lap, 
    sar -> mas, sar -> novi, sar -> pod, ion -> vat, ion -> elch, 
    ion -> kar, ion -> kos, ion -> lap, ion -> novi, ion -> novo, 
    ion -> pod, ion -> pol, ion -> sok, pod -> vat, pod -> elch, 
    pod -> ion, pod -> kar, pod -> lap, pod -> novi, pod -> novo, 
    pod -> sok, pod -> sut}; 
b = {-9, 3, -4, 5, -1, 1, 1, -2, 4, 2, 9, -9, -1, 1, -2, 4, 1, 
    1, -4, -2, 2, -4, -3, -4, -3, 3, 1, 1, -1, -3, 2, 2, 7, 6, 
    3, -2, -2, -3, 1, -1, -2, 1, -3, 2, 7, -3, -6, -6, -1, 6, -1, 4, 
    3, -3, 2, -7, 6, 1, -1, 3, -2, -1, 3, 8, -2, 1, 1, -3, -3, 
    4, -1, -4, -2, 1, 3, -8, 1, -2, 6, -3, 1, -2, 5, -3, 2, 6, -8, 
    2, -7, 2, 2, 1, 2, -2, 2, 3, -9, -2, -5, 8, 1, -2, 1, 4, 1, 
    5, -7, -3, -4, 8, 2, 3, -4, 9, -1, -9, -4, 6, 2, -1, -1, 1, -2, 
    7, -9, -2, -1, 4, 6, -1, -2, 1}; 
Graph[props, a, EdgeWeight -> b, 
EdgeShapeFunction -> 
    GraphElementData[{"CarvedArrow", "ArrowSize" -> .01}], 
GraphLayout -> "CircularEmbedding", 
EdgeStyle -> 
    Thread[a -> 
    Transpose@{Dashing /@ ((b + 9)/2000), Hue /@ ((b + 9)/20), 
     Thickness /@ ((b + 9)/2000)}]]