4월 12일 과제

데이터 셋 활용하기

문제 1

# Q1. 시험 점수 변수 만들고 출력하기
score <- c(80, 60, 70, 50, 90)
score

# Q2. 전체 평균 구하기
mean(score)

# Q3. 전체 평균 변수 만들고 출력하기
avg <- mean(score)
avg

문제 2

# Q1. data.frame()과 c()를 조합해서 표의 내용을 데이터 프레임으로 만들어 출력해보세요.
df_fruit <- data.frame(product = c("Apple", "Strawberry", "Watermelon"),
                       price = c(1800, 1500, 3000),
                       sale = c(24, 38, 13))
df_fruit

# Q2. 앞에서 만든 데이터 프레임을 이용해서 과일 가격 평균, 판매량 평균을 구해보세요.
print(paste("가격 평균: ", mean(df_fruit$price)))
print(paste("판매량 평균: ", mean(df_fruit$sale)))

문제 3

# Q1. seq() 함수를 사용하여 date4라는 변수에 2015년 1월 1일부터 2015년 1월 31일까지 
# 1일씩 증가하는 31개의 날짜를 입력하는 방법을 쓰세요.
date4 = seq(as.Date("2015-01-01"), as.Date("2015-01-31"), by = 1)
date4

# Q2. vec1에서 3번째 요소인 '감'을 제외하고 vec1의 값을 출력하세요.
vec1 <- c("사과", "배", "감", "버섯", "고구마")
vec1[-3]

# Q3.
vec1 <- c("봄", "여름", "가을", "겨울")
vec2 <- c("봄", "여름", "늦여름", "초가을")

# 1) vec1과 vec2의 내용을 모두 합친 결과를 출력하는 코드를 쓰세요.
union(vec1, vec2)

# 2) vec1에는 있는데 vec2에는 없는 결과를 출력하는 코드를 쓰세요.
setdiff(vec1, vec2)

# 3) vec1과 vec2 모두에 있는 결과를 출력하는 코드를 쓰세요.
intersect(vec1, vec2)

문제 4

# Q1. 아래 그림과 같은 형태의 행렬을 만드세요.
v <- c("봄", "여름", "가을", "겨울")
seasons <- matrix(v, 2, 2)
seasons

seasons <- matrix(v, 2, 2, byrow = TRUE)
seasons

# Q2. 아래 그림과 같이 seasons 행렬에서 여름과 겨울만 조회하는 방법을 쓰세요.
seasons
seasons[,2]

# Q3. 아래 그림과 같이 seasons 행렬에 3번 행을 추가하여 seasons_2 행렬을 만드세요.
seasons
seasons_2 <- rbind(seasons, c("초봄", "초가을"))
seasons_2

# Q4. 아래 그림처럼 seasons_2 변수에 열을 추가하여 seasons_3 행렬을 만드세요.
seasons_2
seasons_3 <- cbind(seasons_2, c("초여름", "초겨울", "한겨울"))
seasons_3