title: “Lab2” ###Organizing Descriptive Data

Data1=c("D","D,","B","D","D","A","A","C","A","A")
data1=rep(c("A","B","C","D"),c(4,1,1,4))
data1

##  [1] "A" "A" "A" "A" "B" "C" "D" "D" "D" "D"

table(Data1)

## Data1
##  A  B  C  D D, 
##  4  1  1  3  1

table1=table(data1)/length(data1)
table1

## data1
##   A   B   C   D 
## 0.4 0.1 0.1 0.4

Our First Pie Chart

pie(table1)

pie(table1,main="Our First Pie Chart")

pie(table1,col=c("white","yellow","green2","cyan"),main="Our First Pie Chart")

pie(table1,col=rainbow(4),main="Our First Pie Chart")

pie(table1,col=gray(1),main="Our First Pie Chart")

Bar Plot

barplot(table(data1))

barplot(table(data1)/length(data1))

2.62 Example: Frequency and Relative frequency table

q2.62=rep(c(0,1,2,3,4),c(2,8,7,2,1))
table(q2.62)

## q2.62
## 0 1 2 3 4 
## 2 8 7 2 1

table(q2.62)/length(q2.62)

## q2.62
##    0    1    2    3    4 
## 0.10 0.40 0.35 0.10 0.05

2.62 Relative Frequency Histogram

hist(q2.62)

hist(q2.62,probability=T,main="Relative Frequency Histogram")

hist(q2.62,probability=T,main="Relative Frequency Histogram",breaks=seq(-0.5,5.5,1))

Exercise 1

data1=rep(c("WE","SO","MW","NE"),c(13,16,12,9))
table(data1)

## data1
## MW NE SO WE 
## 12  9 16 13

table1=table(data1)/length(data1)
table1

## data1
##   MW   NE   SO   WE 
## 0.24 0.18 0.32 0.26

pie(table1)

pie(table1,main="Region of 50 States")

barplot(table(data1),main="Region of 50 States")

barplot(table(data1)/length(data1),main="Reletaive Fequency of 50 States")

Exercise 2

data2.37=rep(c("red","black","green"),c(88,102,10))
table(data2.37)

## data2.37
## black green   red 
##   102    10    88

table1=table(data2.37)/length(data2.37)
table1

## data2.37
## black green   red 
##  0.51  0.05  0.44

pie(table1,main="Ball Frequency of Roulette Wheel")

pie(table1,col=c("black","green","red"),main="Ball Frequency of Roulette Wheel")