---
title: "r"
output:
pdf_document:
latex_engine: xelatex
---
```{r}
getwd()
x<-read.table("C:/Users/Tom/Downloads/dow_jones_index.data",header=T,sep=",")
y <- x$stock
y <- as.data.frame(y)
y$date <- x$date
y$open <- x$open
y$close <- x$close
names(y)[1] <- "stock"
head(y)
```
```{r}
r<- c(seq(y$stock)[y$stock=="KO"],seq(y$stock)[y$stock=="KRFT"],
seq(y$stock)[y$stock=="MCD"],seq(y$stock)[y$stock=="T"],
seq(y$stock)[y$stock=="CSCO"],seq(y$stock)[y$stock=="VZ"],
seq(y$stock)[y$stock=="JNJ"],seq(y$stock)[y$stock=="MRK"],
seq(y$stock)[y$stock=="PFE"])
w <- y[r,]
w$catagory <- ""
head(w)
w$catagory[which(w$stock=="KO")] <- "beverage&drinks"
w$catagory[which(w$stock=="KRFT")] <- "beverage&drinks"
w$catagory[which(w$stock=="MCD")] <- "beverage&drinks"
w$catagory[which(w$stock=="T")] <- "communication"
w$catagory[which(w$stock=="CSCO")] <- "communication"
w$catagory[which(w$stock=="VZ")] <- "communication"
w$catagory[which(w$stock=="JNJ")] <- "medicine"
w$catagory[which(w$stock=="MRK")] <- "medicine"
w$catagory[which(w$stock=="PFE")] <- "medicine"
head(w)
```
```{r,fig.width=13,fig.height=5}
library(ggplot2)
p <- ggplot(w,aes(x=date,y=open))
p +geom_point()
w$open <- as.numeric(substr(w$open,2,max(nchar(as.character(w$open)))))
w$date <- as.Date(w$date,"%m/%d/%Y")
head(w)
p <- ggplot(w,aes(x=date,y=open)) + geom_point()
p