R图和柱状图如何修复ylim不同？

# 创建一个示例数据
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(50, 80, 120, 90)
)

# 绘制柱状图
barplot(data$value, names.arg = data$category, ylim = c(0, 150), 
        xlab = "Category", ylab = "Value", main = "Barplot Example")

# 使用coord_cartesian修复ylim不同的问题
library(ggplot2)
ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  coord_cartesian(ylim = c(0, 150)) +
  labs(x = "Category", y = "Value", title = "Barplot Example")

# 使用scale_y_continuous修复ylim不同的问题
ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  scale_y_continuous(limits = c(0, 150), breaks = seq(0, 150, 20), 
                     labels = seq(0, 150, 20)) +
  labs(x = "Category", y = "Value", title = "Barplot Example")