如何用Base R编写函数，依变量类型自动生成直方图或柱状图

下面是一个完全基于Base R的函数，能够根据输入变量的类型自动生成直方图（定量变量）或柱状图（分类变量）：

auto_plot <- function(x) {
  # 识别定量变量（数值/整数型）并绘制直方图
  if (is.numeric(x) || is.integer(x)) {
    hist(x, 
         main = paste("直方图：", deparse(substitute(x))),
         xlab = deparse(substitute(x)),
         col = "lightblue",
         breaks = "Sturges") # 使用Sturges规则自动确定组距
  } 
  # 识别分类变量（因子/字符型）并绘制柱状图
  else if (is.factor(x) || is.character(x)) {
    freq_table <- table(x)
    barplot(freq_table,
            main = paste("柱状图：", deparse(substitute(x))),
            xlab = deparse(substitute(x)),
            ylab = "频数",
            col = "lightgreen")
  } 
  # 处理不支持的变量类型
  else {
    stop("仅支持数值型、整数型、因子型或字符型变量")
  }
}

函数逻辑说明 #

• 定量变量判断：通过is.numeric()和is.integer()识别数值/整数类型，调用Base R的hist()生成直方图，自动使用变量名作为标题和横轴标签，同时用breaks = "Sturges"优化组距。
• 分类变量处理：对因子或字符类型变量，先通过table()统计各类别的频数，再用barplot()生成柱状图，纵轴默认显示频数。
• 错误处理：如果输入变量不属于支持的类型，直接抛出明确的错误提示。

测试示例 #

# 测试数值型变量（正态分布随机数）
num_data <- rnorm(150)
auto_plot(num_data)

# 测试字符型变量（随机分类）
char_data <- sample(c("苹果", "香蕉", "橙子"), 150, replace = TRUE)
auto_plot(char_data)

# 测试因子型变量（有序分类）
factor_data <- factor(sample(c("不及格", "及格", "良好", "优秀"), 150, replace = TRUE),
                      levels = c("不及格", "及格", "良好", "优秀"))
auto_plot(factor_data)

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