Excel日期和R？_R_Excel_Date_Plot

Excel日期和R？

r excel date plot

Excel日期和R？,r,excel,date,plot,R,Excel,Date,Plot,我有一个随机创建的短数据框，在它进入大数据框之前进行练习。我使用了与原始版本相同的变量，但要短得多我遇到的问题是Excel的日期是月首，所以R很困惑，它把2015年1月10日放在第一位。应该是最后一次了我该怎么做才能正确地排列日期例如，我还想计算我在一个月内赚的钱的总额（Data$Total）那剧本是什么如果我已经在这里，我可以一石二鸟。我知道这个问题已经有了答案，但我看到的答案涉及到使用Direct.labels包，这完全搞乱了整个图形您有什么建议可以防止标签在绘图上移

我有一个随机创建的短数据框，在它进入大数据框之前进行练习。我使用了与原始版本相同的变量，但要短得多

我遇到的问题是Excel的日期是月首，所以R很困惑，它把2015年1月10日放在第一位。应该是最后一次了

我该怎么做才能正确地排列日期

例如，我还想计算我在一个月内赚的钱的总额（Data$Total）

那剧本是什么

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

您有什么建议可以防止标签在绘图上移动保证金

DPUT（）

以下是我对你所追求的东西的看法：

rugger是我根据您的

dput（）

plot（顺序（截止日期（rugger$Date，“%m/%d/%Y”）），rugger$TOTAL，xaxt=“n”，xlab=“”，ylab=“TOTAL”）
实验室以下是我对你所追求的东西的看法：
rugger是我根据您的dput（）

plot（顺序（截止日期（rugger$Date，“%m/%d/%Y”）），rugger$TOTAL，xaxt=“n”，xlab=“”，ylab=“TOTAL”）
首先，你的图像是相同的，其次，你可以dput（）
你的数据，这样我们就可以看到你在使用什么，第三，尝试使用'as.Date（x，format=“%d/%m/%Y”）'来定义你的日期样式。将为您提供有关如何设置日期的信息，您可以以任何方式安排日期。最后，在绘图时，可以使用plot（）
和axis（）
中的xaxt='n'来设置自己的轴。希望有帮助@亲爱的，我很抱歉！！我现在编辑了这篇文章！是的，你已经帮了我很大的忙了！非常感谢，非常感谢。首先，你的图像是相同的，其次，你可以dput（）
你的数据，这样我们就可以看到你在使用什么，第三，尝试使用'as.Date（x，format=“%d/%m/%Y”）'来定义你的日期样式。将为您提供有关如何设置日期的信息，您可以以任何方式安排日期。最后，在绘图时，可以使用plot（）
和axis（）中的xaxt='n'来设置自己的轴。希望有帮助@亲爱的，我很抱歉！！我现在编辑了这篇文章！是的，你已经帮了我很大的忙了！非常感谢，非常感谢。你是一个明星！非常感谢你。你教我的真的很好。现在，如果我想知道我每个月挣了多少钱，你会如何将总数在几个月内分开。没问题，很高兴能帮上忙！真的很有帮助！嗨，亲爱的！哈哈。在我给CSV添加更多日期之前，你的脚本工作得很好。它在axis中给了我这个错误（side=1，at=Data$Date，labels=rep（“，7））：没有位置是有限的。另外：警告消息：在axis中（side=1，at=Data$Date，labels=rep（“，7））：强制引入的NAs，如您添加的日期，不符合您在数据集中早些时候建立的数据标准。你能在看到这个问题的地方添加数据吗？你是个明星！非常感谢你。你教我的真的很好。现在，如果我想知道我每个月挣了多少钱，你会如何将总数在几个月内分开。没问题，很高兴能帮上忙！真的很有帮助！嗨，亲爱的！哈哈。在我给CSV添加更多日期之前，你的脚本工作得很好。它在axis中给了我这个错误（side=1，at=Data$Date，labels=rep（“，7））：没有位置是有限的。另外：警告消息：在axis中（side=1，at=Data$Date，labels=rep（“，7））：强制引入的NAs，如您添加的日期，不符合您在数据集中早些时候建立的数据标准。你能在这个问题出现的地方添加数据吗？
 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))

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)