SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.

1. Write an R program to find the maximum and the minimum value of a given vector.

nums = c(10, 20, 30, 40, 50, 60)

print('Original vector:')

print(nums)

print(paste("Maximum value of the said vector:",max(nums)))

print(paste("Minimum value of the said vector:",min(nums)))

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

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))

3 Write an R program to compare two data frames to find the elements in first
data frame that are not present in second data frame.

df_90 = data.frame(

"item" = c("item1", "item2", "item3"),

"Jan_sale" = c(12, 14, 12),

"Feb_sale" = c(11, 12, 15),

"Mar_sale" = c(12, 14, 15))

df_91 = data.frame(

"item" = c("item1", "item2", "item3"),

 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

"Jan_sale" = c(12, 14, 12),

"Feb_sale" = c(11, 12, 15),

"Mar_sale" = c(12, 15, 18))

print("Original Dataframes:")

print(df_90)

print(df_91)

print("Row(s) in first data frame that are not present in second data frame:")

print(setdiff(df_90,df_91))

4 Write an R program to extract first 10 English letter in lower case and last 10
letters in upper case and extract letters between 22nd to 24th letters in upper
case.

print("First 10 letters in lower case:")

t = head(letters, 10)

print(t)

print("Last 10 letters in upper case:")

t = tail(LETTERS, 10)

print(t)

print("Letters between 22nd to 24th letters in upper case:")

e = tail(LETTERS[22:24])

print(e)

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

x = c(10, 20, 30)

print("Sum:")

print(sum(x))

print("Mean:")
print(mean(x))

print("Product:")

print(prod(x))
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

6.Write an R program to create a simple bar plot of five subject’s marks.

marks = c(70, 95, 80, 74)

barplot(marks,

main = "Comparing marks of 5 subjects",

xlab = "Marks",

ylab = "Subject",

names.arg = c("English", "Science", "Math.", "Hist."),

col = "darkred",

horiz = FALSE)

7.Write an R program to create a Dataframes which contain details of 5 employees and

display the details in ascending order.

Employees = data.frame(Name=c("Ramesh","Umesh","Ganesh","Dinesh","Ashwini"),

Gender=c("M","M","M","M","F"),

Age=c(25,22,25,26,22),

Designation=c("CEO"," ASSISTANT ","Executive","Clerk"," Manager "),

SSN=c("123-34-2346","123-44-779","556-24-433","123-98-987","679-77-576")

print("Details of the employees:")

print(Employees)

8.Write an R program to create a data frame using two given vectors and display the
duplicated elements and unique rows of the said data frame.

a = c(10,20,10,10,40,50,20,30)
b = c(10,30,10,20,0,50,30,30)

print("Original data frame:")

ab = data.frame(a,b)

print(ab)
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

print("Duplicate elements of the said data frame:")

print(duplicated(ab))

print("Unique rows of the said data frame:")

print(unique(ab))

9.Write an R program to change the first level of a factor with another level of a given
factor.

v = c("a", "b", "a", "c", "b")

print("Original vector:")

print(v)

f = factor(v)

print("Factor of the said vector:")

print(f)

levels(f)[1] = "e"

print(f)

10.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

> my_list <-list("Pune","Mumbai","Nashik")

> my_list

[[1]]

[1] "Pune"

[[2]]

[1] "Mumbai"

[[3]]
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

[1] "Nashik"

> append(my_list,"Delhi")

[[1]]

[1] "Pune"

[[2]]

[1] "Mumbai"

[[3]]

[1] "Nashik"

[[4]]

[1] "Delhi"

> print("Remove the last element of the list:")

[1] "Remove the last element of the list:"

> my_list[-4]

[[1]]

[1] "Pune"

[[2]]

[1] "Mumbai"[[3]]

[1] "Nashik"

> print("Update the third element of the list:")

[1] "Update the third element of the list:"

> my_list[3] = "Shirdi"

> print("New list:")

[1] "New list:"

> print(my_list)

[[1]]
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

[1] "Pune"

[[2]]

[1] "Mumbai"

[[3]]

[1] "Shirdi

11.Write a script in R to create two vectors of different lengths and give these vectors as
input to array and print addition and subtraction of those matrices.

print("Two vectors of different lengths:")

v1 = c(1,3,4,5)

v2 = c(10,11,12,13,14,15)

print(v1)

print(v2)

result = array(c(v1,v2),dim = c(3,3,2))

print("New array:")

print(result)

print("The second row of the second matrix of the array:")

print(result[2,,2])

print("The element in the 3rd row and 3rd column of the 1st matrix:")

print(result[3,3,1])

12.Write an R Program to calculate Multiplication Table

num = as.integer(readline(prompt = "Enter a number: "))

for(i in 1:10)

print(paste(num,'x', i, '=', num*i))

}
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

13.Consider the inbuilt iris dataset

i) Create a variable “y” and attach to it the output attribute of the “iris” dataset.

ii) Create a barplot to breakdown your output attribute.

iii) Create a density plot matrix for each attribute by class value.

data("iris")

> dataset <- iris

> dataset <- iris

> colnames(dataset) <- c("Sepal.Length", "Sepal.Width", "Petal.Lenght", "Petal.Width",

"Species")

> library(caret)

> library(mlbench)

> validation_index <- createDataPartition(dataset$Species, p=0.80, list=FALSE)

> validation <- dataset[-validation_index,]

> dataset <- dataset[validation_index,]

> dim(dataset)

[1] 120 5

> sapply(dataset, class)

Sepal.Length Sepal.Width Petal.Lenght Petal.Width Species

"numeric" "numeric" "numeric" "numeric" "factor"

> head(dataset)

Sepal.Length Sepal.Width Petal.Lenght Petal.Width Species

1 5.1 3.5 1.4 0.2 setosa

2 4.9 3.0 1.4 0.2 setosa

> levels(dataset$Species
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

[1] "setosa" "versicolor" "virginica"

> percentage <- prop.table(table(dataset$Species)) * 100

> cbind(freq=table(dataset$Species), percentage=percentage)

freq percentage

setosa 40 33.33333

versicolor 40 33.33333

virginica 40 33.33333

> summary(dataset)

Sepal.Length Sepal.Width Petal.Lenght Petal.Width Species

Min. :4.300 Min. :2.200 Min. :1.000 Min. :0.100 setosa :40

1st Qu.:5.100 1st Qu.:2.800 1st Qu.:1.600 1st Qu.:0.300 versicolor:40

Median :5.800 Median :3.000 Median :4.200 Median :1.300 virginica :40

Mean :5.858 Mean :3.049 Mean :3.773 Mean :1.202

3rd Qu.:6.425 3rd Qu.:3.300 3rd Qu.:5.100 3rd Qu.:1.800

Max. :7.900 Max. :4.400 Max. :6.900 Max. :2.500

> x <- dataset[,1:4]

> y <- dataset[,5]

> plot(y)

> scales <- list(x=list(relation="free"), y=list(relation ="free"))

> featurePlot(x=x,y=y, plot = "density", scales = scales)

 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

14.Write an R program to concatenate two given factor in a single factor and display in
descending order.

f1 <- factor(sample(LETTERS, size=6, replace=TRUE))

f2 <- factor(sample(LETTERS, size=6, replace=TRUE))

print("Original factors:")

print(f1)

print(f2)

f = factor(c(levels(f1)[f1], levels(f2)[f2]))

print("After concatenate factor becomes:")

print(f)

print(sort(f))

print("Sort in descending order:")

print(sort(f, decreasing=TRUE))

15.Write an R program to extract the five of the levels of factor created from a random
sample from the LETTERS

L = sample(LETTERS,size=50,replace=TRUE)

print("Original data:")

print(L)

f = factor(L)

print("Original factors:")

print(f)

print("Only five of the levels")

print(table(L[1:5]))
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

16.Write an R Program to calculate Decimal into binary of a given number.

convert_to_binary <- function(n) {

if(n > 1) {

convert_to_binary(as.integer(n/2))

}
cat(n %% 2)

17.Write an R program to create three vectors a,b,c with 3 integers. Combine the three
vectors to become a 3×3 matrix where each column represents a vector. Print the
content of the matrix.

a<-c(1,2,3)

b<-c(4,5,6)

c<-c(7,8,9)

m<-cbind(a,b,c)

print("Content of the said matrix:")

print(m)

18.Write an R program to draw an empty plot and an empty plot specify the axes limits
of the graphic.

#print("Empty plot:")

plot.new()

#print("Empty plot specify the axes limits of the graphic:")

plot(1, type="n", xlab="", ylab="", xlim=c(0, 20), ylim=c(0, 20))

19.Consider Weather dataset

i) Selecting using the column number
ii) Selecting using the column name
iii) Make a scatter plot to compare Wind speed and temperature
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

/*In this program you want to download following packages.Then after your program is run.
1.rnoaa
2.ggplot
3.devtools*/

dim(airquality)
with(airquality,plot(Ozone ~ Temp))

3.Write an R program to compare two data frames to find the elements in first
data frame that are not present in second data frame.

df1=data.frame(
item=c(12,23,34),
item1=c(65,54,43),
item2=c(90,89,78)
)
print(df1)

df2=data.frame(
item=c(12,33,34),
item1=c(55,54,43),
item2=c(90,89,88)
)
print(df2)
print("The elements is in first frame is not present in second frame is : ")
print(setdiff(df1,df2))
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

20.Write a script in R to create two vectors of different lengths and give these vectors as
input to array and print second row of second matrix of the array.
print("Two vectors of different lengths:") v1 = c(1,3,4,5)
v2 = c(10,11,12,13,14,15)

print(v1)

print(v2)

result = array(c(v1,v2),dim = c(3,3,2))

print("New array:")

print(result)

print("The second row of the second matrix of the array:")

print(result[2,,2])

print("The element in the 3rd row and 3rd column of the 1st matrix:")

print(result[3,3,1])

21.Consider the plantGrowth inbuilt dataset

i) Create a variable “y” and attach to it the output attribute of the
“plantGrowth” dataset.
ii) Create a barplot to breakdown your output attribute.
iii) Create a density plot matrix for each attribute by class value.

/*In this program you required to install following packages ,

1.dplyr
2.ggplot
3.ggplot2
4.plantgrowth
5.caret
*/

data(PlantGrowth)
dataset<-PlantGrowth
library(caret)
x<-dataset[,1:1]
y<-dataset[ ,2]
y

library(dplyr)

library(ggplot2)
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

dataset %>% ggplot(aes(x=y)) + geom_bar() + labs(x = "Iris Flower Species")

scales<-list(x = list(relation = "free"), y = list(relation = "free"))
barplot(x = x, y = y, plot = "density", scales = scales)

22 Write an R program to print the numbers from 1 to 100 and print "SY" for multiples
of 3, print "BBA" for multiples o f 5, and print "SYBBA" for multiples of both.

for (n in 1:100)

if (n %% 3 == 0 & n %% 5 == 0)

print("SY")

else if (n %% 3 == 0)

print("BBA")

else if (n %% 5 == 0)

print("SYBBA")

else print(n)

}
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

23. Write a script in R to create two vectors of different lengths and give these vectors as
input to array and print second row of second matrix of the array.

print("Two vectors of different lengths:")

v1 = c(1,3,4,5)

v2 = c(10,11,12,13,14,15)

print(v1)

print(v2)

result = array(c(v1,v2),dim = c(3,3,2))

print("New array:")

print(result)
print("The second row of the second matrix of the array:")

print(result[2,,2])

24. Write a script in R to create two vectors of different lengths and give these vectors as
input to array and print Multiplication of those matrices.

print("Two vectors of different lengths:")

v1 = c(1,3,4,5)
v2 = c(10,11,12,13,14,15)
print(v1)
print(v2)
result = array(c(v1,v2),dim = c(3,3,2))
print("New array:")
print(result)
print("The second row of the second matrix of the array:")
print(result[2,,2])
print("The element in the 3rd row and 3rd column of the 1st matrix:")
print(result[3,3,1])

# Creating 1st Matrix

B = matrix(c(1, 2 + 3i, 5.4), nrow = 1, ncol = 3)

# Creating 2nd Matrix

C = matrix(c(2, 1i, 0.1), nrow = 1, ncol = 3)

# Printing the resultant matrix

print (B * C)
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

25. Write an R program to create a list of elements using vectors, matrices and a
functions. Print the content of the list.

l = list(

c(1, 2, 2, 5, 7, 12),

month.abb,

matrix(c(3, -8, 1, -3), nrow = 2),

asin

print("Content of the list:")

print(l)

26. Write a script in R to create an array, passing in a vector of values and a vector of
dimensions. Also provide names for each dimension

a = array( 6:30,

dim = c(4, 3, 2),

dimnames = list( c("Col1", "Col2", "Col3", "Col4"),c("Row1", "Row2", "Row3"),

c("Part1", "Part2"))

print(a).
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

27. Write an R Program to calculate binary into Decimal of a given number.

num <- readline(prompt="Enter decimal number: ")

binary <- function(num) {

if(num > 1) {

binary(as.integer(num/2))

cat(num %% 2)

28. Write an R program to convert a given matrix to a list and print list in ascending
order.

m = matrix(1:10,nrow=2, ncol=2)

print("Original matrix:")

print(m)

l = split(m, rep(1:ncol(m), each = nrow(m)))

print("list from the said matrix:")

print(l)

print(sort(m))

OR

a=matrix(c(3,2,1,5),nrow=2,ncol=2)
print("original matrix is : ")
print(a)
l=unlist(as.list(a))
print("list of matrix in ascending order is : ")
sorting=sort(l)

print(sorting)
 SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D

29 write a script in R to create a list of student and performs the following.

1) Gives names to the student in the list
2) Add a student at the end of the list.
3) Remove the first student
4) Update the second last student.

a=list("deep","gaurav","harshal","sameer")
print("original list is ")
print(a)
names(a)<-c("a","b","c","d")
print("names of list : ")
print(a)

a[5]="santosh"
print(a)
a[1]=NULL
print(a)
a[2]="chirag"
print(a)

30.Write an R program to sort a list of 10 strings in ascending & Descending order

a<-c("deep","gaurav","sameer","harshal","chirag","santosh","prasad","mohit","harshil","rajesh")
list_str=list(a)
print("original string is : ")
print(list_str)

sort_str=sort(a)
print("sorting string in ascending order is : ")
print(sort_str)

sort_str=sort(a,decreasing=TRUE)
print("sorting string im desceding order is : ")
print(sort_str)
SYBBA_CA 2023-24 Subject: Big Data(R Programme) Prof .Khatal.S.D