如何在ggplot中使用日期和时间轴绘制折线图？

如何解决如何在ggplot中使用日期和时间轴绘制折线图？

我有一个简单的数据集，其中包含几天内每小时进行观察的三列。

数据看起来像...

Time                    Fast    Standard   Slow
Aug 02 2020 18:00:00    100     200        300
Aug 02 2020 19:00:00    50      100        150
Aug 02 2020 18:00:00    100     200        300
Aug 03 2020 12:00:00    50      100        150
Aug 03 2020 11:00:00    40      50         70

我首先加载CSV：

library(tidyverse)

# Link source
if (!exists("gasprices")) { # Check if the object is not already loaded
  if (file.exists("./datafiles/gasprices.rdata")) {
    load("./datafiles/gasprices.rdata") 
  } else {
    gasprices <- read.csv("./datafiles/gasprices.csv")
  }

但是当我绘制其中一条线时，会得到一个空白图。我认为R正在显示每一行，而我真正需要的是三个变量（快速，标准，慢速）的三个总体随时间变化的线。我的理想结果是在x轴上显示三行不同颜色的线。

# Plot
g <- ggplot(gasprices,aes(x=Time,y=Fast)) +
  geom_line(color = "#00AFBB",size = 2)
  xlab("") +
  theme_light()
g

任何帮助将不胜感激。谢谢

解决方法

这可能与列数据类型有关。尝试为您的数据帧运行以下内容，您会得到什么？

lapply(gasprices,class)

在绘制之前尝试将数据类型设置为日期时间：

gasprices$Time<- as.POSIXct(gasprices$Time,format = "%b %e %Y %H:%M:%S")

有关提供用于解析日期时间的格式的详细信息，请参见this page。

让我知道怎么回事！

,

您应该做的是使用tidyverse软件包取消数据透视。

  require(ggplot2)
  require(tidyr)
  require(dplyr)  

让我们创建具有相同结构的数据框：

Data <- data.frame ( time = c(1,2,3),fast = c(100,105,110),slow = c(50,70,90),standart = c(94,95,96))

  time fast slow standart
1    1  100   50       94
2    2  105   70       95
3    3  110   90       96

现在我们取消数据透视。

Data %>%
  tidyr::gather(key = 'Speed Type',value = 'Speed Value',-time)

 time Speed Type Speed Value
    1       fast         100
    2       fast         105
    3       fast         110
    1       slow          50
    2       slow          70
    3       slow          90
    1   standart          94
    2   standart          95
    3   standart          96

ggplot2::ggplot(data = UnpivotData,mapping = ggplot2::aes(x = time,y = `Speed Value`,color = `Speed Type`)) + 
    ggplot2::geom_line()

,

必须先将日期转换为数值，然后才能使用ggplot()绘制线。也许this thread会为您提供帮助。完成此操作后，您必须为绘图提供新的轴刻度标签，例如：

plot + scale_x_discrete(labels= df$Time)

这是一个完整的示例，其中包含日期到数字以及分配轴刻度标签：

library(reshape2)

# Make data frame
Lines <-"Time                    Fast    Standard   Slow
Aug 02 2020 18:00:00    100     200        300
Aug 02 2020 19:00:00    50      100        150
Aug 02 2020 20:00:00    100     200        300
Aug 03 2020 12:00:00    50      100        150
Aug 03 2020 11:00:00    40      50         70"

df <- read.csv(text = gsub("  +",",readLines(textConnection(Lines))),check.names = FALSE)

# Convert date string to proper format
df$Time <- as.POSIXct(df$Time,format = "%b %d %Y %H:%M:%S")

# Reshape data for easier plotting. This function is from Reshape2.
df <- melt(df,id = "Time")

# Plot
ggplot(data = df,aes(x = as.numeric(Time),y = value,color = variable)) +
  geom_line() +
  scale_x_continuous(breaks = as.numeric(df$Time),labels = as.character(df$Time)) +
  theme(axis.text.x = element_text(angle = 90,vjust = 1,hjust=1))

exampleplot