在 R 中设置默认绘图值
Set default plotting values in R
我正在尝试为函数的图形绘制设置默认参数。但是,每当我将向量分配给 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)))
输出结果如下:
没有粗体,也没有颜色。
试试这个
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)))
我正在尝试为函数的图形绘制设置默认参数。但是,每当我将向量分配给 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)))
输出结果如下:
没有粗体,也没有颜色。
试试这个
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)))