我正在尝试读取位于以下路径中的文本文件.如果我从长目录中读取文件,我会收到错误..但如果我将文件放在C下,它运行正常.谁能告诉我如何从以下目录路径读取表格？
> data1 <-read.table("C:\\Documents and Settings Administrator\\My Documents\\My Dropbox\\data1.txt", sep="\t", header=TRUE)
Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :
cannot open file 'C:\Documents and Settings Administrator\My Documents\My Dropbox\data.txt': No such file or directory
> data1 <-read.table("C:\\data1.txt",sep="\t",header=TRUE)
>
我目前有OHLC日内数据,我需要转换为5分钟的数据.在R中有没有办法做到这一点？
今天,由于数据帧子集操作,我遇到了代码中的错误.我想知道我发现的问题是一个错误还是我违反了R语义.
我正在使用R 2.15.2-61015(Trick或Treat)运行RHEL x86_64.我正在使用基础包中的子集操作.
以下代码应该是可重现的,并且它是在为此测试目的而启动的干净R控制台上运行的.
>teste <-data.frame(teste0=c(1,2,3),teste1=c(3,4,5))
>teste0<-1
>teste1<-1
>subset(teste,teste[,"teste0"]==1 & teste[,"teste1"]==1)
[1] teste0 teste1
<0 rows> (or 0-length row.names)
>subset(teste,teste[,"teste0"]==teste0 & teste[,"teste1"]==teste1)
teste0 teste1
1 1 3
2 2 4
3 3 5
但是,如果我在子集操作之外运行逻辑代码:
>teste[,"teste0"]==teste0 & teste[,"teste1"]==teste1
[1] FALSE FALSE FALSE
我希望两个子集操作都会产生一个空的数据帧.但是,第二个返回完整的数据帧.这是一个错误还是我错过了R环境和名称空间的一些内容？
谢谢你的帮助,米格尔
我试图使用下面的代码选择除前2000行以外的所有行,但是我收到以下错误.
new_table = sqldf("select units, count(*)
from old_table
group by units
where count(*) > 2000")
Error in sqliteExecStatement(con, statement, bind.data) :
RS-DBI driver: (error in statement: near "where": syntax error)
我有一个动物园时间序列对象.在保留日期的同时,如何按值对其进行排序？
如果这是我的系列:
2013-10-02 2013-10-03 2013-10-04 2013-10-07 2013-10-08 2013-10-09
-0.02 0.00 0.00 0.04 0.00 0.02
结果应该是:
2013-10-02 2013-10-03 2013-10-04 2013-10-08 2013-10-09 2013-10-07
-0.02 0 0 0 0.02 0.04
普通sort按日期(而非值)对zoo对象进行排序.zoo对象(日期,1个值系列)具有暗淡的NULL,因此无法指定我想要按第二列排序.
假设我在 60 (n) 个月内每月在银行存入 1000 (P) 美元，银行每月向我支付 1 (R)% 作为利息。因此，我可以计算每笔存款的利息：
P=1000
n=60
rate=1
P*(rate/100)*(n:1)
[1] 600 590 580 570 560 550 540 530 520 510 500 490 480 470 460 450 440 430 420 410 400 390 380 370 360 350 340 330 320 310 300
[32] 290 280 270 260 250 240 230 220 210 200 190 180 170 160 150 140 130 120 110 100 90 80 70 60 50 40 30 20 10
和总利息 (totalInt) 为
totalInt …我想检查一段代码所花费的时间.有没有办法做到这一点.我想知道所有的时间,比如(user, system, and elapsed)我的代码的一小部分时间.说我的代码有不同的部分
code 1......
...........
...........
code2.........
...............
...............
所以我想要时间code 1.谢谢
我试图用命令将对象保存到文本文件write.table(ESH2, "c:/ESH2.txt", sep=",").问题是保存的时间序列不包含我下载的日期和时间值.我使用了包twsInstrument和命令getBAT(ESH2)
使用该命令将其加载到R中时的数据 load(file = "C:/ESH2.Rdata")
ES.Bid.Price ES.Ask.Price ES.Trade.Price ES.Mid.Price ES.Volume
1323700200 1237.25 1237.50 1237.50 1237.375 6954
1324057980 1210.25 1210.50 1210.25 1210.375 3792
1324058040 1210.50 1211.00 1211.00 1210.750 3305
.........
.........
.........
1324058100 NA NA NA NA 823
attr(,".indexCLASS")
[1] POSIXct POSIXt
attr(,".indexTZ")
[1]
attr(,"from")
[1] 20111211 23:59:59
attr(,"to")
[1] 20111216 23:59:59
attr(,"src")
[1] IB
attr(,"updated")
[1] "2011-12-16 18:54:55 CET"
第一列应显示Date_Time而不是1323700200.
我正在寻找一种简单的方法来每周下载一次数据并合并数据.
ps是的,我可以阅读教程/书籍来完成这一点,是的,我会这样做,但问题是我没有时间.我想本周开始收集数据,因为交互式经纪人正在限制数据请求1min data = 5DAYS maximum.我感谢任何帮助和建议.
我在R中有一个动物园对象的百分比变化.我想从1或100开始复合那些百分比变化,看看我们是否有复合扩展/衰减.
Lines <- "obs date pctchng comgrowth
1 2010-10-04 NA 100
2 2010-10-01 .15 NA
3 2010-09-30 .14 NA
4 2010-09-29 -.05 NA
5 2010-09-28 -.12 NA
6 2010-09-27 .07 NA
7 2010-09-24 -.15 NA
8 2010-09-23 .186 NA
9 2010-09-22 .01 NA
10 2010-09-21 .03 NA
11 2010-09-20 -.03 NA"
data <- read.zoo(textConnection(Lines), header=TRUE, index=2)
startobs <- 1
for (i in 1:100) {
data[startobs+i,"comgrowth"] <- data[startobs+i-1,"comgrowth"] *
(1+data[startobs+i,"pctchng"])
}
我正在简化数据以简化显示,但这是我想要做的主意.我意识到问题是在加/减/除/乘时.出于某种原因我可以说data[startobs+i,"comgrowth"]=data[startobs+i-1,"comgrowth"]但是......
我不能说data[startobs+i,"comgrowth"]=data[startobs+i-1,"comgrowth"]+data[startobs+i-2,"comgrowth"].R不会让我添加+/ - /*等,并给我这个错误
Error in …我有一个数据帧:
Date area sales
1 201204 shanghai 23
2 201204 beijing 25
3 201204 beijing 16
4 201205 shanghai 55
5 201205 beijing 17
6 201205 shanghai 16
我想输出的是一个表格如下:
Date shanghai beijing
201204 23 41
201205 71 17
我怎么会在R？