在 R studio 中使用 plot.pheno 函数更改直方图颜色？答案

【问题标题】：Change histogram color with plot.pheno function in R studio?在 R studio 中使用 plot.pheno 函数更改直方图颜色？
【发布时间】：2017-05-18 00:37:01
【问题描述】：

我使用 R/QTL 包中的 plot.pheno 函数生成了一个直方图。我无法改变条形的填充颜色。我已经粘贴了我尝试过的代码，但它们没有工作。有没有人知道如何在 plot.pheno 函数中改变条形颜色？作为参考，条形颜色默认为白色。

plot.pheno(myData, pheno.col = 8, xlab = "My Y Label", ylab = "My X Label", xlim=c(79,123), ylim=c(0,45), breaks = seq(76, 124, by = 4), col = "black")

plot.pheno(myData, pheno.col = 8, xlab = "My Y Label", ylab = "My X Label", xlim=c(79,123), ylim=c(0,45), breaks = seq(76, 124, by = 4), col = black)

plot.pheno(myData, pheno.col = 8, xlab = "My Y Label", ylab = "My X Label", xlim=c(79,123), ylim=c(0,45), breaks = seq(76, 124, by = 4), col = I("black"))

#This one gives the error: "color is not a graphical parameter"
plot.pheno(myData, pheno.col = 8, xlab = "My Y Label", ylab = "My X Label", xlim=c(79,123), ylim=c(0,45), breaks = seq(76, 124, by = 4), color="black")

【问题讨论】：

请提供一个可重现的最小示例，例如粘贴dput(myData) 的输出或子集，以便我们运行您的代码。

标签： r plot histogram

【解决方案1】：

plot.pheno 的代码中似乎存在错误，或者作者认为该功能不值得包含，因为填充颜色被硬编码为白色。

虽然这听起来很糟糕，但好在这是开源的，而且plot.pheno 是用纯 R 编写的，所以很容易编辑函数并将其保存为新名称。

library(qtl); data(fake.bc)

plot.pheno2 <- plot.pheno
body(plot.pheno2)[[10]][[3]][[2]][[4]] <- NULL
environment(plot.pheno2) <- asNamespace("qtl")

plot.pheno2(fake.bc, col="black")

body(plot.pheno2)[[10]][[3]][[2]][[4]] <- NULL 中发生的事情是元素 , col = "white" 被简单地删除了。这可以通过以下方式手动完成：

plot.pheno2 <- edit(plot.pheno)
# edit out ', col = "white"', save and close the window
environment(plot.pheno2) <- asNamespace("qtl")

【讨论】：