Want to impress your date? This is the wine you should get?

Confession, I know absolutly nothing about wine. Recently I joined a tasting, tasted some wine liked some, hated others. If you are like me, how on earth are you going to impress a date with your exquisite taste?

Let’s fake it till we make it!

Let’s look at th ratings first.

highrating = data %>% filter(data$points > 98) %>% select(points,price,title)
highrating %>% as.data.frame() %>% head()

##   points price
## 1    100   350
## 2     99   125
## 3     99    94
## 4    100   210
## 5     99   235
## 6    100   259
##                                                                       title
## 1                   Chambers Rosewood Vineyards NV Rare Muscat (Rutherglen)
## 2             Quilceda Creek 2008 Cabernet Sauvignon (Columbia Valley (WA))
## 3 Williams Selyem 2009 Precious Mountain Vineyard Pinot Noir (Sonoma Coast)
## 4           Avignonesi 1995 Occhio di Pernice  (Vin Santo di Montepulciano)
## 5                     Tenuta San Guido 2012 Sassicaia  (Bolgheri Sassicaia)
## 6                                               Krug 2002 Brut  (Champagne)

Okay, even though I would still like to impress my date. I don’t have money to blow. So lets look at the cheap wines with the highest rating.

highrating %>% arrange(price) %>% head()

## # A tibble: 6 x 3
##   points price title                                                            
##    <dbl> <dbl> <chr>                                                            
## 1     99    44 Failla 2010 Estate Vineyard Chardonnay (Sonoma Coast)            
## 2     99    75 Cayuse 2009 En Chamberlin Vineyard Syrah (Walla Walla Valley (OR…
## 3     99    75 Williams Selyem 2010 Hirsch Vineyard Pinot Noir (Sonoma Coast)   
## 4     99    75 Cayuse 2011 En Chamberlin Vineyard Syrah (Walla Walla Valley (OR…
## 5    100    80 Charles Smith 2006 Royal City Syrah (Columbia Valley (WA))       
## 6    100    80 Cayuse 2008 Bionic Frog Syrah (Walla Walla Valley (WA))

Nice! It looks like we have ourselves a winner! The Failla 2010 Estate Vineyard Chardonnay seems reasonability priced, compared to the others, and received 99/100 points.

myimg <- load.image("/Users/mickbrown/Documents/Personal/R-projects/wine.png")
plot(myimg)

You’re welcome!