Re: 오늘의 마지막 문제. SQL 포트폴리오 때 만들었던 테이블을 r 데이터 프레임으로...

[19기_김진경]

CSV 데이터 불러오기

setwd("c:\\data")

recall <- read.csv('recall_by_item.csv', header=T)

컬럼별로 결측치 갯수 확인하기

> colSums(is.na(recall))

DNAME EDI_CODE MFDS_CODE ATC_CODE COMPANY RDATE CAUSE GRADE

0 0 0 0 0 0 0 150

이름에 '시럽'이 들어간 제품 검색하기 (상위 몇 개만)

> head(recall[grep('시럽',recall$DNAME), c('DNAME', 'COMPANY', 'RDATE')])

DNAME COMPANY RDATE

2 모드콜콜드시럽 종근당 10/11/2023

3 모드콜코프시럽 종근당 10/11/2023

5 모드콜콜드시럽 종근당 10/11/2023

6 모드콜코프시럽 종근당 10/11/2023

13 세코라시럽 하나제약(주) 9/8/2023

14 세코라시럽 하나제약(주) 9/8/2023