如何在R中绘制离散密度函数

# 创建离散数据
data <- c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5)

# 绘制离散密度函数图形
plot(density(data), type = "h", lwd = 2, col = "blue", main = "离散密度函数图")

# 添加平滑曲线
lines(density(data), lwd = 2, col = "red")

# 安装并加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建离散数据的数据框
data <- data.frame(value = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5))

# 绘制离散密度函数图形
ggplot(data, aes(x = value)) +
  geom_histogram(aes(y = ..density..), binwidth = 1, fill = "lightblue", color = "black") +
  geom_density(color = "red") +
  labs(title = "离散密度函数图") +
  theme_minimal()