Untitled

R Markdown

data<-read.csv("C:/Users/Bacchus/Desktop/2018 spring/special topic for CS/content/GILTdata.csv", header = TRUE)
product1<-subset(data,product == "1")
y<-product1[,5]
product1_average<-mean(y)
product2<-subset(data,product == "2")
product3<-subset(data,product == "3")
product4<-subset(data,product == "4")
product5<-subset(data,product == "5")
product6<-subset(data,product == "6")
product7<-subset(data,product == "7")
product8<-subset(data,product == "8")
y<-product2[,5]
product2_averag<-mean(y)
y<-product3[,5]
product3_averag<-mean(y)
y<-product4[,5]
product4_averag<-mean(y)
y<-product5[,5]
product5_averag<-mean(y)
y<-product6[,5]
product6_averag<-mean(y)
y<-product7[,5]
product7_averag<-mean(y)
y<-product8[,5]
product8_averag<-mean(y)
product_name<-c(1,2,3,4,5,6,7,8)
average<-c(product1_average,product2_averag,product3_averag,product4_averag,product5_averag,product6_averag,product7_averag,product8_averag)
result<-data.frame(product_name,average)

plot(result)