rm(list = ls())#清空工作区,可在括号内加装变量等定向清除某个变量等
file_path<-file.choose()#在此标注加载文件目录,如E:\工作
library(readxl)
mydata <- read_excel(file_path)
par(mfrow = c(1,1))#画图设置
path<-readline()#括号不写内容,默认读取下一行
E:\工作\#设定工作目录,输出图片等需要到的目录
Mypath<- gsub("\\\\", "/",path)
setwd(Mypath)
getwd()