如何按日期绘制频率？表问题答案

【问题标题】：How can I plot Frequency by DATE? Issues with table如何按日期绘制频率？表问题
【发布时间】：2017-09-26 12:02:40
【问题描述】：

我有一张桌子

    library(RISmed)
search_topic <- "BID"
search_query <- EUtilsSummary(search_topic, mindate = 2016, maxdate=2018)
summary(search_query)
QueryId(search_query)
records <- EUtilsGet(search_query)
y <- data.frame(cbind("year"= YearPubmed(records), "month"= MonthPubmed(records)))
date()
count<-table(y)
count

month
year    1  2  3  4  5  6  7  8  9 10 11 12
  2016 49 54 49 59 45 54 43 44 40 47 42 42
  2017 52 35 52 48 30 37 43 42 25  0  0  0

我创建了一个带有计数的数据框，但是一旦我尝试将其设置为 as.Date，就会转换为 NA。

我想按日期绘制，我也可以得到日期，但对我来说并不重要。但我不断收到错误。即一个字符串不是模棱两可的格式。像这样的：

Graph of Input(BID)

我好像做不到。

我想绘制随时间变化的频率（过去 2 年）。

这是在我制作的一个闪亮的应用程序中，但输出让我很生气。

有什么建议吗？

感谢任何反馈。

【问题讨论】：

您能否更具体地说明您的预期输出（例如发布示例）？

标签： r date ggplot2 time

【解决方案1】：

试试这个：

library(RISmed)
library(dplyr)
library(ggplot2)
search_topic <- "BID"
search_query <- EUtilsSummary(search_topic, mindate = 2016, maxdate=2018)
summary(search_query)
QueryId(search_query)
records <- EUtilsGet(search_query)
y <- data.frame(cbind("year"= YearPubmed(records), "month"= MonthPubmed(records)))
date()
count<-table(y)
count

y$date <- as.Date(strptime(paste(y$year, y$month, "01", sep="-"), "%Y-%m-%d", tz = "UTC"), origin="1970-01-01")

y %>% group_by(date) %>% summarise(n.citation = length(date)) %>%
  ggplot(aes(x=date, y = n.citation)) + geom_point()][1]][1]

HTH

詹姆斯

【讨论】：

你好，詹姆斯。太感谢了，这么快。我真的很感激。
@FilipeRigueiro 如果此答案对您有帮助，请考虑接受它（左侧的复选标记）。

【解决方案2】：

以table开头

tbl <- structure(c(49L, 52L, 54L, 35L, 49L, 52L, 59L, 48L, 45L, 30L, 
54L, 37L, 43L, 43L, 44L, 42L, 40L, 25L, 47L, 0L, 42L, 0L, 42L, 
0L), .Dim = c(2L, 12L), .Dimnames = structure(list(Year = c("2016", 
"2017"), variable = c("1", "2", "3", "4", "5", "6", "7", "8", 
"9", "10", "11", "12")), .Names = c("Year", "variable")), class = c("xtabs", 
"table"), call = xtabs(formula = value ~ Year + variable, data = melted))

你可以组合Year-Months

Combs <- expand.grid(attributes(tbl)$dimnames$Year, attributes(tbl)$dimnames$variable)

# or you can use
# Combs <- expand.grid(c("2016","2017"), 1:12))

library(lubridate)
preDates <- apply(Combs, 1, function(x) paste0(x, collapse="-"))
sortedDates <- sort(parse_date_time(preDates, "y-m"))

newdf <- data.frame(Date = sortedDates, Value = c(tbl))
plot(Value ~ Date, data=newdf)

【讨论】：

非常感谢你们。我设法精美地绘制了频率。感谢您，该应用程序已启动并运行。这对我有很大帮助。我现在需要知道如何创建另一个，它将获取所有 25 个顶部输入并通过选择将它们绘制在一起。但那是另一次了。