在R中设置默认绘图值

Question

我试图为功能的图形绘制设置默认参数。但是，每当我将矢量分配给col时，我都会收到错误graphical parameter "col" has the wrong length。

我尝试的代码：

par(col=c("#000", "#ccc"), font.lab=2, col.axis="#404040") 

我希望输出一个黑色和浅灰色的条形图，其轴标签以粗体和深灰色显示。

例如，以下代码（从下面的lukeA借用）生成灰度示例，而不是彩色。字体也不是粗体。

par(font.lab=2, fg="#404040", bg="#ffffff") 
# Defining palette plot colours = NOT gray scale
palette(c("paleturquoise3", "palegreen3"))

set.seed(1)

tRegion <- table(Region = sample(1:3, size = 50, replace = TRUE), 
                 Variant = sample(LETTERS[1:2], size = 50, replace = TRUE))

barplot(t(tRegion), main="Distribution of variant and region",
        xlab="Region", legend = rownames(t(tRegion)))

输出如下：

没有粗体字体，也没有颜色。

Answer 1

试试这个

par(font.lab=2, col.axis="#404040") 
palette(c("#000000", "#cccccc"))
barplot(1:2, col = 1:2, names.arg = 1:2, xlab = "1", ylab = "2")

修改：

关于你的评论 - 对我有用：

par(font.lab=2, col.axis="#404040") 
palette(c("paleturquoise3", "palegreen3"))
set.seed(1)
tRegion <- table(Region = sample(1:3, size = 50, replace = TRUE), 
                 Variant = sample(LETTERS[1:2], size = 50, replace = TRUE))
barplot(t(tRegion), main="Distribution of variant and region",beside = TRUE,
        col = seq_len(ncol(tRegion)), xlab="Region", legend = rownames(t(tRegion)))