R프로그래밍 기초 도와주세요! 급함ㅜㅜ

1번 문제

# exam.csv 파일이 없으니 임의로 하나 만들겠습니다. # exam <- read.csv("exam.csv", header = T) library(tidyverse) # 1-5반의 수학 성적 fake_exam <- tibble( class = sample(1:5, 200, replace = T), math = rnorm(200, mean = 50, sd = 6) ) #1 3반인 학생의 exam$math를 0으로 # Base R fake_exam$math[which(fake_exam$class == 3L)] <- 0 # Tidyverse fake_exam |> mutate( math = if_else( class == 3L, 0L, math ) ) -> fake_exam #2. 파생변수 total, mean 을 추가 fake_exam |> group_by(class) |> mutate(total = sum(math, na.rm = T), mean = mean(math, na.rm = T)) |> ungroup() -> fake_exam print(fake_exam)

2번 문제

library(ggplot2) my_data <- as.data.frame(mpg[, c("model", "year", "hwy", "cty")]) library(tidyverse) # Q1. 연비의 평균치를 나타내는 파생변수 mean을 추가하세요. my_data |> mutate(mean = (hwy + cty)/2) -> my_data # mean 변수를 summary 함수를 이용햐여 요약 통계량을 출력하고 제3분위수를 알아보세요. summary(my_data$mean) # 제3분위수 # Q3. test 파생변수를 추가하여 mean이 제3분위수 이상이면 "pass"를, 미만이면 "Fail"을 주세요 my_data |> mutate( test = if_else(mean >= quantile(summary$mean, probs = 0.75), "pass", "fail") ) -> my_data my_data # Q4. 기준치 이상인 자동차와 이하인 자동차가 각각 몇 대인지, my_data를 tail 함수로 출력하고, # my_data의 파생변수 test를 table 함수를 통해 분포표를 출력하세요. my_data |> group_by(test) |> count() # tail을 써야하니까 (왜 써야하는지 모르겠지만) tail(my_data) tail(length(my_data$test[which(my_data$test == "pass")])) tail(length(my_data$test[which(my_data$test == "fail")])) table(my_data$test)

​

​

3번 문제

# Q3. midwest my_data <- midwest[, c("county", "poptotal", "area")] my_data$area <- my_data$area*1000 # Q3-1. my_data 데이터 프레임에 인구밀도를 뜻하는 파생변수를 만드세요 my_data |> mutate(density = poptotal/area) -> my_data my_data$density <- my_data$poptotal / my_data$area # Q3-2 head(my_data) # Q3-3 summary(my_data$density) # Base R로 해볼게요 my_data$crowd <- ifelse(my_data$density <= summary(my_data$density)[2], "low", ifelse(my_data$density >= summary(my_data$density)[5], "high", "medium")) # q3-4 tail(my_data) table(my_data$crowd)

​