将两个Y轴添加到xy图中

时间:2017-11-19 19:07:42

标签: r series lattice

在Rstudio中使用此data。我需要在foreach($my_arr as $indx=>$val ) { if(is_int($indx) && ($indx>=0 && $indx<=4)) { $my_arr[$indx]= $val; } else { continue; } } 上运行ed76的简单回归和饱和回归,将lwage76转换为列中每个级别的虚拟变量。然后我需要在XY图中绘制两个回归,其中ed76为Y轴,lwage76为X轴。这就是我到目前为止所做的:

ed76

这给了我一个非常好的XY图,但是现在我需要从我的staturated模型中添加预测值:

regression <- lm(nlsdata$lwage76~nlsdata$ed76)

predicted <- data.frame(Edu =nlsdata$ed76, Wage = predict(regression))

aggplot <- aggregate(Wage ~ Edu, data=predicted, mean)
xyplot( Wage ~ Edu, data = aggplot, grid = TRUE, type = c("p","l"))

那么如何将第二个数据集添加到我拥有的图表中呢?

1 个答案:

答案 0 :(得分:0)

ggplot中的解决方案:

satmodel <- satmodel %>% mutate(type="sat_model")
predicted <- predicted %>% mutate(type="predicted")

df <- rbind(satmodel, predicted)


ggplot(df, aes(Edu, Wage, colour=type)) + 
    geom_line() + 
    geom_point()

enter image description here

或者,您可以标记每个表并将它们合并为一个data.frame。

{{1}}

enter image description here