r - 在 R 中使用 abline 绘制回归
问题描述
您好我正在尝试使用 abline 在我的散点图中画一条线,我尝试了几种不同的方法,但我不太确定我做错了什么!(对 R 来说相当新)
编辑:我也尝试过的代码
plot(data$GRE.Score, data$Chance.of.Admit, main = "Regression Line plot",
xlab = "Chance of Admit", ylab = "GRE Score",
pch = 19, frame = FALSE)
abline(lm(GRE.Score ~ Chance.of.Admit, data = data), col = "red")
解决方案
我希望这个小例子能指导你:
# dummy data
df <- data.frame(x = 1:100, y = rpois(100, lambda = 4))
# plot
plot(df$x, df$y, main = "Main title",
xlab = "X axis title", ylab = "Y axis title",
pch = 19, frame = FALSE)
# linear regression line (can only be called AFTER the plot call)
abline(lm(y ~ x, data = df), col = "blue")
# vertical line that cuts X at 10
abline(v = 10, col = "red")
# horizontal line that cuts Y at 10
abline(h = 10, col = "green")
使用 kaggle 数据:
df <- read.csv("C:/.../Admission_Predict.csv")
# plot
plot(df$GRE.Score, df$Chance.of.Admit, main = "Main title",
xlab = "X axis title", ylab= "Y axis title",
pch = 19, frame = FALSE)
abline(lm(Chance.of.Admit ~ GRE.Score, data = df), col = "red")
推荐阅读
- environment-variables - 如何将环境变量传递给 Jboss 上的 Angular App
- php - Htaccess 重定向不起作用从子子文件夹到根文件
- c# - 按角色或细粒度权限过滤 DTO
- r - R 中的 rvest webscrape
- python - 识别 input_string 中的唯一字母和相应计数
- jupyter-notebook - 在侧边栏中设置自定义插件默认打开 - Jupyterlab
- scala - Spark 作业状态记录
- c - 读取未初始化的整数时出现不可预测的行为
- ios - iOS 12 通知扩展自定义 UI 未捕获 UIButton 点击
- javascript - 带有jquery函数问题的循环打印Java脚本