Vector and List in R programming | R Programming Solved Assignment

Assignment 4: Vector and List in R programming

1. Write a R program to create a vector of a specified type and length. Create vector of numeric, complex, logical and character types of length 6.

Answer :

x = vector("numeric", 5) print("Numeric Type:") print(x) c = vector("complex", 5) print("Complex Type:") print(c) l = vector("logical", 5) print("Logical Type:") print(l) chr = vector("character", 5) print("Character Type:") print(chr)

2. Write a R program to add, multiply and divide two vectors of integers type and length 3. 

Answer :

x = c(10, 20, 30) y = c(20, 10, 40) print("Original Vectors:") print(x) print(y) print("After dividing Vectors:") z = x / y print(z)

3. Write a R program to create a list containing strings, numbers, vectors and a logical values. 

Answer :

list_data = list("Python", "PHP", c(5, 7, 9, 11), TRUE, 125.17, 75.83) print("Data of the list:") print(list_data)

4. Write a R program to list containing a vector, a matrix and a list and give names to the elements in the list. Access the first and second element of the list.

Answer :

list_data <- list(c("Red","Green","Black"), matrix(c(1,3,5,7,9,11), nrow = 2), list("Python", "PHP", "Java")) print("List:") print(list_data) names(list_data) = c("Color", "Odd numbers", "Language(s)") print("List with column names:") print(list_data) print('1st element:') print(list_data[1]) print('2nd element:') print(list_data[2])

SET A:

1. Write an R program to sort a Vector in ascending and descending order.

Answer :

x = c(10, 20, 30, 25, 9, 26) print("Original Vectors:") print(x) print("Sort in ascending order:") print(sort(x)) print("Sort in descending order:") print(sort(x, decreasing=TRUE))

2. Write an R program to find Sum, Mean and Product of a Vector.

Answer :

x = c(10, 20, 30) print("Sum:") print(sum(x)) print("Mean:") print(mean(x)) print("Product:") print(prod(x))

3. Write a R program to sort a Vector in ascending and descending order.

Answer :

x = c(10, 20, 30, 25, 9, 26) print("Original Vectors:") print(x) print("Sort in ascending order:") print(sort(x)) print("Sort in descending order:") print(sort(x, decreasing=TRUE))

4. Create a list containing a four vectors and give names to the elements in the list

Answer :

vec1 <- list(1,2,3) vec2 <- list(4,5,6) vec3 <- list(7,8,9) vec4 <- list(10,11,12) my_list <- list(vec1,vec2,vec3,vec4) names(my_list) <- c("new", "creat","Part","Happy") print(my_list[1]) print(my_list[2]) print(my_list[3]) print(my_list[4])

5. Write a R program to merge two given lists into one list.

Answer:

n1 = list(1,2,3) c1 = list("Red", "Green", "Black") mlist = c(n1, c1) print("New merged list:") print(mlist)

6. Write a R program to convert a given list to vector.

Answer :

n1 = list(1,2,3) v1 = unlist(n1) print("New vector:") print(v1)

7. Write a R program to create a list named s containing sequence of 15 capital letters, starting from ‘E’.

Answer :

l = LETTERS[match("E", LETTERS):(match("E", LETTERS)+15)] print("Sequence of 15 capital letters") print(l)

SET B:

1. Write a R program to find all elements of a given list that are not in another given list.

Answer : 

l1 = list("x", "y", "z") l2 = list("X", "Y", "Z", "x", "y", "z") setdiff(l2, l1)

2. Write a R program to extract all elements except the third element of the first vector of a given list.

Answer :

list1 = list(g1 = 1:10, g2 = "R Programming", g3 = "HTML") print("First vector:") print(list1$g1) print("First vector without third element:") list1$g1 = list1$g1[-3] print(list1$g1)

3. Write a script in R to create a list of cities and perform the following

1) Give names to the elements in the list.

2) Add an element at the end of the list.

3) Remove the last element.

4) Update the 3rd Element

Answer :

print(" 1. Give names to the elements in the list.") list_data <- list(c("Red","Green","Black"),list("Python", "PHP", "Java")) print(list_data) names(list_data) = c("Color", "Language(s)") print("List with column names:") print(list_data) print("2. Add an element at the end of the list.") list_data <- list(c("Red","Green","Black"),list("Python", "PHP", "Java")) print("List:") print(list_data) print("Add a new element at the end of the list:") list_data[4] = "New element" print("New list:") print(list_data) print("3. Remove the last element.") list_data <- list(c("Red","Green","Black"),list("Python", "PHP", "Java")) print(list_data) print("Remove the Last element of the list:") list_data[2] = NULL print("New list:") print(list_data) print("4. Update the 3rd Element") list_data <- list(c("Red","Green","Black"),list("Python"),list("saurabh")) print(list_data) print("Update the second element of the list:") list_data[3] = "R programming" print("New list:") print(list_data)

4. Write a script in R to create a list of students and perform the following

a. Give names to the students in the list.

b. Add a student at the end of the list.

c. Remove the first Student.

d. Update the second last student.

Answer: 

print("1. Give names to the students in the list. ") list_data <- list(c("21","22","23"),list("saurabh", "radha", "sayali")) print(list_data) names(list_data) = c("Rollno", "Student(s)") print("List with column names:") print(list_data) print("2. Add a student at the end of the list. ") list_data <- list(c("21","22","23"),list("saurabh", "radha", "sayali")) print(list_data) names(list_data) = c("Rollno", "Student(s)") print("Add a new element at the end of the list:") list_data[3] = "Sona" print("New list:") print(list_data) print("3. Remove the firstStudent. ") list_data <- list(c("21","22","23"),list("saurabh", "radha", "sayali")) print(list_data) names(list_data) = c("Rollno", "Student(s)") print("Remove the first element of the list:") list_data[1] = NULL print("New list:") print(list_data) print(" 4. Update the second last student. ") list_data <- list(c("21","22","23"),list("saurabh", "radha", "sayali"))

5. Write a script in R to create a vector of numbers and perform the following

a. Search for specific element 

Answer : 

v <- c(4, 0, 3, 6, 5, 2, 2) target <- 0 result <- target %in% v cat(result)

b. Count the occurrences of specific element

Answer :

v <- c(4, 0, 3, 6, 5, 2, 2) c <- length(which(v == 2)) c

c. Access the last element of given vector

Answer : 

v <- c(4, 0, 3, 6, 5, 2, 2) tail(v, 1)

SET C:

1. Write a R program to extract every nth element of a given vector.

Answer :

v <- 1:100 print("After extracting every nth element of the vector:") n <- v[seq(1, length(v), 5)] print(n)

2. Write a R program to select second element of a given nested list.

Answer :

x = list(list(0,2), list(3,4), list(5,6)) e = lapply(x, '[[', 2) print("Second element of the nested list:") print(e)