Ice Cream Survey Results

  1. Which brand of ice cream do you prefer?
Brand<-c("a","b","c","d","e")
Frequency<-c(7.10,14.30,50,14.30,14.30)
Question1<-data.frame(Brand,Frequency)
Question1
##   Brand Frequency
## 1     a       7.1
## 2     b      14.3
## 3     c      50.0
## 4     d      14.3
## 5     e      14.3

The mean of the “Frequency” column is the following:

mean(Question1$Frequency)
## [1] 20

Notice below that the popular brands are Ben and Jerry’s (b), and Halo Top (d). Notice also that just as many customers preferred Other (e).

count1<-table(Question1)

barplot(count1, main = "Survey Results of Question1", xlab="Brands/Percentages", ylab="Frequencies", las=1)

  1. Why do you prefer this brand?
Brand2<-c("a","b","c","d","e", "f", "g")
Frequency2<-c(21.40,7.10,14.30,50,0.0,0.0,7.20)
Question2<-data.frame(Brand2,Frequency2)
Question2
##   Brand2 Frequency2
## 1      a       21.4
## 2      b        7.1
## 3      c       14.3
## 4      d       50.0
## 5      e        0.0
## 6      f        0.0
## 7      g        7.2

The mean of the “Frequency” column is the following:

mean(Question2$Frequency2)
## [1] 14.28571

Notice below that “Taste” was the factor that influenced the customer to purchase the preferred brands. Legend: Quality = 1, Price = 2, Brand = 3, Taste = 4, Packaging = 5, Other = 6, Other = 7

count2<-table(Question2$Frequency2)
pc2 <- c('red','green','blue','tan','orange','pink','yellow')
barplot(Question2$Frequency2, names=row.names(Question2),main = "Survey Results of Question2", ylab="Frequencies", col=pc2,las=1)

  1. Which of the following types of ice cream do you most prefer?
Brand3<-c("a","b","c","d")
Frequency3<-c(78.60, 21.40, 0.0, 0.0)
Question3<-data.frame(Brand3,Frequency3)
Question3
##   Brand3 Frequency3
## 1      a       78.6
## 2      b       21.4
## 3      c        0.0
## 4      d        0.0

The mean of the “Frequency” column is the following:

mean(Question3$Frequency3)
## [1] 25

Notice below that “Regular/Dairy” was the most preferred type of ice cream. Legend: Regular/DAiry = 1,Low Fat = 2,Lactose Free = 3,Other = 4

count3<-table(Question3$Frequency3)
pc3 <- c('red','green','blue','tan')
barplot(Question3$Frequency3, names=row.names(Question3),main = "Survey Results of Question3", ylab="Frequencies", col=pc3,las=1)

  1. How often do you eat ice cream?
Brand4<-c("a","b","c","d")
Frequency4<-c(28.60,14.30,50,7.10)
Question4<-data.frame(Brand4,Frequency4)
Question4
##   Brand4 Frequency4
## 1      a       28.6
## 2      b       14.3
## 3      c       50.0
## 4      d        7.1

The mean of the “Frequency” column is the following:

mean(Question4$Frequency4)
## [1] 25

Notice below that the most frequent answer was eating ice cream “once a month.” Legend: Once a week = 1, More than three times a week = 2, Once a month = 3, None = 4.

count4<-table(Question4$Frequency4)
pc4 <- c('red','green','blue','tan')
barplot(Question4$Frequency4, names=row.names(Question4),main = "Survey Results of Question4", ylab="Frequencies", col=pc4,las=1)

Using the same legend, we see that a pie chart confirms that the most frequent answer was eating ice cream “once a month.”

pie(Question4$Frequency4, labels=row.names(Question4), col=pc4, cex=1.2)

  1. What age group do you belong to?
Brand5<-c("a","b","c","d")
Frequency5<-c(0,0,78.60,21.40)
Question5<-data.frame(Brand5,Frequency5)
Question5
##   Brand5 Frequency5
## 1      a        0.0
## 2      b        0.0
## 3      c       78.6
## 4      d       21.4

The mean of the “Frequency” column is the following:

mean(Question5$Frequency5)
## [1] 25

Notice below that the most frequent age group was the age group, “22-35.” Legend: “2-13” = 1, “14-21” = 2, “22-35” = 3, “35 and above” = 4.

count5<-table(Question5$Frequency5)
pc5 <- c('red','green','blue','tan')
barplot(Question5$Frequency5, names=row.names(Question5),main = "Survey Results of Question5", ylab="Frequencies", col=pc5,las=1)

  1. From where do you usually buy ice cream?
Brand6<-c("a","b","c","d")
Frequency6<-c(42.9, 57.10, 0.0, 0.0)
Question6<-data.frame(Brand6,Frequency6)
Question6
##   Brand6 Frequency6
## 1      a       42.9
## 2      b       57.1
## 3      c        0.0
## 4      d        0.0

The mean of the “Frequency” column is the following:

mean(Question6$Frequency6)
## [1] 25

Notice below that the most frequent venue was the “Convenience Store.”
Legend: Super Market = 1, Convenience Store = 2, Mobil Cart = 3, Online Grocery Shopping = 4.

count6<-table(Question6$Frequency6)
pc6 <- c('red','green','blue','tan')
barplot(Question6$Frequency6, names=row.names(Question6),main = "Survey Results of Question6", ylab="Frequencies", col=pc5,las=1)