上海股票指数日线历史数据(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")
结果很狗血,,设置颜色是绿色 展示的是红色,,,,