1

这是我的可重现代码示例。除了没有添加轴标题/标签外，所有内容在图表中看起来都应该如此。尽管遵循了函数文档中的说明，但我真的很难弄清楚如何修复它。帮助将不胜感激 - 在此先感谢。

output <- matrix(data = c(0.7,0.5,0.3,0.8,0.6,0.4,0.9,0.7,0.5,1,0.8,0.6),nrow=3,
                   ncol=4)

# Change column names
colnames(output) <- c(10,20,30,40)


# Change row names
rownames(output) <- c(1,2,3)

library(gplots)

matrix.axes <- function(data) {
        # Do the rows, las=2 for text perpendicular to the axis
        x <- (1:dim(data)[1] - 1) / (dim(data)[1] - 1);
        axis(side=1, at=x, labels=rownames(data), las=1);
        # Do the columns
        x <- (1:dim(data)[2] - 1) / (dim(data)[2] - 1);
        axis(side=2, at=x, labels=colnames(data), las=2);
}

# Not necessary to save as pdf unless this is part of the problem
# save to pdf
# pdf("C:/Test.pdf")

# Plot results
filled.contour(output,plot.title=title(main="Method"),
                       xlab='Case number',ylab='Sample number',
                       plot.axes=matrix.axes(output))


# dev.off()
4

1 回答 1

1

您xlab =和ylab =需要在函数内部plot.title()：

filled.contour(output,
  plot.title = title(main = "Method", xlab='Case number',  ylab='Sample number'),
plot.axes = matrix.axes(output))
于 2015-12-15T12:00:57.317 回答