无法使用ggplot2

时间:2015-08-06 01:03:17

标签: r date ggplot2

我试图在R中绘制日期。我试图在我已经拥有的情节上创建垂直线条时遇到了麻烦。我尝试的所有不同格式都会导致绘图中没有任何格式,或1970年(默认日期)的一行。年份数据的格式为yyyy-mm-dd。例如,"1914-07-01"

我也尝试在data.frame输入这些日期,但遇到了同样的问题。

我一直试图制作一个可重复的例子,但是我还没有看到任何一个示例数据集,并且试图创建一个这样的数据集感到沮丧...抱歉。这是相关代码:

ggplot(M,aes(x=date,color=origin,y=value)) + 
  geom_point() +
  geom_line() +
  facet_grid(topic~origin) +
  geom_vline(xintercept=as.numeric(as.Date("1914-07-01")))

在没有添加最后一行的情况下,所有内容都正确绘制。

修改:这是dput(head(M))

的结果
structure(list(topic = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25"), class = "factor"), date = structure(c(-1767196800, -1765987200, 
-1764518400, -1763308800, -1762099200, -1760889600), class = c("POSIXct", 
"POSIXt"), tzone = ""), origin = structure(c(2L, 2L, 2L, 2L, 
2L, 2L), .Label = c("Blast", "The_Egoist"), class = "factor"), 
    value = c(6.69960398194253e-07, 7.48757156068349e-07, 7.04834977806836e-07, 
    7.10226526475778e-07, 6.8295233938925e-07, 6.16466066169137e-07
    )), .Names = c("topic", "date", "origin", "value"), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L), vars = list(
    topic, date), drop = TRUE, indices = list(0L, 1L, 2L, 3L, 
    4L, 5L), group_sizes = c(1L, 1L, 1L, 1L, 1L, 1L), biggest_group_size = 1L, labels = structure(list(
    topic = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("1", 
    "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
    "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", 
    "23", "24", "25"), class = "factor"), date = structure(c(-1767196800, 
    -1765987200, -1764518400, -1763308800, -1762099200, -1760889600
    ), class = c("POSIXct", "POSIXt"), tzone = "")), class = "data.frame", row.names = c(NA, 
-6L), .Names = c("topic", "date"), vars = list(topic, date)))

1 个答案:

答案 0 :(得分:3)

你非常接近,问题是你的数据是在POSIXct中,而你试图转换为Date。要解决此问题,请更改为POSIXct:

ggplot(M,aes(x=date,color=origin,y=value)) + 
  geom_point() +
  geom_line() +
  facet_grid(topic~origin) +
  geom_vline(xintercept=as.numeric(as.POSIXct("1914-07-01")))

您可以看到通话中的差异:

as.numeric(as.POSIXct("1914-07-01"))
[1] -1751569200

as.numeric(as.Date("1914-07-01"))
[1] -20273

解释为什么intecept如此接近1970年(两者都为0)