关于R的两个问题求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

使用R 没多久 有两个关于R的问题不知道有没有高手能解答一下
一个是关于时间的问题， 我有一个时间变量，用as.POSIXct函数转化后
变成2008-12-01 18:22:54 的格式，想问一下如何能方便的取出其中的年，
月，日，时，分，秒
第二个问题是关于查看函数体的，在使用包randomForest时有一个importance函数，怎样
才能看到它的源代码，直接输importance, 得到的是
function (x, ...)
UseMethod("importance")
<environment: namespace:randomForest>
接下来就不知道该怎么办了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：randomForest importance function import Forest function 源代码 如何

友情帮顶！

LZ能把第一个问题中的具体时间变量给出来吗？
关于第二个问题的代码：
library(randomForest)
getS3method("importance","randomForest")

If you want to extract the year, month, ... from the data POSIXlt class may be more convenient. Use as.POSIXlt() to convert to this class then use varName$year+1900, varName$month, varName$mday, varName$hour, varName$min and varName$sec to extract the year, month, day of month, hour, minute and second of the data/time. (Here varName is the name of the POSIXlt variable).

非常感谢上面两位，终于都弄清楚了。

zhangyangsmith 发表于 2011-8-9 16:09
If you want to extract the year, month, ... from the data POSIXlt class may be more convenient. Use  ...

谢谢你的解答，我在实际操作中发现个问题如果如下定义
x <- data.frame(Date=as.POSIXlt(Time),.....)
其中 variable Time 是格式为"2008-09-10 10:12:33"的字符串
在这种情况下，似乎就没办法对Date来取year,month......了，
不知道有没有什么办法来解决， 谢谢

There is a mistake in my last post: to extract month one should use varName$mon+1 instead of varName$mon. Sorry for that. See the R help DateTimeClasses {base}:

Details

There are two basic classes of date/times. Class "POSIXct" represents the (signed) number of seconds since the beginning of 1970 (in the UTC timezone) as a numeric vector. Class "POSIXlt" is a named list of vectors representing

sec
0–61: seconds
min
0–59: minutes
hour
0–23: hours
mday
1–31: day of the month
mon
0–11: months after the first of the year.
year
years since 1900.
wday
0–6 day of the week, starting on Sunday.
yday
0–365: day of the year.
isdst
Daylight Savings Time flag. Positive if in force, zero if not, negative if unknown.

Not quite sure what you meant in the last post. The function as.POSIXlt() will convert the string into a list which represents date and time. Here is my test (R-2.12.2):

1. > # the string of the date/time
   
2. > Time <- "2008-09-10 10:12:33"
   
3. > # type of variable "Time"
   
4. > class(Time)
   
5. [1] "character"
   
6. > # as.POSIXlt convert the above string into an instant of class POSIXlt
   
7. > Date <- as.POSIXlt(Time)
   
8. > # type of variable "Date"
   
9. > class(Date)
   
10. [1] "POSIXlt" "POSIXt"
    
11. > # year
    
12. > Date$year + 1900
    
13. [1] 2008
    
14. > # month
    
15. > Date$mon + 1
    
16. [1] 9
    
17. > # day of month
    
18. > Date$mday
    
19. [1] 10
    
20. > # hour
    
21. > Date$hour
    
22. [1] 10
    
23. > # minute
    
24. > Date$min
    
25. [1] 12
    
26. > # second
    
27. > Date$sec
    
28. [1] 33

复制代码

zhangyangsmith 发表于 2011-8-10 15:27
There is a mistake in my last post: to extract month one should use varName$mon+1 instead of varName ...

我的意思是如果用as.POSIXlt()定义得到时间变量，在现实中不会单独使用
它往往成为一个数据集中的一个时间index，举个例子
data <- data.frame(Time,Num), 其中的Time 属于 class POSIXlt, Num 是每秒细菌繁殖数量

data
Time                           Num
2008-09-10 10:12:33    20
2008-09-10 10:12:34    40
      .                            .
      .                            .
如果我要选取第12分钟的所有数据
data[data$Time$min==12,]
这是我希望能实现的语句，但是这条命令是错误的，我的问题是
在这种情况下怎么取min， 谢谢

It seems the data.frame() function has changed the type of POSIXlt instants while constructing the data. See the following test:

1. > Time <- as.POSIXlt(c("2008-09-10 10:12:33", "2008-09-10 10:12:34"))
   
2. > Num <- c(20, 40)
   
3. > data <- data.frame(Time, Num)
   
4. > class(data$Time)
   
5. [1] "POSIXct" "POSIXt"

复制代码

So you will need to use the as.POSIXlt() again:

1. > data[as.POSIXlt(data$Time)$min == 12, ]
   
2.                  Time Num
   
3. 1 2008-09-10 10:12:33  20
   
4. 2 2008-09-10 10:12:34  40

复制代码

zhangyangsmith 发表于 2011-8-10 16:49
It seems the data.frame() function has changed the type of POSIXlt instants while constructing the d ...

谢谢， 只能这么变通一下了