Hello,Please find in attachment my statistics projects. They have to been done on R and they are 3 together. The first is 1 picture, second and third are 2 pictures each. Thank you!

Part-1
Q1-Take a random sample of 60 from blood pressure data
    #--Question 1
data=read.csv("C:/Users/vikki/Desktop/bloodpressure.csv")
sample60=sample_n(data,size=60,replace=FALSE) #Random sample were taken using sample_n function
mydata1=as.data.frame(sample60)
Q2- bar and pie chart
Bar chart:
    bp<- ggplot(mydata1, aes(x="", y=trt, fill=married))+
geom_bar(width = 1, stat = "identity")+ggtitle("BAr for trt")
bp
Pie chart:
    piechart = bp + coord_polar("y", start=0)
piechart
Q3- describing the data through data plots obtained below
Bar and pie chart were done with one continues variable and one categorical variable from the sample60 blood pressure data.
From the both the charts we can noticed that in trt(continues variable) married category yes is little low while comparing to trt category of Married category No
Q4- with different samples 280 and 410
Sample 280:
    sample280=sample_n(data,size=280,replace=FALSE) #Random sample were taken using sample_n function
mydata2=as.data.frame(sample60)
Sample 410:
    sample410=sample_n(data,size=410,replace=FALSE) #Random sample were taken using sample_n function
mydata3=as.data.frame(sample60)
Bar charts for sample 280 and 410:
Q5:
Sample280 describe more about the data option b.
Part 2:
Q1- sample with 477
    data=read.csv("C:/Users/vikki/Desktop/bloodpressure.csv")
sample477=sample_n(data,size=477,replace=FALSE) #Random sample were taken using sample_n...