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

[19기_심지민]

데이터 가져오기

setwd("c:\\data")

mdcr <- read.csv("mdcr.csv", header = T)

mdcr

메트로폴리탄 지역에서 의료 서비스를 제공하고 있는 서비스 제공자의 수

a <- mdcr[grep("Metropolitan", mdcr$Rfrg_Prvdr_RUCA_Desc),("Rfrg_NPI")]
au <- unique(a)
print(length(au))