r编程两个散点图最佳拟合线

Question

我有带有log_100m，log_1500m和女性指示器的列。 我用不同的颜色为女性和男性创建了散点图，并为男性和女性制作了图例。 我必须最适合男性和女性。 但是，我真的不知道如何使两个不同的最佳拟合。 而且，是否有将图例放在图之外的方法？ 谢谢

情节（tnffinal $ log_100m，tnffinal $ log_1500m，col = ifelse（tnffinal $ Female == 1，“ red”，“ blue”））

图例（“ right”，pch = c（1,1），col = c（“ red”，“ blue”），c（“ Female”，“ Male”），bty =“ o”，cex = .8， box.col =“ darkgreen”）

Answer 1

您可以使用ggplot2软件包。 这使得创建易于发布的情节变得非常容易。 您可以创建图形并逐层移动事物。 绘制图形的代码为：

# set up the plot
myplot <- qplot(data=tnffinal, log_100m, log_1500m, color=Female)
# add Least Squares fit lines (you can chose other methose like Loess)
myplot_fit <- myplot+geom_smoot(method=lm)
# output graph
myplot_fit