小编Sol*_*oly的帖子

我绘制了一个图表并想要自定义该图的图例。我将感谢所有对此的帮助。谢谢！

library("survival")
library("ggplot2")
library("ggfortify")

data(lung)
lung$SurvObj <- with(lung, Surv(time, status == 2))
km.by.sex <- survfit(SurvObj ~ sex, data = lung, conf.type = "log-log")

gender.plot <- autoplot(km.by.sex)
gender.plot <- gender.plot + 
  ggtitle("Gender based Survival (1=male, 2=female)") +
  labs(x = "Time", y = "Survival Probability") 
print(gender.plot)

我有一个二次回归模型。我想将模型的拟合回归线添加到散点图。我的偏好是使用 ggplot2。我能够绘制散点图，但是当我使用“stat_smooth()”来指定公式时，我收到以下警告，并且散点图上没有绘制拟合线。

警告消息：1：'newdata' 有 80 行，但发现的变量有 24 行 2：计算失败stat_smooth()：参数暗示不同的行数：80、24

我的代码如下。有人可以指导我我应该做些什么不同的事情，以便我可以使用 ggplot 在散点图中获得拟合回归线。

代码：

library(gamair)
library(ggplot2)
data(hubble)

names(hubble)[names(hubble) == "y"] <- c("velocity")
names(hubble)[names(hubble) == "x"] <- c("distance")

hubble$distance.sqr <- hubble$distance^2
model2.formula <- hubble$velocity ~ hubble$distance + 
   hubble$distance.sqr - 1
model2.hbl <- lm(model2.formula, data = hubble)
summary(model2.hbl)

model2.sp <- ggplot(hubble, aes(x = distance, y = velocity)) +
  geom_point() + labs(title = "Scatter Plot between Distance & Velocity", 
  x = "Distance", y = "Velocity")
model2.sp + stat_smooth(method = "lm", formula = …