14. R기초연습문제

사용할 데이터 : 2 3 5 6 7 10

1. 데이터 벡터 x를 만드시오

x = c(2,3,5,6,7,10)

2. 각 데이터의 제곱으로 구성된 벡터 x2를 만드시오

x2 = c(2,3,5,6,7,10)^2
x2

  
3. 각 데이터의 제곱의 합을 구하시오

sum(c(2,3,5,7,10)^2)

4. 각 데이터에서 2를 뺀 값을 구하시오

var1 = (c(2,3,5,6,7,10)-2)
var1

5. 최대값과 최소값을 구하시오

maxValue = max(x)
minValue = min(x)
cat("최대:",maxValue,", 최소 :",minValue)

6. 5보다 큰 값들로만 구성된 데이터 벡터 x_up을 만드시오

x_up=x[x>5]
x_up

7. 벡터 x의 길이를 구하시오

length(x)

 

UsingR 패키지를 인스톨한 후 내장되어 있는 데이터셋 primes를 이용하여 답하시오. 
* primes는 1부터 2003 까지의 소수(prime number):약수가 1과 자기 자신뿐인 자연수의 집합

install.packages("UsingR")
library(UsingR)

data("primes")
head(primes)

8. 1부터 2003까지 몇 개의 소수가 있는가?

length(primes)

9. 1부터 200까지 몇 개의 소수가 있는가?

sum(primes <= 200)

10. 평균은 얼마인가?

mean(primes)

11. 1000 이상의 소수는 몇 개인가?

sum(primes>=1000)

12. 500 부터 1000 사이의 소수만을 포함한 벡터 pp를 만드시오

pp = primes[primes>=500 & primes<1000]
pp

 

sample()을 활용해서 로또번호(1 ~ 45, 6개)를 추첨하여라.

S1 = sample(1:45, 6, replace = FALSE) # 1 ~ 45 중에 6개의 숫자를 비복원 추출
S1

set.seed(2) #결과값 고정. 괄호 안 숫자에 무작위 결과값이 저장되어 있다
S2 = sample(1:45, 6, replace = FALSE)
S2

다음의 수열로 구성 된 벡터를 생성하시오.

AV = (1,3,5,7,9...99) BV=(1,1,2,2,3,3,4,4,5,5)

AV = seq(from = 1, to = 99, by = 2) 
AV

BV = rep(c(1:5), each=2)
BV

1~9까지 숫자를 활용해 3X3행렬 M을 생성하시오.

* matrix(data = 데이터 , nrow = 행의 수, ncol = 열의 수, byrow = 행/열 기준)

M = matrix(data=c(1:9), nrow=3, ncol=3, byrow=1)
M

funtion()을 사용하여 다음의 함수를 만드시오.
Quadratic(x,y) = x^2+y+10

fx1 = function(x,y){
  x^2+y+10
  }

fx1(1,2) #13

for()문을 활용하여 구구단을 만드시오.
* for(반복변수명 in 횟수) {반복할 식}

for(i in 1:9){print(5*i)} #5단

 

sales는 각 고객별 총판매금액이며 freq는 구매횟수이다.
cust <- data.frame(age = 30:50, sales = rep(c(65,60,80),7))
freq <- rep(c(3,7,4,2,1,1,2),3)

문제1: 고객의 수를 계산하라

str(cust) 
nrow(cust)
length(cust$age) #21명

문제2: 고객의 나이를 큰값에서 작은 값의 순서로 정렬하라

rev(sort(cust$age))
sort(cust$age, decreasing=T)

문제3: 고객의 나이 중 두번째로 큰 값은 얼마인가?

-sort(-cust$age)[2] #49

문제4: sales의 평균값은 얼마인가?

avg(cust$sales) #68.33333

문제5: 각 고객별로 sales와 전체고객의 sales 평균간의 차이는 얼마인가?

cust$sales-mean(cust$sales)

문제6: cust dataframe에 freq를 칼럼으로 추가한 후 처음부터 3명의 고객을 출력하라.

cust$freq = freq
head(cust,3)

문제7: 고객별 구매1건당 평균 sales 금액을 구하여 avgsales 라는 이름의 컬럼으로 출력하고, cust dataframe에 추가한 후 마지막 두 명의  고객을 출력하라.

cust$avgsales <- cust$sales / cust$freq
tail(cust,2)

문제8: cust dataframe을 avgsales 순서로 정렬하고, avgsales가 가장 큰 세명의 고객을 출력하라.
head(cust[order(- cust$avgsales),], 3)
문제9: 고객의 freq와 sales간의 분포를 scatter plot으로 작성하라.

plot(cust$sales, cust$freq)
plot(cust$sales, cust$freq, col=rgb(0,0,1,0.3), pch=19, cex=1)