我总是发现其他人的创业简介文件对这门语言既有用又有指导意义。此外，虽然我对Bash和Vim进行了一些定制，但对R没有任何定制。
例如，我一直想要的一件事是在窗口终端中输入和输出文本的颜色不同，甚至可能是语法高亮显示。
当前回答
options(stringsAsFactors=FALSE)
虽然我的. r配置文件中没有这个，因为它可能会破坏我的合作者的代码，但我希望它是默认的。为什么?
1)字符向量使用更少的内存(但只是很少);
2)更重要的是，我们可以避免这样的问题:
> x <- factor(c("a","b","c"))
> x
[1] a b c
Levels: a b c
> x <- c(x, "d")
> x
[1] "1" "2" "3" "d"
and
> x <- factor(c("a","b","c"))
> x[1:2] <- c("c", "d")
Warning message:
In `[<-.factor`(`*tmp*`, 1:2, value = c("c", "d")) :
invalid factor level, NAs generated
因子在你需要的时候很有用(比如在图中实现排序)，但大多数时候都很麻烦。
其他回答
我有一个环境变量R_USER_WORKSPACE，它指向包的顶部目录。在. rprofile中，我定义了一个函数devlib，它设置了工作目录(以便data()工作)，并在R子目录中获取所有.R文件。它与上面Hadley的l()函数非常相似。
devlib <- function(pkg) {
setwd(file.path(Sys.getenv("R_USER_WORKSPACE", "."), deparse(substitute(pkg)), "dev"))
sapply(list.files("R", pattern=".r$", ignore.case=TRUE, full.names=TRUE), source)
invisible(NULL)
}
.First <- function() {
setwd(Sys.getenv("R_USER_WORKSPACE", "."))
options("repos" = c(CRAN = "http://mirrors.softliste.de/cran/", CRANextra="http://www.stats.ox.ac.uk/pub/RWin"))
}
.Last <- function() update.packages(ask="graphics")
我发现两个函数是非常必要的:首先，当我在几个函数上设置debug()并且我已经解决了错误，所以我想要undebug()所有函数-而不是一个接一个。在这里添加的undebug_all()函数作为接受的答案是最好的。
其次，当我定义了许多函数并正在寻找一个特定的变量名时，很难在ls()的所有结果中找到它，包括函数名。这里发布的lsnofun()函数真的很好。
我在个人资料中设置了格子颜色主题。以下是我使用的另外两个调整方法:
# Display working directory in the titlebar
# Note: This causes demo(graphics) to fail
utils::setWindowTitle(base::getwd())
utils::assignInNamespace("setwd",function(dir) {.Internal(setwd(dir));setWindowTitle(base::getwd())},"base")
# Don't print more than 1000 lines
options(max.print=2000)
让data.frames的显示有点像'head'，只是不需要输入'head'
print.data.frame <- function(df) {
if (nrow(df) > 10) {
base::print.data.frame(head(df, 5))
cat("----\n")
base::print.data.frame(tail(df, 5))
} else {
base::print.data.frame(df)
}
}
(从如何使'头'自动应用到输出?)
我的不太花哨:
# So the mac gui can find latex
Sys.setenv("PATH" = paste(Sys.getenv("PATH"),"/usr/texbin",sep=":"))
#Use last(x) instead of x[length(x)], works on matrices too
last <- function(x) { tail(x, n = 1) }
#For tikzDevice caching
options( tikzMetricsDictionary='/Users/cameron/.tikzMetricsDictionary' )
