4、运用plot函数，以利用rnorm函数生成多个数据集为基础，针对每列数据，画出折线图、散点图、箱线图、柱状图和茎叶图（请按照数据的特点，进行相应的数据处理后进行画图）。

4、运用plot函数，以利用rnorm函数生成多个数据集为基础，针对每列数据，画出折线图、散点图、箱线图、柱状图和茎叶图（请按照数据的特点，进行相应的数据处理后进行画图）。

# 生成数据集
set.seed(123)
data <- data.frame(
  A = rnorm(100, mean = 0, sd = 1),
  B = rnorm(100, mean = 2, sd = 1),
  C = rnorm(100, mean = -2, sd = 1)
)

# 折线图
plot(data$A, type = "l", xlab = "Index", ylab = "Value", main = "Line Plot")

# 散点图
plot(data$B, data$A, xlab = "B", ylab = "A", main = "Scatter Plot")

# 箱线图
boxplot(data, main = "Boxplot")

# 柱状图
barplot(colMeans(data), main = "Bar Plot")

# 茎叶图
stem(data$C)

5、利用iris数据集进行K-means聚类，并画出聚类图。