R：使绘图轴如直方图中所示

我希望常规

plot（）

函数中的y轴从绘图区域的底部开始，类似于

hist（）

函数。换句话说，我希望两个轴的零处于同一水平。这是我的工作示例

set.seed(1)
data <- data.frame(
  type = as.factor(sample(c('A', 'B', 'C'), size = 100, replace = T)),
  value = rexp(100, 1/3)
)
plot(data$type)
par(new=TRUE)
plot(tapply(data$value, data$type, mean), 
     xaxt="n", yaxt="n", xlab="", ylab="", 
     xlim=c(0.55,3.45), ylim=c(0, 5), bty='n', pch=24, bg='black')
axis(4)

set.seed（1）
数据找到一个变异

在第一个绘图中设置
ylim

试一试

找到一个变体

在第一个绘图中设置
ylim

试一试

plot(data$type, yaxs = 'i',ylim=c(0,max(apply(data, 2, table)[[1]])))
par(new=TRUE)
plot(tapply(data$value, data$type, mean), 
     xaxt="n", yaxt="n", xlab="", ylab="", 
     xlim=c(0.55,3.45), ylim=c(0, 5), bty='n', pch=24, bg='black',yaxs = 'i')
axis(4)
axis(1,at=c(0,5)) #only for show that one lvl