2014-09-25 33 views
3

您好我只需要与每个日期的当天仍然存在:[R提取一天

df<-data.frame(x=c("2014-07-24 00:00:00", 
"2014-07-24 00:00:00", "2014-07-11", "2014-07-11" ,"2014-07-16" ,"2014-07-14")) 
as.Date(df$x,format="%Y-%m-%d") 

我尝试这样做:

df$dia<-as.Date(df$x, format="%d") 

但我从原单一个完整的日期和不同。

我不想安装另一个软件包来执行此操作。 我该如何解决它? 谢谢

+1

'df $ x < - as.Date(df $ x)'?你想要一天的名字吗? '平日(df $ x)'你想要一个数字结果吗?你的问题不清楚。 – 2014-09-25 16:37:39

+2

根据定义,日期是年,月和日。您需要为人们提供更多信息以最好地帮助您。一些'df $ x'的值有时间。他们在什么时区?时间总是“00:00:00”吗?如果你只想把一天当成一个字符串,你可以使用'format(as.Date(df $ x,format =“%Y-%m-%d”),“%d”)''。 – 2014-09-25 16:37:51

回答

16

您是否在寻找format

format(as.Date(df$x,format="%Y-%m-%d"), "%d") 
# [1] "24" "24" "11" "11" "16" "14" 
1

尝试:

sapply(strsplit(as.character(df$x), '-'), function(x) x[3]) 
[1] "24" "24" "11" "11" "16" "14" 
1

由于您的结果将不再是一个日期,无论如何,你可以使用gsub

gsub("(.*)[-]", "", df$x) 
# [1] "24" "24" "11" "11" "16" "14" 
3

如果你的约会总是在相同的位置和格式,你有另一种选择substr()。下面的电话从第9个位置开始 - 一天的开始 - 并以第10个 - 当天的第二个数字结束。

substr(x = df$x, start = 9, stop = 10) 
[1] "24" "24" "11" "11" "16" "14" 
0

您可以简单地使用工作日(df $ date)从日期中提取星期几。只确保列的类型是Date或使用as.Date()进行转换。 希望这会有所帮助:)