从CSV文件导入数据并创建散点图

Question

我正在使用read.csv从CSV文件中获取数据，但是我想从文件中获取特定的日期数据，所以我正在使用过滤器功能，它可以提供数据，但是检索数据的问题应该是我给了01/01/2014输出数据由于这个问题，2015年1月1日和2014年1月1日均无法创建正确的散点图。 所以请建议我如何解决这个问题 我的R代码如下。

library(sos)
library(dplyr)

da <- read.csv(file.choose(),header = TRUE)

df <- da %>% filter(as.Date(DATE) == as.Date("01/01/2014"))

plot(df$Time,df$Nox,xlab ="Time",ylab = "NOx",
     Main="data Related City",las=1)

请建议...：）

我的数据如下：

 DATE       Time    Nox
 01/01/2014 8:00    81.9
 01/01/2014 9:00    83.2
 01/01/2014 10:00   111.3
 01/01/2014 11:00   100.6
 01/01/2014 12:00   96.5
 01/01/2014 13:00   98.7
 01/01/2014 14:00   93.8
 01/01/2014 15:00   96.6
 01/01/2014 16:00   98.6
 01/01/2014 17:00   116.9
 01/01/2014 18:00   126.7
 01/01/2014 19:00   188.3
 01/01/2014 20:00   127.1
 01/01/2014 21:00   97.1
 01/01/2014 22:00   109.7
 01/01/2014 23:00   104.1
 01/01/2015 8:00    118.8
 01/01/2015 9:00    154.1
 01/01/2015 10:00   152.4
 01/01/2015 11:00   144.5
 01/01/2015 12:00   133.3
 01/01/2015 13:00   168.9
 01/01/2015 14:00   215.9
 01/01/2015 15:00   139.4
 01/01/2015 16:00   170.3
 01/01/2015 17:00   184.7
 01/01/2015 18:00   
 01/01/2015 19:00   
 01/01/2015 20:00   151.7
 01/01/2015 21:00   138.5
 01/01/2015 22:00   80.6
 01/01/2015 23:00   85

Answer 1

尝试将格式添加到as.Date()：

library(dplyr)
dat <- data_frame(date = c("1/1/2014", "1/1/2015"))
dat$date <- dat$date %>%
  as.Date(format = "%d/%m/%Y")
dat %>%
  filter(date == as.Date("1/1/2014", format = "%d/%m/%Y"))

给予

# A tibble: 1 x 1
  date      
  <date>    
1 2014-01-01

使用提供的数据（保存为.csv）进行更新。 tidyverse

library(dplyr)
library(ggplot2)
library(readr)

dat <- read_csv("dat.csv")
dat$DATE <- dat$DATE %>%
  as.Date(format = "%d/%m/%Y")

dat %>%
  filter(DATE == as.Date("1/1/2014", format = "%d/%m/%Y")) %>%
  ggplot(aes(x = Time, y = Nox)) +
  geom_point() +
  labs(title = "Data Related City", x = "Time", y = "NOx")