用R语言，随机生成100个学生，学号范围2021001～2021100。并随机生成高数，英语，网站开发三科成绩，成绩取整，高数为均匀随机分布数，都在75以上。英语为正态分布，平均成绩为80，标准差7。网站开发正态分布，平均83，标准差18。正态分布中超过100的成绩变成100。

你可以使用R语言来实现这个需求。以下是一个示例代码：

# 设置学号范围
start_year <- 2021
start_id <- seq(from = start_year * 10000 + start_id,
                  to = start_year * 10000 + end_id)

# 高数成绩（均匀分布在75分及以上）
math_scores <- sample(75:100, size = length(student_ids), replace = TRUE)

# 英语成绩（正态分布，平均80，标准差7）
english_scores <- round(rnorm(length(student_ids), mean = 80, sd = 7))

# 网站开发成绩（正态分布，平均83，标准差18，超过100设为100）
web_dev_scores <- round(rnorm(length(student_ids), mean = 83, sd = 18))
web_dev_scores[web_dev_scores > 100] <- 100

# 结果存储为data.frame
students_data <- data.frame(StudentID = student_ids,
                            MathScore = math_scores,
                            EnglishScore = english_scores,
                            WebDevScore = web_dev_scores)

这段代码首先创建了一个从2021001到2021100的学生ID序列，然后生成高数成绩，英语成绩采用正态分布，网站开发成绩也采用正态分布但限制在100分以内。结果保存在一个名为`students_data`的数据框中，方便后续的统计分析。