我正在尝试 select 中午使用 Lubridate 和 Tidyverse 进行的某些测量

Question

所以我将我的数据加载到 R 中并加载我认为我将需要的库：

library(tidyverse)
library(lubridate)

getRiceData <- function() {
url <- "https://docs.google.com/spreadsheets/d/1Mk1YGH9LqjF7drJE-td1G_JkdADOU0eMlrP01WFBT8s/pub? 
gid=0&single=true&output=csv"

data <- read.csv( url , stringsAsFactors = FALSE )

library(lubridate)

format <- '%m/%d/%Y %I:%M:%S %p'

data$Date <- parse_date_time( data$DateTime,
                          orders = format,
                          tz = "EST" ) 


data$Airtemp <- 5/9 * ( data$AirTempF - 32 )
data$Rain <- data$Rain_in * 25.4
data$WindSpeed <- data$WindSpeed_mph * 1.60934

data$AirTempF <- data$DateTime <-
data$Rain_in <- data$PH_mv <- 
data$BGAPC_rfu <- data$Depth_ft <- 
data$SurfaceWaterElev_m_levelNad83m <-
NULL

return( data )
}

下一步

`source("getRiceData.R")
data <- getRiceData()
summary(data)`

现在我想select只测量中午的数据。我该怎么做呢？感谢您的帮助。

Answer 1

这可能不是最好的方法，但您可以尝试：

library(dplyr)
filter(data, substr(Date, 12, 20) == "12:00:00")

如果日期不在同一时区，您可能需要小心，可能是因为夏令时，具体取决于您"noon"的意思。

我正在尝试 select 中午使用 Lubridate 和 Tidyverse 进行的某些测量

I am trying to select certain measurements that were taken at Noon using Lubridate and Tidyverse

r

lubridate

dplyr