A four-parameter log-logistic curve fitted to dose-response data, with a confidence band and the fitted EC50 marked.
geom_dose_response(
mapping = NULL,
data = NULL,
color = NULL,
points = TRUE,
ec50 = TRUE
)A Layer to add with +.
d <- data.frame(
dose = rep(c(0.1, 1, 10, 100, 1000), each = 3),
resp = c(5, 7, 6, 18, 22, 20, 52, 48, 55, 82, 79, 85, 95, 97, 93)
)
ggnext(d, aes(dose, resp)) + geom_dose_response() + scale_x_log10()
#> <ggnext plot>
#> data: 15 x 2
#> aes: x = dose, y = resp
#> layers: 1
#> coord: cartesian
#> mode: static