베이즈 문제를 수형도로 풀기

[익명(223.131)]

# 베이즈를 수형도(확률흐름)로 풀기

if (!require(DiagrammeR)) install.packages("DiagrammeR")

library(DiagrammeR)

# 수형도 시각화

tree_diagram <- "

digraph Tree {

    rankdir=LR;  # 왼쪽에서 오른쪽으로 방향 설정

    node [shape=box, style=filled, color=lightblue];

    

    A -> \"B1\" [label=\"병에걸림 1/100\"];

    A -> \"B2\" [label=\"병에 안걸림 99/100\"];

    

    \"B1\" -> \"1/100 * 99/100\\n=99/10000\" [label=\"검사양성 99/100\"];

    \"B1\" -> \"1/100\" [label=\"음성 1/100\"];

    

    \"B2\" -> \"99/100*5/100\\n=495/10000\" [label=\"검사양성 5/100\"];

    \"B2\" -> \"95/100\" [label=\"음성 95/100\"];

    

    # 아래쪽에 추가 텍스트 (전역 레이블)

    graph [label=\"진짜 양성율 : 99/(99+495) = 0.166667 \", labelloc=b, fontsize=12];

}

"

grViz(tree_diagram)