5/6/2019

Introduction

Slide with R Output

year<-c(2009,2010,2011,2012,2013,2014,2015,2016,2017,2018)

percentage<-c(1.0,4.2,4.6,4.6,3.8,3.6,3.9,4.0,4.9,5.5)

dat<-data.frame(year,percentage)

Slide with Plot

the graph show between 2009-2018 costmetics in worldwide

plot_ly(x=year, y=percentage, type=“scatter”, colors=“red”, mode=“lines”)

the graph shows belows my Rpubs website links: http://rpubs.com/yip999341/493876

From the graph, it shows between 2009-2010, there has a big increased because in the costmetics market, the cosmetics consumer always looks for quality and novelty value, and puts a premium on leading-edge technology, trends and new ideas.