考虑以下json：
p <- ggplot(df, aes(x = x1, y = y)) # df is the sample dataset in the question
# default plot for 1000+ observations
# (method defaults to gam & formula to 'y ~ s(x, bs = "cs")')
p1 <- p + geom_smooth()
p1 + ggtitle(get.params(p1))
# specify method = 'gam'
# (formula defaults to `y ~ x`)
p2 <- p + geom_smooth(method='gam')
p2 + ggtitle(get.params(p2))
# specify method = 'gam' and splines for formula
p3 <- p + geom_smooth(method='gam',
method.args = list(family = "binomial"),
formula = y ~ splines::ns(x, 7))
p3 + ggtitle(get.params(p3))
# specify method = 'glm'
# (formula defaults to `y ~ x`)
p4 <- p + geom_smooth(method='glm')
p4 + ggtitle(get.params(p4))
# default plot for fewer observations
# (method defaults to loess & formula to `y ~ x`)
# observe that function is able to distinguish between plot data
# & data actually used by the layer
p5 <- p + geom_smooth(data = . %>% slice(1:500))
p5 + ggtitle(get.params(p5))
我想使用json-schema-validator要求在“ test”标记下需要“ required_key”的值，即：“ a”，“ b”。
也就是说，我要根据其他标签（“ required_key”）的值声明必需的标签
在我的示例中，验证应该失败，因为“ b”出现在“ required_key”上，但未在“ test”标记中定义