【R画图，怎样将两个图合并】

那个函数内的局部变量全局赋值，sapply,写法比较优美

此外感觉也可以直接向量化。
0 +一个数， 为此数
NA +一个数 （包括0）， 为 NA

楼主原始数据 一半一半为NA,而没有用 0 来表示，可能觉得0，还是一个实实在在的数字，但做加法的时候，0可以算为占个座位。

1. require(lattice)
   
2. data1 <- read.table("r_lower.txt")
   
3. data2<- read.table("p_upper.txt")
   
4. data1[data1>-0.5 & data1<0.5] <- NA
   
5. data2[data2>0.05] <- NA
   
6. 
   
7. data1[upper.tri(data1)]=0
   
8. data2[lower.tri(data2,diag=T)]=0
   
9. 
   
10. data3<-data1+data2
    
11. data3<-as.matrix(data3)
    
12. levelplot(data3)

复制代码

请问楼主，这张图的目的或结果是为了什么呀？很漂亮，也想学习一下

好吧。。挖坟的。。不过我推荐用ggplot2画，图层叠加一个+号就搞定

tmdxyz 发表于 2014-1-14 20:28
谢谢您！不过，
（1）能否做成像10楼那样的具有镂空效果的color key？
（2）还有，横轴那些标注刻度的文 ...

最后这样的图你解决了嘛？能不能分享一下解决方案？

tmdxyz 发表于 2014-1-14 20:28
谢谢您！不过，
（1）能否做成像10楼那样的具有镂空效果的color key？
（2）还有，横轴那些标注刻度的文 ...

最后这样的图你解决了嘛？能不能分享一下解决方案？