R语言barplot中cex.lab参数失效排查及数值关联渐变色设置求助

一、cex.lab参数无效的原因及修正 #

你遇到的问题有两个核心点：

• cex.lab是用来设置坐标轴标题（比如x轴上方的"Brand"文字）的字体大小，而你要调整的是x轴上的类别刻度标签（品牌名称），应该用cex.axis参数。
• 代码里的carl$Brand是笔误，需改为car$Brand，否则会因对象不存在报错。

修正后的代码：

library(forcats)
car$Brand <- factor(car$Brand) %>% fct_infreq()

# 用cex.axis调整x轴标签字体大小
plot(car$Brand, las=2, col= "dark blue", ylim=c(0,35), cex.axis=0.2)

二、实现颜色随频数从深蓝到浅蓝渐变 #

要实现这个效果，需先获取每个品牌的频数，再基于频数生成渐变颜色：

1. 提取排序后的品牌频数
2. 用colorRampPalette生成从深蓝到浅蓝的渐变颜色序列
3. 将颜色对应到每个条形上

完整代码示例：

library(forcats)
library(grDevices)

# 处理品牌因子并按频数排序
car$Brand <- factor(car$Brand) %>% fct_infreq()
# 获取每个品牌的频数
brand_counts <- table(car$Brand)
# 生成深蓝到浅蓝的渐变颜色
color_grad <- colorRampPalette(c("darkblue", "lightblue"))(length(brand_counts))

# 绘制带渐变颜色的条形图，cex.axis调整x轴标签大小
barplot(brand_counts, las=2, col=color_grad, ylim=c(0,35), cex.axis=0.2, xlab="Brand", ylab="Count")

注：这里用barplot替代plot.factor，是因为它能更直接地控制颜色与频数的对应关系，效果更稳定。

内容的提问来源于stack exchange，提问作者adam