作者andrew43 (讨厌有好心推文後删文者)
看板R_Language
标题Re: [问题] 资料次数依照日序排列
时间Mon Oct 29 22:03:17 2018
转成日期物件会好处理很多。
library(magrittr)
x <-
paste0(round(runif(200, 1, 12)),
"月",
round(runif(200, 1, 28)),
"日")
x.date <-
lapply(strsplit(x, "[日月]"), function(foo) {
paste(foo, collapse = "-") %>%
as.Date(., "%m-%d")
}) %>%
do.call("c", .)
y <- table(x.date)
y[order(names(y))]
※ 引述《demonio (亦鲁)》之铭言：
: [问题类型]:
: 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
: [软体熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: 有一批日期资料如下：
: 3 1月2日
: 4 1月3日
: 5 1月3日
: 6 1月3日
: 7 1月3日
: 8 1月3日
: 9 1月4日
: 10 1月5日
: 11 1月5日
: 12 1月5日
: 13 1月8日
: 14 1月10日
: 15 1月10日
: 16 1月11日
: 17 1月11日
: ...以下省略
: 想用table计算出这些日期出现的次数，然後用折线图从1月1日开始呈现出次数(预计是用
: plot)
: 可是table不会按照日期排列，table的排列方式如下，是从1月10日开始：
: 1月10日 1月11日 1月12日 1月15日 1月17日 1月18日 1月22日 1月23日
: 2 7 2 2 1 4 2 3
: 1月24日 1月25日 1月26日 1月29日 1月2日 1月30日 1月31日 1月3日
: 1 1 3 4 3 2 2 5
: 1月4日 1月5日 1月8日 2月12日 2月13日 2月14日 2月21日 2月22日
: 1 3 1 1 2 3 3 1
: 以至於用plot折线图画也是从1月10号开始。无法由1月1日到12月31日呈现次数折线
: 请教这是否需要特殊的函数来解？
: [程式范例]:
: mail2018<-read.csv(" mail.csv", header = FALSE)
: mail<-table(mail2018)
: plot(mail,type = "l",xlab="日期",ylab="次数",ylim=c(0,20))
: [环境叙述]:
: RStudio Version 1.1.423
: [关键字]:
:
: table
:
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.133.43.95
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1540821800.A.7CC.html
1F：→ clansoda: 原来strsplit可以这样分，直接塞两个值进去 10/29 22:25
2F：→ clansoda: 学到一招了，感谢分享 10/29 22:25
我傻了，其实 x.date <- as.Date(x, "%m月%d日") 就可以了
※ 编辑: andrew43 (220.133.43.95), 10/29/2018 22:28:30
3F：推 demonio: 谢谢A大，除了前面C大的方式同样也成功之外，A大的写法也 10/30 11:06
4F：→ demonio: 可以成功转换，终於了解R认日期的格式是YYYY-MM-DD 10/30 11:07
5F：→ andrew43: R认日期时间字串是可以指定格式的。看看 ?strftime 10/30 11:44
6F：→ andrew43: YYYY-MM-DD是预设先猜测的格式，但不同格式还是可读的。 10/30 11:45