ggplot

股市分析，使用ggplot

install.packages("gcookbook")

install.packages("ggplot2")

library(ggplot2)

library(gcookbook)

x<-read.csv("G:/stock.csv",header=TRUE,sep=",")

b<-as.Date(x$日期)#日期类型转换

a<-data.frame(b,x[,-1])

names(a)<-c("日期","开盘价","最高价","最低价","收盘价")

attach(a)

colnames(a)

help(ggplot)

#xy对应a中实际存在的列名

ggplot(a, aes(x=日期, y=开盘价,group=1)) + geom_line(linetype="dotted")#点图，

>ggplot(a, aes(x=日期, y=开盘价,group=1)) + geom_line(color="blue")

>ggplot(a, aes(x=日期, y=收盘价)) + geom_line(size=2)#粗线

下面两种写法结果相同

>ggplot(stock, aes(x=日期, y=价格,colour=分类))+

  geom_line())

 >ggplot(stock, aes(x=日期, y=价格))+

  geom_line(aes(color=分类)

区分出两个价格

#因为ggplot不能画双曲线，所以把最高价和最低价合并到一列，用颜色来区分

>d<-a[,c(1,3,4)]

#把最高价最低价行列转换要用到reshape2包中的melt

>library(reshape2)

>stock<-melt(d,id.vars ='日期')#行列转换最高最低分类

>colnames(stock)

>names(stock)<-c("日期","分类","价格")

>attach(stock)

>ggplot(stock, aes(x=日期, y=价格,group=1)) + geom_line(aes(color=分类))#区分最高价最低价两个分类

#标出最高价和最低价

>top1<-stock[which.max(stock[,3]),]#取最高价一行

>low1<-stock[which.min(stock[,3]),]#取最低价一行

>lev<-rbind(top1,low1)#合并

>ggplot(stock, aes(x=日期, y=价格,group=1)) + 

  geom_line(aes(color=分类))+

  geom_point(data =lev$价格)

  Error: ggplot2 doesn't know how to deal with data of class numeric

Error: ggplot2 doesn’t know how to deal with data of class numeric 
查询了下这个错误，说是ggplot2 中，所有函数中data 变量，均要data.frame 类型 
但lev是data.frame类型的，继续查看错误原因

> class(lev)

[1] "data.frame"

正确写法

> ggplot(stock, aes(x=日期, y=价格,colour=分类)) + 

+   geom_line()+

+   geom_point(data =lev)

图形上出现两个点 
 
给这两个点添加标签

ggplot(stock, aes(x=日期, y=价格))+

  geom_line(aes(color=分类))+

  geom_point(data =lev)+

  geom_text(aes(label=分类),data=lev)