根据R中的行值为dataframe中的每一行赋值

# 创建一个空的dataframe
df <- data.frame(matrix(ncol = 2, nrow = 0))
colnames(df) <- c("Column1", "Column2")

# 创建一个包含行值的向量
row_values <- c(10, 20, 30, 40)

# 循环遍历每一行，根据行值为dataframe中的每一行赋值
for (i in 1:length(row_values)) {
  df[i, "Column1"] <- row_values[i]
  df[i, "Column2"] <- row_values[i] * 2
}

# 打印结果
print(df)

# 创建一个空的dataframe
df <- data.frame(matrix(ncol = 2, nrow = 0))
colnames(df) <- c("Column1", "Column2")

# 创建一个包含行值的向量
row_values <- c(10, 20, 30, 40)

# 使用apply函数，根据行值为dataframe中的每一行赋值
df <- as.data.frame(t(apply(df, 1, function(x) {
  x["Column1"] <- row_values[x["row"]]
  x["Column2"] <- row_values[x["row"]] * 2
  return(x)
})))

# 打印结果
print(df)