如何绘制R中的理论帕累托分布？

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

x <- seq(0, 10, by = 0.1)  # 定义横轴范围
alpha <- 2  # 定义形状参数
lambda <- 1  # 定义尺度参数
pdf <- dpareto(x, shape = alpha, scale = lambda)  # 计算概率密度函数
cdf <- ppareto(x, shape = alpha, scale = lambda)  # 计算累积分布函数

plot(x, pdf, type = "l", lwd = 2, col = "blue", xlab = "X", ylab = "Density", main = "Theoretical Pareto Distribution")

plot(x, cdf, type = "l", lwd = 2, col = "red", xlab = "X", ylab = "Cumulative Probability", main = "Theoretical Pareto Distribution")