Excel日期和R？

Question

我有一个简短的数据框，我随机创建它，以便在进入大数据框架之前进行练习。我使用与原始版本相同的变量制作它但应该更短。

我遇到的问题是Excel首先按月份计算日期，因此R很困惑，并且它将2015年10月1日放在第一位。什么时候应该是最后一次。

• 我能做什么，所以R正确地命令日期？

另外，我想例如计算一个月内的总金额（数据$ Total）。

• 那个剧本是什么？

如果我已经在这里，我可以一石二鸟。我知道已经有了答案，但我看到的答案涉及使用Direct.labels包完全混淆了整个图形。

• 您建议如何防止标签越过情节 余量？

DPUT（）

 dput(Data)
structure(list(JOB = structure(c(2L, 3L, 1L, 3L, 3L), .Label = c("JAGER", 
"PLAY", "RUGBY"), class = "factor"), AGENCY = structure(c(1L, 
1L, 2L, 1L, 1L), .Label = c("LONDON", "WILHEL"), class = "factor"), 
    DATE = structure(c(4L, 5L, 1L, 2L, 3L), .Label = c("10/1/2015", 
    "10/3/2015", "10/9/2015", "9/24/2015", "9/26/2015"), class = "factor"), 
    RATE = c(90L, 90L, 100L, 90L, 90L), HS = c(8L, 6L, 4L, 6L, 
    4L), TOTAL = c(720L, 540L, 400L, 540L, 360L)), .Names = c("JOB", 
"AGENCY", "DATE", "RATE", "HS", "TOTAL"), class = "data.frame", row.names = c(NA, 
-5L))

Answer 1

以下是我如何处理你之后的事情：

rugger是我从dput()

构建的数据集

plot(order(as.Date(rugger$DATE,"%m/%d/%Y")),rugger$TOTAL,xaxt="n",xlab="",ylab="Total")
labs <- as.Date(rugger$DATE,"%m/%d/%Y")
axis(side = 1,at = rugger$DATE,labels = rep("",5))
text(cex=1, x=order(as.Date(rugger$DATE,"%m/%d/%Y"))+0.1, y=min(rugger$TOTAL)-25, labs, xpd=TRUE, srt=45, pos=2)

文本调用允许您更多地操纵标签，srt是一个旋转调用。我使用order()按时间顺序排列日期，这也会将它们变成代表那些日期的数字，因为有序的日期似乎是作为因素管理的（我不是肯定的，它是＆＃39;正是我所看到的。

如果您不想要点，请查看pch中的plot()参数。 Pch types.