用ggplot2中的样条表示重复测量

Question

数据集是在几天内重复测量tn（以峰值tn的百分比表示）。我试图用每个患者绘制整体平滑/样条函数。

p <- ggplot(df, aes(x=day, y=tn))
p + geom_line(aes(colour=id)) + xlim(-3,3) +
   geom_smooth(method="lm", formula = y ~ splines::bs(x,5))

但是，geom_smooth函数不会达到100％（尽管根据定义，所有记录都在同一天= 0）。任何人都可以解释原因，或解释如何更好地表示我的数据吗？

id  day tn(%)
1   1   100
1   2   41
1   3   NA
2   -1  NA
2   0   100
2   -3  78
3   -2  1
3   -1  60
3   0   100
3   1   54
3   2   16
3   3   6
4   -2  66
4   -1  55
4   0   100
4   1   59
4   2   83
5   -2  2
5   -1  7
5   0   100
5   1   64
5   2   32
6   -2  0
6   -1  97
6   0   100
6   1   52
6   2   18