如何在同一图表上绘制多个曲线段？

Question

seg1 <- function(t) 0.01000000+0.01021486*t+0.00915602*t^2-0.01485179*t^3
curve(seg1, 0, 2/12)

seg2 <- function(t) 0.01145666+0.00758914*t+0.01521279*t^2+0.09378380*t^3
curve(seg2, 2/12, 5/12)

seg3 <- function(t) 0.00000000+0.02320514*t+0.00490835*t^2-0.08080547*t^3
curve(seg3, 5/12, 11/12)

seg4 <- function(t) 0.02215231-0.02425796*t-0.00962054*t^2+0.02154812*t^3
curve(seg4, 11/12, 15/12)

使用相同的比例连接同一图表中的4个段，间隔为0到1.25

---

我的原始输入不正确。 使用正确的输入我得到一条平滑的曲线

  

seg1＆lt; - function（t）0.0100000000000000 + 0.01145665803921569 * t + 0.02215231058823505 * t ^ 3   曲线（seg1,0,2 / 12，xlim = c（0,1.25），ylim = c（ - 。1，.1））

     

seg2＆lt; - function（t）0.0102148623819898 + 0.00758913516339875 * t + 0.02320513725490168 * t ^ 2 - 0.02425796392156832 * t ^ 3   曲线（seg2,2 / 12,5 / 12，add = TRUE）

     

seg3＆lt; - function（t）0.0091560208106391 + 0.01521279447712401 * t + 0.00490835490196105 * t ^ 2 - 0.00962053803921581 * t ^ 3   曲线（seg3,5 / 12,11 / 12，add = TRUE）

     

seg4＆lt; - function（t）-0.0148517859681374 + 0.09378379848039248 * t - 0.08080546764705908 * t ^ 2 + 0.02154812470588242 * t ^ 3   曲线（seg4,11 / 12,15 / 12，add = TRUE）

Answer 1

您想使用add=TRUE参数。您需要在初始xlim中指定ylim和curve值。

seg1 <- function(t) 0.01000000+0.01021486*t+0.00915602*t^2-0.01485179*t^3
curve(seg1, 0, 2/12, xlim=c(0,1.25), ylim=c(-.1,.1))

seg2 <- function(t) 0.01145666+0.00758914*t+0.01521279*t^2+0.09378380*t^3
curve(seg2, 2/12, 5/12, add=TRUE)

seg3 <- function(t) 0.00000000+0.02320514*t+0.00490835*t^2-0.08080547*t^3
curve(seg3, 5/12, 11/12, add=TRUE)

seg4 <- function(t) 0.02215231-0.02425796*t-0.00962054*t^2+0.02154812*t^3
curve(seg4, 11/12, 15/12, add=TRUE)

结果：