Построение уравнений с абсолютными значениями

Question

Как бы вы нарисовали в R график уравнения

|y| = 1 - |x|

Answer 1

fun1 <- function(x) 1-abs(x)
fun2 <- function(x) -(1-abs(x))
plot (fun1, -1, 1,xlim=c(-2,2),ylim=c(-2,2),pty="s",col=2);abline(h=0,v=0)
plot (fun2, -1, 1,col=2,add=TRUE)

Answer 2

Вот подход, использующий ggplot.

x = seq(-1, 1, by = 0.01)
y = 1 - abs(x)
p1 = qplot(x, geom = 'blank') + 
     geom_point(aes(y = y), colour = 'blue') + 
     geom_point(aes(y = -y), colour = 'red')

Answer 3

x <- (-1):1
y <- 1 - abs(x)
plot(x, y, type="l")
lines(x, -y)