Question

我是堆栈溢出的新手。我有一个非常大的数据集，但在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）中的错误：必须提供'origin'

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

任何帮助将不胜感激！

Answer 1

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

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

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

Credits and further explanation for scale_x_date

ggplot的as.Date.numeric（data $ Oxygen）错误

1 个答案: