Как извлечь определенные значения из факторного хранилища в качестве значения столбца в кадре данных - PullRequest
Новая
       4

Как извлечь определенные значения из факторного хранилища в качестве значения столбца в кадре данных

0 голосов
/ 16 февраля 2020

У меня есть фрейм данных со следующими столбцами: 

df <- A B C 
    heart_rate  ['53.0', '1']   94
    heart_rate  ['54.0', '2']   1
    heart_rate  ['54.0', '1']   9
    heart_rate  ['55.0', '0']   1
    heart_rate  ['55.0', '1']   7

Как прочитать df1, который просто хранит одно значение для случаев, когда у нас есть y = 1 для B [x, y]. Что означает :

Вывод нужного кадра данных df1 

  df1 

    A B C  
    heart_rate  53.0    94
    heart_rate  54.0    9
    heart_rate  55.0    7


    structure(list(source = structure(c(1L, 1L, 1L), .Label = "heart_rate", class = "factor"), 
        values = structure(3:1, .Label = c("['171.0', '1']", "['172.0', '1']", 
        "['173.0', '0']"), class = "factor"), timediff = c(6L, 7L, 
        10L)), class = "data.frame", row.names = c(NA, -3L))

Ответы [ 2 ]

1 голос
/ 16 февраля 2020

Используя мой ответ из предыдущего поста, мы можем получить данные в отдельные столбцы B и D с помощью extract, а затем с помощью filter выбрать, где D = 1. 

tidyr::extract(df, B, into = c('B', 'D'), "(\\d+\\.\\d+).*(\\d)") %>%
  dplyr::filter(D == 1) %>%
  dplyr::select(-D)

#           A    B  C
#1 heart_rate 53.0 94
#2 heart_rate 54.0  9
#3 heart_rate 55.0  7

данные 

df <- structure(list(A = structure(c(1L, 1L, 1L, 1L, 1L), 
.Label = "heart_rate", class = "factor"), 
B = structure(c(1L, 3L, 2L, 4L, 5L), .Label = c("[53.0, 1]", 
"[54.0, 1]", "[54.0, 2]", "[55.0, 0]", "[55.0, 1]"), class = "factor"), 
C = c(94L, 1L, 9L, 1L, 7L)), class = "data.frame", row.names = c(NA, -5L))
0 голосов
/ 16 февраля 2020

Мы можем сделать это с parse_number после filter ing 

library(dplyr)
library(stringr)
df %>%
    filter(str_detect(B, "1\\]")) %>% 
    mutate(B = readr::parse_number(as.character(B)))
#           A  B  C
#1 heart_rate 53 94
#2 heart_rate 54  9
#3 heart_rate 55  7

Или другой вариант base R

transform(subset(cbind(df, read.csv(text = gsub("[][ ]", "", 
      df$B), header = FALSE)), V2 == 1), B = V1)[names(df)]
#           A  B  C
#1 heart_rate 53 94
#3 heart_rate 54  9
#5 heart_rate 55  7

data 

df <- structure(list(A = structure(c(1L, 1L, 1L, 1L, 1L), 
.Label = "heart_rate", class = "factor"), 
B = structure(c(1L, 3L, 2L, 4L, 5L), .Label = c("[53.0, 1]", 
"[54.0, 1]", "[54.0, 2]", "[55.0, 0]", "[55.0, 1]"), class = "factor"), 
C = c(94L, 1L, 9L, 1L, 7L)), class = "data.frame", row.names = c(NA, -5L))
...