小编TBP*_*TBP的帖子

rollapply中的对齐和偏移

我正在尝试计算移动窗口的一些统计数据,并在动物园包中使用rollapply.我的问题是如何让rollapply将该函数应用于前面的n个观察值而不是当前观察值和前面的n-1个观察值,因为右对齐似乎可以.

require(zoo)
z <- data.frame(x1=11:111, x2=111:211, x3=as.Date(31:131))#generate data
output<-data.frame(dates=z$x3,
                   rollapply(z[,1:2],by.column=TRUE, 5, max, fill=NA, align='right'))
Run Code Online (Sandbox Code Playgroud)

我有一个预感,这是由回答?rollapply"如果width是一个普通的数字向量,它的元素被认为是与align一起解释的宽度,而如果width是一个列表,它的组件被视为偏移.在上面的例子中,如果宽度为1,然后宽度为每个第s点再循环.如果width是列表,则其组件表示整数偏移,使得列表的第i个分量引用位置i + width [[i]]的时间点".但是我不知道R代码意味着什么,没有提供任何例子.

r zoo rollapply

5
推荐指数
1
解决办法
3658
查看次数

有效构建大型(200 MM线)数据帧

我试图在R中构建一个大的(~200 MM线)数据帧.数据帧中的每个条目将包含大约10个数字(例如1234.12345).代码设计用于遍历列表,从[i]之后的每个项目中减去位置[i]中的项目,而不是[i]之前的项目(如果我将输出放入矩阵中,它将是三角矩阵) ).代码很简单,在较小的列表上工作正常,但我想知道是否有更快或更有效的方法来做到这一点?我假设答案的第一部分将涉及"不要使用嵌套for循环",但我不确定替代方案是什么.

这个想法是,这将成为社交网络分析图的"边缘列表".一旦我有'outlist',我将根据一些标准(<,>,==,)减少边数,因此最终列表(和图形)将不会那么重要.

#Fake data of same approximate dimensions as real data
dlist<-sample(1:20,20, replace=FALSE) 
#purge the output list before running the loop
rm(outlist)
outlist<-data.frame()

for(i in 1:(length(dlist)-1)){
         for(j in (i+1):length(dlist)){

             outlist<-rbind(outlist, c(dlist[i],dlist[j], dlist[j]-dlist[i]))

     }
    }
Run Code Online (Sandbox Code Playgroud)

r

4
推荐指数
1
解决办法
129
查看次数

R图中的斜体希腊字母?

是否可以将R图中的希腊字母斜体化?理想情况下,以下代码将导致斜体希腊字母:

plot(1:10, 1:10, type="n")
text(8,4, expression(italic(gamma)~":"~italic(sigma))) #doesn't work...
text(2,2,expression(italic("this")~":"~italic("that")))
Run Code Online (Sandbox Code Playgroud)

plotmath文档非常清楚地指出,italic()不适用于希腊字母,但是,他们确实说带有\ uxxxxx或\ Uxxxxxxxx的UTF-8可以用于创建斜体希腊符号,但是我无法获得此符号去工作。是否有人对如何使用utf或其他方式提出建议?

可能有一些Tex解决方案,但是我没有成功获取基本的Tex示例在我的系统上工作。我对他们开放,但我可能会问一些后续问题。

下面的代码几乎可以显示出我想要的内容,但并不完全。

windows(family='serif') #name for Times in default windows gr device lib
plot(1:10, 1:10, type="n")
text(5,9, expression(italic(?)~":"~italic(?))) #1
text(5,7, paste("\u03B2",":","\u03B1",sep=" "), font=3) #2
text(5,5, expression(italic(beta)~":"~italic(alpha))) #3
text(5,3, expression(italic("\u03B2")~":"~italic("\u03B1"))) #4
text(5,1.5, expression(italic("\u03B2")~plain(":")~italic("\u03B1"))) #5
Run Code Online (Sandbox Code Playgroud)

在此处输入图片说明

我需要斜体符号和非斜体“:”。在顶部(#1)中,斜体符号看起来很奇怪。在第二个中,斜体符号看起来正确,但是“:”是斜体。是的,期刊编辑已经抓住了这一点。

操作系统:Windows 7 x64

r

2
推荐指数
1
解决办法
4680
查看次数

标签 统计

r ×3

rollapply ×1

zoo ×1