我需要将号码1.3
添加到y axis
。
目前,我有:
p <- ggplot(data, aes(x = MO, y = value)) + geom_smooth(aes(x=MO, y=value)) +
geom_line(aes(colour=variable, group=variable), size=2) +
labs(x = "Model Order", y = "-Log(P-Value)", title = "Granger Causality") + ylim(-2,10) +
geom_hline(yintercept = 1.3, col='green')
p + theme(legend.position = c(0.1, .85))