R中的ggplot2（散點圖和幾個擬合值）

Question

我如何修改以下代碼以在x和y（散點圖）之間繪制曲線，並將擬合值X0.025和y = X0.975作為曲線上的曲線（線）。 （請運行plot(m6)以查看我要通過ggplot進行ggplot ）

library(quantregGrowth)
data(growthData)
m6<-gcrq(y~ps(x, lambda=seq(0,100,l=20)), tau=c(0.025,0.975), n.boot=10, 
data=growthData) 
plot(m6)

我試圖通過ggplot繪制此圖，這是代碼：

 library(ggplot2)
    library(plotly)
    temp <- data.frame(m6$fitted)
    growthData_b <- cbind(growthData, temp)

    a <- ggplot(data=growthData_b, aes(x, y=X0.025)) + geom_line() + 
    geom_line(data=growthData_b, aes(x, y=X0.975), color = "red")  + theme_bw()

Answer 1

您在找這個嗎？

ggplot(data=growthData_b, aes(x, y=X0.025)) + 
geom_line() + 
geom_line(data=growthData_b, aes(x, y=X0.975), color = "red", linetype = 2)  + 
theme_bw() + 
geom_point(aes(x=x, y=y), shape = 1)