请生成一段R语言代码，实现以下功能。每次实验连续投掷六次骰子，当骰子朝上的点数和对应投掷次数（1-6）相等时视为实验成功，那么连续进行500次实验，作出折00次成功概率与次数的图像

# 设置投掷次数和实验次数
n_trials <- 500
n_tosses <- 6

# 定义函数，模拟一次实验
simulate_trial <- function() {
tosses <- sample(1:6, n_tosses, replace = TRUE)
if (any(tosses == 1:n_tosses)) {
return(1)
} else {
return(0)
}
}

# 模拟500次实验
trial_results <- replicate(n_trials, simulate_trial())

# 计算每次投掷次数和成功概率
tosses <- seq(1, n_tosses)
success_prob <- cumsum(trial_results) / seq(1, n_trials)

# 绘制折线图
plot(tosses, success_prob, type = "o", xlab = "Number of Tosses", ylab = "Success Probability")