作图求助

冰域逐梦

7 O. H! s2 R% T7 V- \- o2 u5 t% ?
图中第一个子图的横轴怎么画出来

我叫微尘

这个真不会，你百度一下吧。

穿越人海

是用excle画的吧

冰域逐梦

穿越人海 发表于 2012-9-4 13:10
是用excle画的吧

- C$ x9 @4 @. Q1 |, H! c6 y" p, P不是的   这个是R画的，是我们的图形学作业，我已经差不多能画出来了

冰域逐梦

我叫微尘 发表于 2012-9-3 21:38
0 M, ?% a! [8 J, |1 s这个真不会，你百度一下吧。

. S+ D; M/ L  I  J) c/ i好的  谢谢

一路顺风-顺顺

真心不了解，求教了~~~

我叫微尘

冰域逐梦 发表于 2012-9-4 14:27
4 y/ [! E* t+ T1 L不是的   这个是R画的，是我们的图形学作业，我已经差不多能画出来了

请问R是什么？

冰域逐梦

一路顺风-顺顺 发表于 2012-9-4 14:52
* X& X6 B  V. [) v: w真心不了解，求教了~~~

1. x <- c(2,2,2,3,5,7,7,7,7,8,8,8,9,9,10,10,10,10,10,10,10,10,10,10,20,20,20,20,21,22,25,26,29,30,31,32,34,35,36,37,38,39,39,40,40,42,42,44,44,48,49,49,49,50,50,52,52,53,53,53,57,57,58,59,60,61,61,61,62,62,64,65,66,67,66,68,72,75,75,74,75,78,80,80,81,81,82,83,84,84,86,87,88,88,90,94,92,93,95,96,97,103,106,109);1 f; O! \% m5 t% k
   
2. y <- c(5,20,24,20,26,25,25.5,29,31,24,26,28,29,29,20,24,27,29,30,31,33,34,38,40,41,51,55,62,40,63,49,62,62.5,74,50,61,52,50,60,70,72,58,65,64,65,68,70,69,72,74,78,80,76,74,40,65,66,66,68,68,78,76,79,80,79,92,75,74,78,79,80,78,82,85,83,79,84,86,73,90,88,87,89,89,91,90,91,90,88,94,60,88,70,90,94,93,110,66,98,90,100,106,70,90);
   , v# r/ j& y) ]- E% K9 q% r2 J- }5 z  ~
3. plot(x,y,pch=20,axes=T,xaxt="n",yaxt="n",ylab="methylation",xlab="Age(yrs)");\" n) \) ?+ J  O2 K7 e/ S2 r
   
4. title(col.sub="red",sub="Fetal Age(wks)                                                                                                 ",main="cg04640913");
   0 S, H) n0 ?1 x# W/ z+ Z
5. text(98,15,"CDH22",font=3,cex=2);0 \  {, m; R$ r' R  ^3 o
   
6. x1 <- c(x[2],x[22]);0 X6 i% p( n) X( ~) X7 W
   
7. y1 <- c(y[2],y[22]);
   $ ~5 w) d' u; F8 J, O6 O% N
8. lines(x1,y1,lty=1,lwd=5,col=8);# S& J9 H& d1 \6 i
   
9. x2 <- c(x[26],x[40]);
   # X8 o  m) w. L+ Y0 i6 I3 ?% a
10. y2 <- c(y[26],y[40]);
    & H. I! _2 {9 |4 ^$ C; F
11. lines(x2,y2,lty=1,lwd=5,col=8);* [: Z\" S8 r: K' s- }% ^$ b9 p
    
12. x3 <- c(x[45],x[96]);( d! `  |\" ^7 t5 O/ I
    
13. y3 <- c(y[45],y[96]);
    8 J) x7 c( u  t$ u. k\" V- F; Q
14. lines(x3,y3,lty=1,lwd=5,col=8);
    ) J3 |- c5 J; q; u- }% @* b; W
15. axis(side=1,at=seq(10,100,by=10),labels=c(" ","0"," ","20"," ","40"," ","60"," ","80"));
    2 e9 k* ]+ e  {/ f2 ^
16. axis(side=1,col="red",col.axis="red",at=seq(4,10,by=1),labels=c("14"," "," "," "," "," "," "));2 ^# ]9 X: z\" H0 B8 T/ [
    
17. axis(side=1,col="red",col.axis="red",at=c(10),labels=c("20"));: P1 ^0 w! S6 K+ l! N) Z+ |7 X& x
    
18. axis(side=2,at=seq(0,100,by=25),labels=c(" ","0.4","0.5","0.6","0.7"));, B9 C\" U/ {% X, W) _, G: _. i
    

复制代码

把这代码打进去试试

一路顺风-顺顺

冰域逐梦 发表于 2012-9-5 18:36
4 |" Z: d; l- n7 V把这代码打进去试试

; \$ c- f, |5 H  c/ v<- 这个是干嘛的，不明白。。。。

冰域逐梦

一路顺风-顺顺 发表于 2012-9-5 18:44

画出那个图的第一部分