< 11 > 기타 여러 모양의 함수
11-1) subset(데이터, 조건식)
subset(Data 이름, select = c(변수명), subset = (선별 조건)) 변수, 관측치 선택
dataset <- read.csv("C:/TEMP/Rstudy/data/dataset.csv", header = T)
table(dataset$gender)
dataset <- subset(dataset, gender == 1 | gender == 2)
table(dataset$gender)
dataset2 <- subset(dataset, price >= 2 & price <= 8)
length(dataset2$price)
11-2) pie() : 원형그래프
pie(table(dataset$gender), col = c('red', 'blue'))
11-3) stem() 줄기와 잎 도표 보기
stem(dataset2$price)
11-4) treemap 패키지
treemap(데이터 세트, index = 구분열, vSize = 분포열, vColor = 색상, title = 제목)
install.packages("treemap")
library(treemap)
library(readxl)
ck <- read_excel("C:/TEMP/Rstudy/data/치킨집_가공.xlsx")
head(ck)
# ~~~ 동만 남기고 삭제
addr <- substr(ck$소재지전체주소, 12, 16)
library(stringr)
addr_num <- str_replace_all(addr, "[0-9]", "")
addr_num <- gsub("[0-9]", "", addr)
head(addr_num)
# 도수분포표 작성 후 데이터 프레임으로 변환
addr_count <- addr_num %>% table() %>% data.frame()
addr_count
# 트리맵으로 표현
treemap(addr_count, index = ".", vSize = "Freq", title = "서대문구 동별 치킨집 분포포")
11-5) lattice 패키지
install.packages("lattice") # xyplot package
library(lattice)
names(airquality) <- tolower(names(airquality))
airquality <- na.omit(airquality)
#xyplot(y축 + y축2 ~ x축 | 조건, data , type, layout)
xyplot(ozone ~ wind, data = airquality, col = 'red')
xyplot(ozone + solar.r ~ wind | month , data = airquality, col = c('red', 'blue'), layout=(c(5,1)))