请求高手指导作图（ASAP）

Costa

想做一张类似于股票图的图形。（如下图）

想请高手指导如何才能做到。

数据，和图形样本已近上传，可以直接看到。

[attachment=210912,659]

DavidLung

不知侬想用哪个软件做？

uunet

回复第2楼的 David：

复杂点quantmod 简单点plot

Costa

我想用R做，可不可以把code 一起给我，我想看看怎样写、、

谢谢高手的相助。。

doctorjxd

回复第1楼的 Costa：

gnuplot 就可以绘出这样的图。

下面是我给的一个例子，曲线数量变化趋势上，也许存在误导[s:19]

<br />
#!/usr/local/bin/gunplot</p>
<p>set terminal pdf color font "Helvetica, 8"<br />
set output "cal.pdf"<br />
set size 1,0.8<br />
set object 1 rect behind from graph 0, graph 0 to graph 1, graph 1 fc rgb "yellow" fs transparent solid 0.1<br />
set style data lines<br />
set format y "%0.1f"<br />
set xrange [:2010]<br />
set yrange [0.5:2.5]<br />
set ytics 0.5<br />
set grid<br />
set xlabel "Time (Year)" font "Helvetica, 10"<br />
set ylabel "Unemployment (million)" font "Helvetica, 10"</p>
<p>set y2tics<br />
set y2label "Laborforce (million)" font "Helvetica, 10"</p>
<p>set key left reverse Left</p>
<p>plot " < awk '{if(NR>1)print $1+((NR-2)%12/12),$3,$4,$5,$6;}' cal.txt" using 1:($4/1000000) lw 2 title "Unemployment", "" using 1:($2/1000000) lw 2 lc rgb "dark-green"axes x1y2 title "Total Laborforce"</p>
<p>set output</p>
<p>!evince cal.pdf</p>
<p>

</p>

uunet

回复第5楼的 doctorjxd：gnuplot 和R比有什么优缺点？

doctorjxd

回复第6楼的 uunetcom：

gnuplot 是纯粹的绘图软件，

R主要是统计软件，兼有绘图功能

顺手习惯就好。

另外，有谁知道如何删除帖子里多余的附件？

uunet

回复第7楼的 doctorjxd：不能删的。

DavidLung

此图如何？命令较简单一些，如果可以，我再上传。

DavidLung

此图如何？命令较简单一些，如果可以，我再上传。

[attachment=210954,665]

DavidLung

如何让网格按tick画出是个问题，abline是个解决方法，不过稍稍麻烦些，grid()怎么做我就不知了，对axTicks不熟。

另外，如何设置box里面的背景色，bg,fg都试过了，好像不行哎。[s:15]

DavidLung

回复第3楼的 uunetcom：GG，何不给出代码？

DavidLung

另外，用EViews做了一个，不知是不是它真的弱，没找到加网格的方法，哪位知道一定分享。

[attachment=210957,666]

habby

用Excel画了一下，呵呵

[attachment=210961,668]

uunet

回复第15楼的 habby：你快跑吧，坛霸最痛恨Excel.回头把你煮了吃

回复第12楼的 David：这个数据源要干什么含义都没有。不知道重点画什么。

quntmod 是接受olhc格式画k线做交易的一个包复杂的很画K图常用指标倒比较简单。

只简单点用plot(read.csv(),type="l")也可以了但是格子要用abline自己搞烦。

如果要格子 latticeextra 和ggplot2包都可以。

latticeextra

http://latticeextra.r-forge.r-project.org/#c.trellis&theme=default

不过懒得搞，呼叫坛霸。

Costa

回复第10楼的 David：谢David, 真是高手都在民间啊。可不可以发给我code（.R)

我的email :heaven7wx@gmail.com

thanks a lot man.

DavidLung

tnem<-ts(employment,start=c(1980,1),frequency=12)<br />
png('unem.png',width = 1200, height = 600)<br />
par(col.lab=4,xaxs='i')<br />
plot(tnem,main='UNEMPLOYMENT',xlab='Month',ylab='',col=2,<br />
lwd=2,col.main=4,axes=F,panel.first=grid(nx=11,ny=4,lwd=2))<br />
axis(2);box()<br />
axis(1,at=seq(1980,2010,3))<br />
dev.off()<br />

</p>

Costa

回复第18楼的 David：一个问题，为什么code里有很多error？ David，可否修改？

Costa

回复第18楼的 David：never mind,thanks a lot man.