Подмножество набора данных в R, используя часть одного столбца - PullRequest
Новая
       11

Подмножество набора данных в R, используя часть одного столбца

0 голосов
/ 19 февраля 2019

Чтобы уточнить мой предыдущий вопрос: я ищу подмножество большого набора данных CSV в R. Я хочу взять информацию для столбца «отметка времени» и извлечь только временные интервалы с 7 вечера до 12 утра включительно.Ниже приведен пример данных: 

Deer ID    TimeStamp         Location
1          4/16/18 12:00AM   DMA 1
2          4/16/18 3:00AM    DMA 1
3          4/16/18 9:30AM    DMA 2
4          4/16/18 7:00PM    DMA 1
5          4/16/18 8:30PM    DMA 2
6          4/16/18 11:00PM   DMA 3
7          4/17/18 1:30AM    DMA 2
8          4/17/18 5:00AM    DMA 1
9          4/17/18 9:00PM    DMA 3
10         4/17/18 11:30PM   DMA 1
11         4/18/18 12:30AM   DMA 2

Итак, моя конечная цель состоит в следующем: 

Deer ID     TimeStamp        Location
4           4/16/18 7:00PM   DMA 1
5           4/16/18 8:30PM   DMA 2
6           4/16/18 11:00PM  DMA 3
9           4/17/18 9:00PM   DMA 3
10          4/17/18 11:30PM  DMA 1

Есть идеи, как этого добиться?Спасибо!

Ответы [ 2 ]

0 голосов
/ 19 февраля 2019

Тидиверс будет выглядеть примерно так: 

library(dplyr)
df <- read.table(
  text =
    "id    timestamp         location
                 1          '4/16/18 12:00AM'   'DMA 1'
                 2          '4/16/18 3:00AM'    'DMA 1'
                 3          '4/16/18 9:30AM'    'DMA 2'
                 4          '4/16/18 7:00PM'    'DMA 1'
                 5          '4/16/18 8:30PM'    'DMA 2'
                 6          '4/16/18 11:00PM'   'DMA 3'
                 7          '4/17/18 1:30AM'    'DMA 2'
                 8          '4/17/18 5:00AM'    'DMA 1'
                 9          '4/17/18 9:00PM'    'DMA 3'
                 10         '4/17/18 11:30PM'   'DMA 1'
                 11         '4/18/18 12:30AM'   'DMA 2'",
  header = TRUE
) %>%
  as_tibble()

df %>%
  mutate(timestamp = as.POSIXct(strptime(.data$timestamp, "%m/%d/%Y %I:%M%p"))) %>%
  filter(between(lubridate::hour(.data$timestamp), 19, 24))
#> # A tibble: 5 x 3
#>      id timestamp           location
#>   <int> <dttm>              <chr>   
#> 1     4 0018-04-16 19:00:00 DMA 1   
#> 2     5 0018-04-16 20:30:00 DMA 2   
#> 3     6 0018-04-16 23:00:00 DMA 3   
#> 4     9 0018-04-17 21:00:00 DMA 3   
#> 5    10 0018-04-17 23:30:00 DMA 1

Создано в 2019-02-19 с помощью пакета Представить (v0.2.1)

0 голосов
/ 19 февраля 2019

Вы можете сделать следующее 

# Convert TimeStamp to POSIXct 
df <- transform(df, TimeStamp = strptime(TimeStamp, "%m/%d/%Y %I:%M%p"))

# Use lubridate::hour to extract the hours from the POSIXct timestamp
library(lubridate)
df[(hour(df$TimeStamp) >= 19 & hour(df$TimeStamp) <= 24), ]
#   Deer.ID           TimeStamp Location
#4        4 0018-04-16 19:00:00    DMA 1
#5        5 0018-04-16 20:30:00    DMA 2
#6        6 0018-04-16 23:00:00    DMA 3
#9        9 0018-04-17 21:00:00    DMA 3
#10      10 0018-04-17 23:30:00    DMA 1

Пример данных 

df <- read.table(text =
    "'Deer ID'    TimeStamp         Location
1          '4/16/18 12:00AM'   'DMA 1'
2          '4/16/18 3:00AM'    'DMA 1'
3          '4/16/18 9:30AM'    'DMA 2'
4          '4/16/18 7:00PM'    'DMA 1'
5          '4/16/18 8:30PM'    'DMA 2'
6          '4/16/18 11:00PM'   'DMA 3'
7          '4/17/18 1:30AM'    'DMA 2'
8          '4/17/18 5:00AM'    'DMA 1'
9          '4/17/18 9:00PM'    'DMA 3'
10         '4/17/18 11:30PM'   'DMA 1'
11         '4/18/18 12:30AM'   'DMA 2'", header = T)
...