r - 使用 ggplot 绘制 y = mx + c

Question

基本问题，ggplot 似乎并没有按照我的预期做。

ggplot(data=data.frame( x=c(-1,2),y=c(-1,2) ), aes(x=x,y=y)) + 
  geom_blank() + 
  geom_abline(slope = -1 , intercept = 1)

我期待这个情节:



它正在策划:

Answer 1

剧情ggplot2绘制是不正确的。它在表示您传递给 aes 的数据所必需的比例上绘制函数。称呼。它并不关心你是否真的在 geom 中绘制了数据。或不。

为了说明这个问题，将实际数据点添加到绘图中并使 x 轴和 y 轴更加可见是有帮助的。下面的代码

ggplot(data=data.frame( x=c(-1,2),y=c(-1,2) ), aes(x=x,y=y)) + 
  geom_point(shape = 1) +
  geom_abline(intercept = 1, slope = -1, col = "red") +
  geom_hline(yintercept = 0) +
  geom_vline(xintercept = 0)

给你:


由于您只想绘制上述图的一部分，因此只需更正比例(不要绘制轴和数据点)。然后你会得到你想要的结果:

ggplot(data=data.frame(x=c(-1,2), y=c(-1,2)), aes(x=x,y=y)) + 
  geom_blank() +  # not necessary, taken from the OP's question
  geom_abline(intercept = 1, slope = -1) +
  scale_x_continuous(limits = c(0, 1)) +
  scale_y_continuous(limits = c(0, 1))