是否可以ggplot2使用ggplot诸如将其他因素映射到颜色,形状等并添加更平滑的优良特征来绘制散点图矩阵？
我正在考虑类似于该base功能的东西pairs.
是否可以在roxygen过程中将.R文件包含在我的包的数据目录中？
我在数据目录中放了几个.R文件.当它们使用data()获取时,它们会读入原始数据文件并执行一些转换.
如何将UTF-8编码的字符串写入vba的文本文件中,如
Dim fnum As Integer
fnum = FreeFile
Open "myfile.txt" For Output As fnum
Print #fnum, "special characters: äöüß" 'latin-1 or something by default
Close fnum
应用程序级别是否有一些设置？
这是我写的一个函数,用于将长字符串分成不长于给定长度的行
strBreakInLines <- function(s, breakAt=90, prepend="") {
words <- unlist(strsplit(s, " "))
if (length(words)<2) return(s)
wordLen <- unlist(Map(nchar, words))
lineLen <- wordLen[1]
res <- words[1]
lineBreak <- paste("\n", prepend, sep="")
for (i in 2:length(words)) {
lineLen <- lineLen+wordLen[i]
if (lineLen < breakAt)
res <- paste(res, words[i], sep=" ")
else {
res <- paste(res, words[i], sep=lineBreak)
lineLen <- 0
}
}
return(res)
}
它适用于我遇到的问题; 但我想知道我是否可以在这里学到一些东西.是否有更短或更有效的解决方案,尤其是我可以摆脱for循环？
是否可以创建一个S4类,其中一个或多个插槽可以是多个类？例如.假设您遇到的情况是数据可能是向量,也可能是data.frame.
exampleClass <- setClass("exampleClass",
representation(raw=c("data.frame","numeric","character"),
anotherSlot=c("data.frame","numeric"))
或者,这是否需要定义子类/超类？
PS:搜索有关S4类的有用教程会产生有限的结果.将非常感谢有关S4类创建/使用/文档的良好教程的链接.
我的目标是在给定开始,结束和增量(15分钟,1小时,1天)的情况下创建POSIXct时间戳的向量.我希望我可以使用seq它,但我在数字和POSIXct表示之间转换时遇到问题:
now <- Sys.time()
now
# [1] "2012-01-19 10:30:39 CET"
as.POSIXct(as.double(now), origin="1970-01-01", tz="CET")
# [1] "2012-01-19 09:30:39 CET"
as.POSIXct(as.double(now), origin=as.POSIXct("1970-01-01", tz="CET"), tz="CET")
# [1] "2012-01-19 09:30:39 CET"
转换期间会丢失一小时.我究竟做错了什么？
至于R,可有人向我解释,关于对象继承,如果我有S4对象X,它包含Y,如果Y有一个初始化,这怎么可能初始化从X的初始化中调用,当X是建造.
我的函数的参数的默认值包含"%".这似乎是roxygen的一个问题,它会产生很多警告,并且在尝试构建乳胶文档时R CMD检查失败.
如何使此功能(及其文档)有效？使用%%或\%代替%无济于事.
#' Test escape \% from in-source documentation (roxygen).
#'
#' What happens when parameters contain special latex characters?
#'
#' @param x unsuspicious parameter
#' @param format sprintf format string (default "\%5.0f")
#'
#' @return formatted string
#' @export
#' @author Karsten Weinert
testroxy <- function(x, format = "%5.0f") {
sprintf(format,x)
}
我想要读入的数据集包含带和不带逗号的数字作为千位分隔符:
"Sudan", "15,276,000", "14,098,000", "13,509,000"
"Chad", 209000, 196000, 190000
我正在寻找一种方法来读取这些数据.
任何暗示赞赏!
我有使用S4对象及其插槽的经验,所以我知道如何访问特定的插槽和子插槽.我想学习的是如何以unlist拆分S3列表的方式对对象进行"去插槽" .
我的直接目标是让我的一个玩具的S4对应物返回一个物体的元素数量:
lssize<-function(items){
if (any(sapply(sapply(items,get),typeof)=='closure')){
warning('Closures in list, will ignore.')
items<-items[(sapply(sapply(bar,get),typeof)=='closure')!=TRUE]
}
sizes<-sapply(sapply(sapply(sapply(items,get,simplify=F), unlist,simplify=F), as.vector,simplify=F), length)
return(sizes)
}
(没有公平地笑我的代码:-)).我希望不必编写一些递归例程,一次提取一个插槽来转换它们.
编辑:我知道object.size会返回bytecount; 不是我在这里.