Sensory Means for 19ST

Cabernet Sauvignon

setwd("C:/Users/19419/OneDrive - Washington State University (email.wsu.edu)/WSU/SMOKE/Stone Tree Bin Trials/Stone Tree Sensory Data")

master <- read.csv("19ST Raw Sensory Data .csv", header = T)

To group by the Binding Code

Install Diplr

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Use the piping and group_by function - Black Fruit

a <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Black_Fruit), n = n())
a

Red Fruit

b <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Red_Fruit), n = n())

Fresh Bell Pepper

c <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Fresh_Bell_Pepper), n = n())

Canned Asparagus

d <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Canned_Asparagus), n = n())

Black Pepper

e <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Black_Pepper), n = n())

Dried Fruit

f <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Dried_Fruit), n = n())

Baking Spice

g <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Baking_Spices), n = n())

Oxidized

h <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Oxidized), n = n())

Tobacco

i <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Tobacco), n = n())

Peaty

j <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Peaty.Medicinal), n = n())

Wood Smoke

k <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Wood_Smoke.Ash), n = n())

Sweet

l <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Sweet), n = n())

Sour

m <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Sour), n = n())

Hot

n <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Hot), n = n())

Bitter

o <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Bitter), n = n())

Astringent

p <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Astringent), n = n())

Medicinal Taste

q <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Medicinal.Peaty_Aftertaste), n = n())

Wood Smoke Taste

r <- master %>%
  group_by(Wine) %>%
  summarise(mean = mean(Ashy.Smoky_Aftertaste), n = n())

Cbind to make table

table <- cbind(a[,1:2],b[,2],c[,2],d[,2],e[,2],f[,2],g[,2],h[,2],i[,2],j[,2],k[,2],l[,2],m[,2],n[,2],o[,2],p[,2],q[,2],r[,2])
colnames(table)[2:19]<- colnames(master[,12:29]) 
names(table)[1]<- paste("Wine")
table

Write CSV

write.csv(table, "19ST Sensory Means.csv")