时间戳

首页 > 解决方案 > ggplot 的 as.Date.numeric(data$Oxygen) 错误

r - ggplot 的 as.Date.numeric(data$Oxygen) 错误

问题描述

我对堆栈溢出有点陌生。我有这个非常大的数据集，在 ggplot 中有问题，但我已经能够将其提炼成：

data <- data.frame(
+     Date <- sample(c("1993-07-09", "1993-08-16", "1993-09-13", "1993-10-11", "1993-11-08")),
+     Oxygen <- sample(c("15", "15.8", "15.3", "16", "16"))
+ )
data$Oxygen <- as.numeric(as.character(data$Oxygen))
data$Date <- as.Date(data$Date)

ggplot(data = data, aes(x=Date, y=Oxygen)) + 
    geom_point() +
    geom_smooth(method = "loess", se=FALSE) +
    scale_x_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), label = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")) +
    theme(axis.text.x=element_text(angle = -360, hjust = 0)) +
    theme(plot.title = element_text(hjust = 0.5)) +
    theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),panel.background = element_blank(), axis.line = element_line(colour = "black"))

在此之后，我收到此错误：

as.Date.numeric(value) 中的错误：必须提供“原点”

由于各种原因，我不得不手动标记 x 轴。我的数据集具有多年和所有月份的值。我不知道如何解决这个错误，因为我需要 R 来识别该列是日期。

任何帮助将不胜感激！

标签： rggplot2

解决方案

scale_x_continuous您可以使用 ggplot 的内置函数来代替使用日期： scale_x_date()。它可以像下面的例子一样使用：

scale_x_date(date_breaks = "1 month", date_minor_breaks = "1 week", date_labels = "%B")

这是一种更适合您预期用途的方法。

scale_x_date 的学分和进一步解释

推荐阅读