데이터 프레임에서 데이터 필터링

debugcn 에 게시 Dev

user1758995

다음과 같은 데이터 프레임이 있습니다.

S1State S1Value S2State S2Value
NSW     20      VIC     30
WA      30      NSW     20

최대 값 (S1Value 및 S2Value)을 가진 상태 (S1State 및 S2State에서)를 필터링하고 선택하고 싶습니다. 결과는 다음과 같습니다.

SState  SValue
VIC     30
WA      30

나는 R을 처음 사용하고 dplyr을 실험했습니다.

www

나는 영업 이익은 같은 데이터 프레임에 더 많은 상태를 가질 수 있다고 가정 S3State, S4State...

다음 솔루션은 두 개 이상의 상태를 처리 할 수 있도록이 가정을 기반으로합니다. 상태가 두 개뿐이라면 @lebelinoz가 제안한 접근 방식은 간단하고 간단합니다.

해결책 1

dplyr및의 함수를 사용하는 솔루션 tidyr입니다. dt2최종 출력입니다.

# Load packages
library(dplyr)
library(tidyr)

# Process the data
dt2 <- dt %>%
  gather(Num, Value, contains("Value")) %>%
  gather(State, Name, contains("State")) %>%
  # Only keep records with the same state number
  filter(substring(Num, 1, 2) == substring(State, 1, 2)) %>%
  mutate(Group = substring(Num, 1, 2)) %>%
  group_by(Group) %>%
  filter(Value == max(Value)) %>%
  ungroup() %>%
  select(SState = Name, SSValue = Value)

해결책 2

A로부터 함수를 사용하여 용액 dplyr, purrr및 stringr. tidyverse처음 두 패키지 의 패키지 를 로드했습니다 . 다시 말하지만 dt2최종 결과물입니다.

# Load packages
library(tidyverse)
library(stringr)

# Extract the column names
Col <- colnames(dt)

# Extract state numbers
ColNum <- Col %>%
  str_extract(pattern = "[0-9]") %>%
  unique()

# Design a function to process the data
dt_process <- function(pattern, dt){
  dt2 <- dt %>%
    # Extract columns based on a pattern (numbers)
    select(dplyr::contains(pattern)) %>%
    # Rename the columns
    rename_all(~sub(pattern, "", .)) %>%
    # Filter the maximum row
    filter(SValue == max(SValue))
  return(dt2)
}

# Apply the dt_process function
dt_list <- map(.x = ColNum, .f = dt_process, dt = dt)

# Bind all data frames
dt2 <- bind_rows(dt_list) %>% arrange(SState)

데이터 준비

# Create example data frame
    dt <- read.table(text = "S1State S1Value S2State S2Value
                     NSW     20      VIC     30
                     WA      30      NSW     20",
                     header = TRUE, stringsAsFactors = FALSE)

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-06-19

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사