20202240 천승환 - 250325 수업과제

[천승환20202240]

1. c, seq, rep, rev, paste 들어가는 객체 하나씩 만들어 그 결과물과 함께 카페에 올리기

a <- c(1:10)

b <- seq(1 , 7 , by=2)

c <- rep((1:3) , 3)

d <- rev(seq(1:5))

e <- paste("no" , 1:5)

c, seq, rep, rev, paste 함수를 사용한 명령문을 각각 a, b, c, d, e에 할당하여 총 다섯 개의 개체를 생성한 뒤 출력한 결과입니다.

a <- c(1:10)

= 1부터 10까지의 정수 시퀀스를 생성합니다. 이를 a에 할당합니다.

= 1 2 3 4 5 6 7 8 9 10

b <- seq(1 , 7 , by=2)

= 시작이 1, 끝이 7, 각 숫자 사이의 간격이 2인 시퀀스를 생성합니다. 이를 b에 할당합니다.

= 1 3 5 7

c <- rep((1:3) , 3)

= 1부터 3까지의 정수 시퀀스를 생성한 뒤, 시퀀스를 3번 반복합니다. 이를 c에 할당합니다.= 1 2 3 1 2 3 1 2 3 

d <- rev(seq(1:5))

= 1부터 5까지의 정수 시퀀스를 생성한 뒤, 시퀀스를 역순으로 진행합니다. 이를 d에 할당합니다.

= 5 4 3 2 1

e <- paste("no" , 1:5)

= 문자 no와 1부터 5까지의 정수 시퀀스의 각각 값을 연결합니다. 이를 e에 할당합니다.

= "no 1" "no 2" "no 3" "no 4" "no 5"

2. 중간고사 성적 좌측에 학생 이름 삽입하여 카페에 올리기 = 홍길동, 한재민, 박순희, 임정태, 방정호, 김칠규, 이만수

of_midterm <- data.frame(english = c(90 , 80 , 60 , 70 , 85 , 90 , 77) , 
                                             math = c(50 , 60 , 100 , 20 , 56 , 75 , 88) ,

                                             class = c(1 , 1 , 2 , 2 , 2 , 1 , 2))

newcol <- data.frame(name = c("홍길동" , "한재민" , "박순희" , "임정태" , "방정호" , "김칠규" , "이만수"))

of_midterm_name <- cbind(newcol , of_midterm)

1. 중간고사 성적 데이터프레임을 생성합니다. 이 데이터프레임을 of_midterm이라는 새로운 객체로 할당합니다.

of_midterm <- data.frame(english = c(90 , 80 , 60 , 70 , 85 , 90 , 77) , 
                                             math = c(50 , 60 , 100 , 20 , 56 , 75 , 88) ,

                                             class = c(1 , 1 , 2 , 2 , 2 , 1 , 2))

2. 학생 7명의 이름을 데이터프레임으로 생성합니다. 열 이름은 name으로 합니다. 이를 newcol이라는 새로운 객체로 할당합니다.

newcol <- data.frame(name = c("홍길동" , "한재민" , "박순희" , "임정태" , "방정호" , "김칠규" , "이만수"))

3. cbind 함수를 활용하여 이전에 생성한 객체 newcol과 of_midterm을 열 병합 합니다. 학생 이름이 좌측에 와야 하므로 학생 이름으로 생성한 데이터프레임을 먼저 입력하고, 그 뒤에 of_midterm 객체가 위치하도록 합니다. 병합된 데이터프레임은 of_midterm_name이라는 새로운 객체로 할당합니다.

of_midterm_name <- cbind(newcol , of_midterm)