Я пытаюсь выбрать определенные измерения, которые были сделаны в полдень, используя Lubridate и Tidyverse - PullRequest
Новая
       11

Я пытаюсь выбрать определенные измерения, которые были сделаны в полдень, используя Lubridate и Tidyverse

0 голосов
/ 02 ноября 2019

Итак, я загружаю свои данные в 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)`

Теперь я хочу выбрать толькоизмерения, сделанные в полдень. Как бы я поступил так? Спасибо за помощь.

1 Ответ

0 голосов
/ 02 ноября 2019

Вероятно, это не лучший способ сделать это, но вы можете попробовать: 

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

Возможно, вам следует быть осторожным, если даты не все находятся в одном часовом поясе, возможно, из-за дневного света. Экономия времени, в зависимости от того, что именно вы подразумеваете под «полднем».

...