0412 과제 답

 

 

Q1. 시험점수 변수 만들고 출력하기

 

다섯 명의 학생이 시험을 봤습니다. 학생 다섯 명의 시험 점수를 담고 있는 변수를 만들어 출력해보세요. 각 학생의 시험점수는 다음과 같습니다.

80, 60, 70, 50, 90

 

 

student_1 <- c(80) student_2 <- c(60) student_3 <- c(70) student_4 <- c(50) student_5 <- c(90)

cat(student_1, student_2, student_3, student_4, student_5)

#80 60 70 50 90

 

score<-c(80, 60, 70, 50, 90)

score

 

# [1] 80 60 70 50 90

 

Q2. 전체 평균 구하기

앞 문제에서 만든 변수를 이용해서 이 학생들의 전체 평균 점수를 구해보세요

 

sum(student_1, student_2, student_3, student_4, student_5)/5

#[1] 70

 

#평균 구하는 함수 mean()

mean(score)

# [1] 70

 

Q3. 전체 평균 변수 만들고 출력하기

전체 평균점수를 담고 있는 새 변수를 만들어 출력해보세요. 앞 문제를 풀 때 사용한 코드를 응용하면 됩니다.

 

test_score <- c(sum(student_1:student_5)/5))
cat (test_score)

#70

mean_score <- mean(score)

mean_score

[1] 70

 

 

 

Q1. data.frame()과 c()를 조합해서 표의 내용을 데이터 프레임으로 만들어 출력해보세요.

제품 가격 판매량

사과 1800 24

딸기 1500 38

수박 3000 13

 

 

PRDT <- c("사과", "딸기", "수박")

PRICE <- c(1800, 1500, 3000)

SELLING <- c(24, 38, 13)

 

dataframe_ex <- data.frame(PRDT, PRICE, SELLING)

dataframe_ex

 

#  PRDT PRICE SELLING
1 사과  1800      24
2 딸기  1500      38
3 수박  3000      13

위 두줄 대신에 각항목의 변수 들을 data.frame으로 묶어서 세일즈 data.frame으로 바로 만들어줄 수 있음

#데이터 프레임 만들기

sales <- data.frame(fruit = c("사과", "딸기", "수박"),

price = c(1800, 1500, 3000),

volume = c(24, 38, 13))

 

# sales 출력하기

  fruit price volume
1  사과  1800     24
2  딸기  1500     38
3  수박  3000     13

 

 

Q2. 앞에서 만든 데이터프레임을 이용해서 과일가격평균, 판매량 평균을 구해보세요.

 

과일가격평균

 

PRICEAVRG <- data.frame(sum(PRICE)/3)
print (PRICEAVRG)

#1         2100

#가격평균-  세일즈데이터프레임- 가격의 평균

mean(sales$price)

 

# [1] 2100

 

 

판매량 평균

 

SELLINGAVRG <- data.frame(sum(SELLING)/3)
print (SELLINGAVRG)

#1             25

 

 

#판매량 평군- 세일즈 데이터프레임 - 판매량의 평균

mean(sales$volume)

 

# [1] 25