效果图R-将数据点放入效应图

Question

当前效果图查找范围

​

致所有人:我正在尝试了解是否有办法进一步发展我的效果图。我想知道是否有一种方法可以将用于创建效果图的数据点放到效果图本身上，所以它看起来有点像散点图。

我正在使用软件包：(ggplot2)，(stargazer)，(effects)，(gridExtra)，(plyr)

使用的代码：

setwd("F:/Sussex PhD/data/constresult19")
my_gen <- read.csv("genhis.csv") #data set name

#linear models
const.qualsvc <- lm(Conpv1019 ~ + Noqual19 + Alevel19 + Degplus19 + Const5ac + Gdschlsrate + FSMKS2 + FSMAlevel, data = my_gen)
const.qualsvl <- lm(Conpv1019 ~ + Noqual19 + Alevel19 + Degplus19 + Const5ac + Gdschlsrate + FSMKS2 + FSMAlevel, data = my_gen)
stargazer(const.qualsvc, const.qualsvl, type = "text")

#effect plots
eddeg.cona <- effect(term = "Degplus19", mod = const.qualsvc)
eddeg.cona <- plot(eddeg.cona, ylim=c(-20,30), xlab = "Percent Degree Qualification Plus", ylab = "Percentage Change in Con vote 2010-19", main="Effect of Degrees on Change in Con % Vote", col.line = "blue")
eddeg.laba <- effect(term = "Degplus19", mod = const.qualsvl)
eddeg.laba <- plot(eddeg.laba, ylim=c(-20,35), xlab = "Percent Degree Qualification Plus", ylab = "Percentage Change in Lab vote 2010-19", main="Effect of Degrees on Change in Lab % Vote",col.line = "red")`

grid.arrange(eddeg.cona, eddeg.laba, ncol=2)`#effect plots side by side

向James Prentice致以亲切的问候(只是一个相当初级的R用户)

Answer 1

欢迎来到SO。我从未使用过effects包，但是看起来您可以从effect()生成的对象中提取用于绘制拟合和置信区间的元素。如果看不到你的数据，我不能提供比这个最小的可重现的例子更多的建议。如果你有任何问题，请告诉我。

library(ggplot2)
library(effects)

mpg.model <- lm(data = mtcars, mpg ~ wt + cyl) 

wt.eff <- effect(term = "wt", mod = mpg.model)

mpg.model.plot.data <- data.frame(
  wt.eff$x,
  eff.lower = wt.eff$lower,
  eff.upper = wt.eff$upper,
  eff.fit = wt.eff$fit
)

ggplot(data=mpg.model.plot.data, aes(x = wt)) +
  geom_ribbon(aes(ymin = eff.lower, ymax = eff.upper), fill = "blue", alpha = 0.3) +
  geom_line(aes(y = eff.fit), color = "blue")