时间戳

首页 > 解决方案 > R时间序列折线图

r - R时间序列折线图

问题描述

我想记录咖啡分配从记录开始到结束的折线图。我想确定每天购买的饮料。每天的相应数量应在整个时间范围内显示。在我读入数据集后，我遇到了日期/时间格式的第一个问题。我怀疑我没有把它们变成正确的格式。

然后我试着计算每天的咖啡消耗量。然后我发现我的公式总是使用 2020 年，尽管它可以追溯到 2019 年。

所以我的情节看起来很有趣，而且没有找到年份。

有人可以帮帮我吗？

非常感谢！

链接到数据集：https ://github.com/Skruff80/Getting-started/blob/master/ProductList.csv


coffeedata <- fread("C:/temp/ProductList.csv")

str(coffeedata)
head(coffeedata)
coffeedata$Date = as.Date(coffeedata$Date, "%d.%m.%y")
head(coffeedata)

countcoffee <- function(timeStamps) {
  Dates <- as.Date(strftime(coffeedata$Date, "%Y-%m-%d"))
  allDates <- seq(from = min(Dates), to = max(Dates), by = "day")
  coffee.count <- sapply(allDates, FUN = function(X) sum(Dates == X))
  data.frame(day = allDates, coffee.count = coffee.count)}

daylicounter = countcoffee(df$message.date)

lines(daylicounter)

情节应该看起来像链接中的图片。 https://github.com/Skruff80/Getting-started/blob/master/example.png

感谢你的帮助。

标签： r

解决方案

可以修复 X ​​轴的错误。正如我已经怀疑的那样，重新格式化日期是错误的。我用过

%y

代替

%Y

coffeedata$Date = as.Date(coffeedata$Date, "%d.%m.%Y")

推荐阅读