R语言观察日志(part12)--关于.Rprofile文件

学习笔记，仅供参考，有错必纠

关于.Rprofile文件

帮助文档

除非--no-init-file被给出，R会搜索一个用户配置文件，一个包含R代码的文件。这个文件的路径可以由R_PROFILE_USER环境变量指定，如果这个未设置，一个名为.Rprofile的文件会被在当前目录或用户的主目录中(按顺序)搜索。

如果在开始时想要一组与默认包不同的包，请在.Rprofile或Rprofile.site文件中插入options选项。例如，options(defaultPackages = character())在启动时不会附加任何额外的包(只有基本包)。

如果你想要.Rprofile或Rprofile.site被子R进程忽略，适当的环境变量R_ENVIRON_USER或R_PROFILE_USER设置为""或不存在文件的名称。

简而言之

.Rprofile文件是每次R启动时，都要执行的简单的脚本文件。我们可以通过编写一个.Rprofile文件，在打开R的时，R会自动运行.Rprofile中的代码，来完成一系列设置。

实战

未设置.Rprofile的R计算和显示结果

C:\Users\goatbishop\Desktop\data>RR version 3.6.2 (2019-12-12) -- "Dark and Stormy Night"
Copyright (C) 2019 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)R'license()''licence()'R.
'contributors()'
'citation()'RR'demo()''help()'
'help.start()'HTML
'q()'R.> 4/3
[1] 1.333333
> test <- c(1, 2, 3)
> test[5] <- 5
> test
[1]  1  2  3 NA  5
> df <- read.csv("money.csv")
> str(df)
'data.frame':   8 obs. of  4 variables:$ X    : int  1 2 3 4 5 6 7 8$ name : Factor w/ 8 levels "ada","black",..: 1 7 6 2 5 4 8 3$ age  : int  19 20 30 25 32 18 26 21$ money: int  1000 2000 2500 22 2400 4000 1000 3000

设置.Rprofile的R计算和显示结果

编辑当前工作目录下的.Rprofile文件，如果当前项目下没有.Rprofile文件，以下命令将会自动创建，并编辑：

file.edit(".Rprofile")

在.Rprofile中加入如下代码：

#欢迎词
message("Hello GoatBishop!")#自定义每行命令的前置提示符
options(prompt = ">>>")#设置开启R时,默认加载的包
#如果它未设置
#则开启R默认加载
#c("datasets", "utils", "grDevices", "graphics", "stats", "methods")
options(defaultPackages = c("datasets", "utils", "grDevices","graphics", "stats", "methods","readr"))#控制打印数字时的有效数字(默认为7)
options(digits = 5)#print或show方法可以使用此选项来限制打印的信息量
#限制最大输出条目为50条
options(max.print = 50)#设置 data.frame and read.table中默认参数stringsAsFactors为FALSE
options(stringsAsFactors = FALSE)#默认为为FALSE,如果为真,则每当扩展向量(原子或列表)时都会产生警告
options(check.bounds = TRUE)#定义一个以.开头的变量,来隐藏它
.myvalue <- "GoatBishop 153"#定义一个隐藏函数.myshow <- function(df, n = 5) {rbind(head(df, n), tail(df, n))
}

更多选项请通过?options查看

在该工作目录下打开cmd，我们可以看到如下R计算和显示结果：

C:\Users\goatbishop\Desktop\data>RR version 3.6.2 (2019-12-12) -- "Dark and Stormy Night"
Copyright (C) 2019 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)R'license()''licence()'R.
'contributors()'
'citation()'RR'demo()''help()'
'help.start()'HTML
'q()'R.Hello GoatBishop!- There were 50 or more warnings (use warnings() to see the first 50)
>>>4/3
[1] 1.3333
>>>test <- c(1, 2, 3)
>>>test[5] <- 5
Warning message:
In test[5] <- 5 : /(35)
>>>test
[1]  1  2  3 NA  5
>>>df <- read.csv("money.csv")
>>>str(df)
'data.frame':   8 obs. of  4 variables:$ X    : int  1 2 3 4 5 6 7 8$ name : chr  "ada" "tim" "huang" "black" ...$ age  : int  19 20 30 25 32 18 26 21$ money: int  1000 2000 2500 22 2400 4000 1000 3000
>>>.myvalue
[1] "GoatBishop 153"
>>>.myshow(df, 2)X   name age money
1 1    ada  19  1000
2 2    tim  20  2000
7 7 yellow  26  1000
8 8   blue  21  3000

很好！