R Notebook

게임데이터 기하분포로 분석하기 기하분포는 몇 번째에 가장 처음으로 성공할 확률이 몇인지 알수 있는 분포 기하분포를 이용하면 게임밸런스를 조절하는 근거가 됨

library(dplyr)
library(ggplot2)
library(ggthemes)
var.population <- read.csv('example_population_f.csv')  
head(var.population)

step 2 : 불필요한 첫열 삭제

var.population <- subset(var.population, select = -X)
#var.population <- var.population[,-1]
head(var.population)

step 3 : 남여 비율을 문자로 나태내는 변수 추가
var.pop <- mutate(var.pop)

var.population <- mutate(var.population,
                         rate = ifelse(SexRatio < 1, "여자비율높음",
                         ifelse(SexRatio > 1, "남자비율높음",
                         "남녀비율같음")))

head(var.population)

step4 : 새로운 변수를 순서형 변수로 변환

var.population$rate <- factor(var.population$rate)
var.population$rate <- order(var.population$rate ,
                             c('여자비율높음','남자비율높음','남녀비율같음'))

step5 : 경기도 데이터만 가지는 var.pop_kk 생성후 geom_bar()그래프 그리기

var.pop_kk <- filter(var.population, Provinces == "경기도")
ggplot(
  var.pop_kk, aes(x=City, y=(SexRatio-1),fill=rate)
)+ geom_bar(stat = 'identity',position = 'identity')+
  theme_wsj()