我使用ggplot()
尝试绘制一个ANCOVA的结果,其中两个线性分量的斜率相等:即lm(y ~ x + A)
。 geom_smooth(method = "lm")
的默认行为是为每个因子的每个级别绘制单独的斜率和截距。例如,使用两个级别的A
library(ggplot2)
set.seed(1234)
n <- 20
x1 <- rnorm(n); x2 <- rnorm(n)
y1 <- 2 * x1 + rnorm(n)
y2 <- 3 * x2 + (2 + rnorm(n))
A <- as.factor(rep(c(1, 2), each = n))
df <- data.frame(x = c(x1, x2), y = c(y1, y2), A = A)
p <- ggplot(df, aes(x = x, y = y, color = A))
p + geom_point() + geom_smooth(method = "lm")
我可以用
lm()
分别适合ANCOVA,然后使用geom_abline()
手动添加行。这种方法有两个缺点,例如使线超出数据范围并手动指定颜色。fm <- lm(y ~ x + A, data = df)
summary(fm)
a1 <- coef(fm)[1]
b <- coef(fm)[2]
a2 <- a1 + coef(fm)[3]
p + geom_point() +
geom_abline(intercept = a1, slope = b) +
geom_abline(intercept = a2, slope = b)
我知道HH软件包中的
ancova()
可以自动执行绘图,但是我并不真正关心晶格图形。因此,我正在寻找以ggplot()
为中心的解决方案。library(HH)
ancova(y ~ x + A, data = df)
有没有一种方法可以使用
ggplot()
完成此操作?对于此示例,A
具有两个级别,但是我遇到的情况是3、4或更多级别。 formula
的geom_smooth()
参数似乎没有答案(据我所知)。
最佳答案
为了完整起见,这是可行的:
library(ggplot2)
set.seed(1234)
n <- 20
x1 <- rnorm(n); x2 <- rnorm(n)
y1 <- 2 * x1 + rnorm(n)
y2 <- 3 * x2 + (2 + rnorm(n))
A <- as.factor(rep(c(1, 2), each = n))
df <- data.frame(x = c(x1, x2), y = c(y1, y2), A = A)
fm <- lm(y ~ x + A, data = df)
p <- ggplot(data = cbind(df, pred = predict(fm)),
aes(x = x, y = y, color = A))
p + geom_point() + geom_line(aes(y = pred))
关于r - 用ggplot约束stat_smooth中的斜率(绘图ANCOVA),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4251294/