This commit is contained in:
Steven Hobs 2025-03-24 18:46:22 +08:00
parent 1cec12dbb9
commit a1e5be0e8c
3 changed files with 40 additions and 32 deletions

View File

@ -1,2 +1,8 @@
# R 配置 # R 配置
options("repos" = c(CRAN = "https://mirrors.cernet.edu.cn/CRAN/"))
options("repos" = c(CRAN = "https://mirrors.cernet.edu.cn/CRAN/")) # 包的镜像源
if (Sys.getenv("VSCODE_DEBUG_SESSION") == "1") { # Debugger关联
Sys.setenv(TERM_PROGRAM = "vscode")
source(file.path(Sys.getenv(if (.Platform$OS.type == "windows") "USERPROFILE" else "HOME"), ".vscode-R", "init.R"))
}

50
.vscode/settings.json vendored
View File

@ -1,27 +1,29 @@
/* VSCode */ /* VSCode */
{ {
"r.rpath.linux": ".conda/bin/R", "r.rpath.linux": ".conda/bin/R",
"r.libPaths": [ "r.libPaths": [
".conda/bin/R/library" ".conda/bin/R/library"
], ],
"r.rterm.linux": "${workspaceFolder}/.conda/bin/R", "r.rterm.linux": "${workspaceFolder}/.conda/bin/radian",
"r.rterm.option": [ "r.rterm.option": [
"--no-save", "--no-save",
"--no-restore" "--no-restore"
], ],
"r.plot.useHttpgd": true, "r.plot.useHttpgd": true,
"r.lsp.diagnostics": true, "r.lsp.diagnostics": true,
"r.alwaysUseActiveTerminal": true, "r.alwaysUseActiveTerminal": true,
"r.bracketedPaste": true, "r.bracketedPaste": true,
"r.sessionWatcher": true, "r.sessionWatcher": true,
"[r]": { "[r]": {
"editor.defaultFormatter": "REditorSupport.r", "editor.defaultFormatter": "REditorSupport.r",
"editor.formatOnSave": true "editor.formatOnSave": true
}, },
"[rmd]": { "[rmd]": {
"editor.defaultFormatter": "REditorSupport.r", "editor.defaultFormatter": "REditorSupport.r",
"editor.formatOnSave": true "editor.formatOnSave": true
}, },
"files.eol": "\n", "terminal.integrated.defaultProfile.linux": "R Terminal",
"terminal.integrated.defaultProfile.linux": "R Terminal", "files.eol": "\n",
"editor.tabSize": 2,
"editor.detectIndentation": false
} }

View File

@ -7,11 +7,11 @@ y <- rnorm(100) # 生成 100 个正态分布随机数作为 y 值
# 创建散点图 # 创建散点图
plot(x, y, plot(x, y,
main = "Scatter Plot of Random Data", # 图表标题 main = "Scatter Plot of Random Data", # 图表标题
xlab = "X-axis Label", # X 轴标签 xlab = "X-axis Label", # X 轴标签
ylab = "Y-axis Label", # Y 轴标签 ylab = "Y-axis Label", # Y 轴标签
col = "blue", # 点的颜色 col = "blue", # 点的颜色
pch = 19 pch = 19
) # 点的形状 ) # 点的形状
# 添加回归线 # 添加回归线
@ -19,6 +19,6 @@ abline(lm(y ~ x), col = "red") # 添加线性回归线,红色
# 添加图例 # 添加图例
legend("topright", legend("topright",
legend = c("Data Points", "Regression Line"), legend = c("Data Points", "Regression Line"),
col = c("blue", "red"), pch = c(19, NA), lty = c(NA, 1) col = c("blue", "red"), pch = c(19, NA), lty = c(NA, 1)
) )