Этот код создает прекрасную диаграмму рассеяния между двумя столбцами моих данных с точками данных и сглаживанием:
ggplot(RPSdata, aes (x=RPSdata$Personal.Risk, RPSdata$Survival.Ten.Year)) +
geom_point(size = 1.5, shape = 1) +
geom_smooth(method = "lm", se = TRUE, color="darkgrey", linetype = "solid", fill="lightgrey")
Теперь я хотел бы переделать тот же график, но только включая строки с кодом '1 'в столбце Survival.Complete.Sense.
Я пробовал следующий код, и он дает более плавный график, но по какой-то причине не отображает фактические точки данных:
ggplot(data = subset(RPSdata, Survival.Complete.Sense == 1) +
mapping = aes(x = Personal.Risk, y = Survival.Ten.Year)) +
geom_smooth(method = "lm", se = TRUE, color="darkgrey", linetype = "solid", fill="lightgrey") +
geom_point(size = 1.5, shape = 1)
Это дает мне: Error: Cannot add ggproto objects together. Did you forget to add this object to a ggplot object?
Может ли кто-нибудь помочь мне разобраться в этом, либо успешно добавив точки данных во второй код, либо выбрав данные по второстепенному фактору в первом коде?
Большое спасибо!