Добавление линии на графике в г

На основе следующих данных, я хочу построитьДобавление линии на графике в г

m <- 10000 
x <- runif(m,-1,1) 
a0 <- 0; a1 <- -4.46; a2 <- 1.6; a3 <- -4.63

две переменные p1.at.x и p0.at.x, определенных ниже, против x.

p0.at.x <- numeric(0) 
p1.at.x <- numeric(0)    
for(i in 1:m) { 
    p0.at.x[i] <- a0 +(a1*x[i]) + (a2*((1.5*(x[i]**2))-0.5)) + (a3*((2.5*(x[i]**3))-(1.5*x[i]))) 
    p1.at.x[i] <- 16 -(40.4*x[i]) + (31*((1.5*(x[i]** 2))-0.5))-(18.3*((2.5*(x[i]**3))-(1.5*x[i]))) 
}

Я попытался следующим:

plot(x, p1.at.x, col="red")   
lines(x, p0.at.x, col="blue")

, но я не мог видеть линию p0.at.x на графике. Когда я рисую их индивидуально, они имеют одинаковую форму, только различаются по диапазону. Может кто-нибудь подскажет мне, что пошло не так?

источник

2013-07-03 Duna

Какие значения a0, a1, a2 и a3? –

Не зная этих значений, их трудно диагностировать, но я почти уверен, потому что два диапазона для оси x не совпадают друг с другом. –

Что все ответы/комментарии неявно говорят вам, что после создания окна устройства он не будет автоматически изменяться, если вы тогда вызываете функции типа 'lines' или' points'. Окно устройства останется «оптимальным» для любых исходных данных. Так что либо нужно знать максимальную длину _all_ ваших данных. – joran

Вы должны установить правильный ylim:

plot(x, p1.at.x, col="red",ylab='p',ylim=range(p0.at.x,p1.at.x)) 
par(new=TRUE) 
plot(x, p0.at.x, col="blue",ylab='p', ylim=range(p0.at.x,p1.at.x))

Если они отличаются в диапазоне, то вы не видите вторую, потому что это из окна первого участка, так что вы должны учитывать его присутствие, когда вы открываете сюжет.

В качестве альтернативы:

plot(x, p1.at.x, col="red",ylab='p',ylim=range(p0.at.x,p1.at.x))  
points(x, p0.at.x, col="blue",ylab='p', ylim=range(p0.at.x,p1.at.x))

источник

2013-07-03 18:03:36 DiscreteCircle

Ничего, не знал, что была команда диапазона. –

@DiscreteCircle ваши коды, как дал мне сюжет, где линия не является строкой. Это какое-то изображение – Duna

Я только что исправил его; линии (...) плохо работали с вашими данными. – DiscreteCircle

Добавление линии на графике в г

ответ

Смежные вопросы