문자로 된 날짜 데이터에서 요일 데이터 추출하기

-
다음 데이터에서
> temp
  [1] "2015-06-09" "2015-06-10" "2015-06-11" "2015-06-12" "2015-06-13" "2015-06-14" "2015-06-15" "2015-06-16"
  [9] "2015-06-17" "2015-06-18" "2015-06-19" "2015-06-20" "2015-06-21" "2015-06-22" "2015-06-23" "2015-06-24"
 [17] "2015-06-25" "2015-06-26" "2015-06-27" "2015-06-28" "2015-06-29" "2015-06-30" "2015-07-01" "2015-07-02"
 [25] "2015-07-03" "2015-07-04" "2015-07-05" "2015-07-06" "2015-07-07" "2015-07-08" "2015-07-09" "2015-07-10"
 [33] "2015-07-11" "2015-07-12" "2015-07-13" "2015-07-14" "2015-07-15" "2015-07-16" "2015-07-17" "2015-07-18"
 [41] "2015-07-19" "2015-07-20" "2015-07-21" "2015-07-22" "2015-07-23" "2015-07-24" "2015-07-25" "2015-07-26"
 [49] "2015-07-27" "2015-07-28" "2015-07-29" "2015-07-30" "2015-07-31" "2015-08-01" "2015-08-02" "2015-08-03"
 [57] "2015-08-04" "2015-08-05" "2015-08-06" "2015-08-07" "2015-08-08" "2015-08-09" "2015-08-10" "2015-08-11"
 [65] "2015-08-12" "2015-08-13" "2015-08-14" "2015-08-15" "2015-08-16" "2015-08-17" "2015-08-18" "2015-08-19"
 [73] "2015-08-20" "2015-08-21" "2015-08-22" "2015-08-23" "2015-08-24" "2015-08-25" "2015-08-26" "2015-08-27"
 [81] "2015-08-28" "2015-08-29" "2015-08-30" "2015-08-31" "2015-09-01" "2015-09-02" "2015-09-03" "2015-09-04"
 [89] "2015-09-05" "2015-09-06" "2015-09-07" "2015-09-08" "2015-09-09" "2015-09-10" "2015-09-11" "2015-09-12"
 [97] "2015-09-13" "2015-09-14" "2015-09-15" "2015-09-16"

요일을 뽑아 봅시다.

extract_weekday <- function(str_date) {
  posixlt_date <- as.POSIXlt(str_date)
  posixlt_date$wday
}
transform_weekcode <- function(wday) {
  wday.before <- factor(wday,levels=c(0,1,2,3,4,5,6))
  levels(wday.before) <- c("Sun","Mon","Tue","Wed","Thr","Fri","Sat")
  wday.after <- as.character(wday.before)
  wday.after
}

이상의 두 개 함수를 실행한 다음

> temp2 <- extract_weekday(temp)
> temp2
  [1] 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5
 [54] 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3 4 5 6 0 1 2 3

이때, 0이 일요일, 1이 월요일, ...

보기 좋게 문자로 표현하면

> temp3 <- transform_weekcode(temp2)
> temp3
  [1] "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr"
 [18] "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun"
 [35] "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed"
 [52] "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat"
 [69] "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue"
 [86] "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed"

데이터 중, 주중과 주말을 구분하는 방법은 간단합니다.
주말은 토요일(=6)과 일요일(=0)입니다.

> temp2 %in% c(0,6)
  [1] FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE
 [18] FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE
 [35] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE
 [52] FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE
 [69]  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE
 [86] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE

이제 TRUE는 주말, FALSE는 주중입니다.

감사합니다.

댓글

댓글 쓰기

이 블로그의 인기 게시물

Bradley-Terry Model: paired comparison models

-
이미지
동기 세상에는 비교할 것이 많습니다. 여러분에게 3가지 옵션이 주어져 있다면 전부 세 번 비교를 할 수 있습니다. 예를 들어, 사과, 바나나, 파인애플 중에서 무엇을 더 좋아하는지 물어볼 수 있습니다. 사과를 A, 바나나를 B, 파인애플을 C라고 하면 A 와 B B 와 C A 와 C 이렇게 비교할 수 있습니다. 비교는 어렵지 않지만, 만약 여러분이 채식을 좋아하는지 육식을 좋아하는지에 따라 비교의 결과가 다른지 알아보려면 어떠한 방법을 써야 할까요? Bradley-Terry의 로그선형모델(Log-Linear Bradley-Terry model, LLBT Model)을 사용하면 답을 얻을 수 있습니다. Paired-comparison 분석 방법은 Categorical data analysis의 일종으로 연구에 응용할 수 있는 여지가 많은 분석 방법입니다. Worth Parameter 우선 worth parameter에 대해 설명을 해야겠습니다. 위의 식은 객체 j를 객체 k보다 좋아할 확률을 계산하는 함수를 보여줍니다. 이때 계산에 사용되는 파이를 worth parameter라고 합니다. worth parameter가 주어져 있다면 선호하는 확률을 계산할 수 있다는 의미입니다. 예를 들어 j의 worth parameter가 7이고, k의 worth parameter가 3이리면 j를 k보다 좋아하는 확률은 0.7(=7/(7+3))입니다. Design Structure LLBT에 관련된 자세한 연구는 Fienberg & Larntz (1976)이나 Dittrich et al. (1998)을 참조하시고... 여기서는 간단히 데이터를 정리해서 {prefmod} 패키지로 LLBT를 사용하는 방법에 초점을 맞추겠습니다. 우선 Response는 결과값을 기록하는 방법입니다. 비교의 앞쪽을 선호하면 1, 뒤쪽을 선호하면 -1이라고 기록했습니다. 미리 설명하지만 {prefmod}에서는 앞쪽을 선호하면 1,...
자세한 내용 보기

xlwings tutorial - 데이터 계산하여 붙여 넣기

-
xlwings View PDF File XLWings 사용하기 ¶ xlwings로 Excel 데이터 열어서 계산하기 In [ ]: #Pokemon.xlsx #xlwings를 열겠습니다. import xlwings as xw #pandas를 가져옵니다. import pandas as pd #numpy를 가져옵니다. import numpy as np In [ ]: #active sheet를 가져옵니다. sht = xw . sheets . active ![image.png](attachment:image.png) In [ ]: #active sheet의 전체 데이터를 가져옵니다. #header가 있고 index가 없는 데이터이기 때문에 index=False로 설정합니다. #만약 header도 없으면 header=False로 합니다. df = sht [ 0 , 0 ] . options ( pd . DataFrame , expand = 'table' , index = False ) . value In [25]: #컬럼 이름을 확인해보겠습니다. df . columns Out[25]: Index(['#', 'Name', 'Type', 'Total', 'HP', 'Attack', 'Defense', 'Special Attack', 'Special Defense', 'Speed', 'AD_ratio', 'AD_type'], dtype='obje...
자세한 내용 보기

R에서 csv 파일 읽는 법

-
R은 read.csv() 함수를 기본으로 제공합니다. 그러나 여러분이 이 함수를 쓰면 안되는 몇 가지 이유가 있습니다. 우선 느립니다! 다른 이유는 아실 필요 없겠습니다. 느립니다!!! 대안으로 readr 패키지의 read_csv() 함수를 추천합니다. 그런데, 이 함수는 기본적으로 UTF-8 인코딩된 CSV 파일에 맞춰 설계되었습니다. 대부분의 한국 데이터가 EUC-KR 형식의 CSV이기 때문에 호환이 안된다고 불평하십니다. 안되긴요... 여러분이 한글 Windows를 쓰고 있고, Excel에서 CSV로 뽑은(즉 EUC-KR 혹은 CP949) 형식일 때, > library(readr) > my_data = read_csv("myfile.csv",locale=locale('ko',encoding='euc-kr')) 이렇게 하시면 됩니다. 그냥 UTF-8 형식이었다면 > my_data = read_csv("myfile.csv") 이렇게 하면 됩니다.
자세한 내용 보기