图像中的R轴标签 [英] r- axis label in image

问题描述

我需要按呼叫中心中的空间位置绘制度量图表。 我用R写了一个小例子：

tt<-data.frame(a1=c(0.4,.5,.5,.7),a2=c(.5,.6,.7,.8), a3=c(.8,.7,.9,.8))
row.names(tt)<-paste("L", 1:4, sep='')
tt<-as.matrix(tt)
tt

所以我的矩阵是：

> tt
    a1  a2  a3
L1 0.4 0.5 0.8
L2 0.5 0.6 0.7
L3 0.5 0.7 0.9
L4 0.7 0.8 0.8

我已尝试：

palette <- colorRampPalette(c('#f0f3ff','#0033BB'))(256)
library(fields)
image.plot(t(tt[rev(order(row.names(tt))),]),col = palette, axes=F ,
       lab.breaks=NULL)

我必须转置矩阵并重新排序，因为我想要您在表中读取矩阵的方式。

所以我得到：

我需要在每个方块旁边添加行名和列名。例如，左上平方应在左侧具有"L1"，在顶部具有"A1"。

我还想将每个方块中的值相加。

我尝试了AXIS()，但得到了错误的结果。我是用R绘制图表的新手，因此如果有任何帮助，我将不胜感激。

推荐答案

我认为您使用ggPlot会更愉快--它使这类事情变得简单，不容易出错，而且绘图代码更具可读性。为此，您需要将数据保存在一个数据帧中，并将其转换为"长格式"(这里我使用的是来自reshape2包的熔化，但您也可以先以这种形式设置数据帧)。试试这个：

library(ggplot2)
library(reshape2)

tt<-data.frame(a1=c(0.4,.5,.5,.7),a2=c(.5,.6,.7,.8), a3=c(.8,.7,.9,.8))
tt$row <- paste("L", 1:4, sep='')
tt_melt <- melt(tt)

ggplot(data=tt_melt,
       aes(x=variable, y=row, fill=value)) + geom_tile() + 
       geom_text(aes(label=value), color='white') + theme_bw()

gglot还允许您根据需要控制颜色比例。如果您打算在R中进行绘图，那么花几个小时学习gglot是非常值得的！

这篇关于图像中的R轴标签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！