数据挖掘与R语言练习1

上海股票指数日线历史数据(1990-2015年)数据并且绘画其趋势图，在趋势图中用适当的方法标识出其最高股价和最低股价,并给出适当的结论。
这个小练习没做成功，带以后完善~~

x<- read.table('G:/数据分析课程/R语言项目/数据挖掘与R语言练习1/上海股票指数日线历史数据(1990-2015年).csv',header=T,sep=",")
install.packages("gcookbook")
library(plotrix) 
twoord.plot(日期,开盘价, 日期,收盘价,type="l",lcol="red",rcol="blue",lpch=16,rpch=1,xlab="日期", ylab="开盘价",rylab="收盘价",  main="趋势分析" , xtickpos=日期,xticklab=format(日期))
attach(x)
colnames(x)
minx<-as.matrix(x[4])
maxx<-as.matrix(x[3])
top<-maxx[which.max(maxx)]
low<-minx[which.min(minx)]

text(top,"最高价")
text(low,"最低价")

结果

最高、低价这里处理的有问题，还没想好怎么做

尝试用ggplot做了下 没有实现

install.packages("gcookbook")
install.packages("ggplot2")
library(ggplot2)
library(gcookbook)
attach(x)
colnames(x)
ggplot(x, aes(x=日期, y=开盘价, colour = 'green',group=1)) + geom_line(linetype="dotted")

结果很狗血，，设置颜色是绿色 展示的是红色，，，，