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

tmdxyz 发表于 2013-12-26 07:39
因为是两类数据，我想

1）有两个colorbar，其中p值在0.05-1.0之间不显示（或设置为blank），相关系数r在 ...

这样画图不太好吧，碰上个色盲的就完了。

qoiqpwqr 发表于 2013-12-26 19:29
这样画图不太好吧，碰上个色盲的就完了。

请帮帮我吧。先别管它好看不好看。实际上，R号称作图好看，那要是碰见色盲，岂不都是白搭？呵呵

唉，眼看着又要沉了。每次发帖求问都无法得到答案，悲催

图例不好调，懒了反正差不多也能用了

1. data1 <- read.table("p_upper.txt")
   
2. data1 <- as.matrix(data1)
   
3. data2 <- read.table("r_lower.txt")
   
4. data2 <- as.matrix(data2)
   
5. 
   
6. datap <- data1
   
7. datap[datap>0.05] <- NA
   
8. datar <- data2
   
9. datar[datar>-0.5 & datar<0.5] <- NA
   
10. compre_mat <- datap
    
11. sapply(1:10,function(x) compre_mat[x:10,x] <<- datar[x:10,x])
    
12. levelplot(compre_mat,colorkey=list(space="top"))

复制代码

nuomin 发表于 2014-1-14 19:00
图例不好调，懒了反正差不多也能用了

谢谢您！不过，
（1）能否做成像10楼那样的具有镂空效果的color key？
（2）还有，横轴那些标注刻度的文字若字数较多，这样旋转呢？
期待您的帮忙！

感觉 非这样做图怪：
   现在不是  是否色盲 的问题
             是    是否 色弱 的问题

此图中 P值的颜色  感觉都可以小于0了，非常的弱，而且越小于0，颜色越深，    没有  显著  的一点要素
####################################################################怎么下面的3个图 就删不掉了呢？误操作！！！！

jmpamao 发表于 2014-1-14 21:17
感觉 非这样做图怪：
   现在不是  是否色盲 的问题
             是    是否 色弱 的问题

关于图的颜色，本想试试把整个矩阵乘以10或者更大的数。

nuomin 发表于 2014-1-14 21:41
关于图的颜色，本想试试把整个矩阵乘以10或者更大的数。

0.05 到0  越接近0， 颜色越深

0到 负数， 值越小 颜色越深

这两个 颜色 感觉最好不同的好

nuomin 发表于 2014-1-14 21:41
关于图的颜色，本想试试把整个矩阵乘以10或者更大的数。

<<-   这个符号的运用 不是很了解
怎么搞？请教

jmpamao 发表于 2014-1-14 21:57

他的功能是给顶层环境的变量赋值的，超赋值函数