Update alert_graph.R

test