在r中更进一步的子设置值

# 创建一个向量
vec <- c(1, 2, 3, 4, 5)

# 子设置值，将第3个元素修改为10
vec[3] <- 10
# 输出修改后的向量
print(vec)  # [1]  1  2 10  4  5

# 子设置值，将第1到第3个元素修改为20、30、40
vec[1:3] <- c(20, 30, 40)
# 输出修改后的向量
print(vec)  # [1] 20 30 40  4  5

# 子设置值，根据逻辑条件将大于2的元素修改为100
vec[vec > 2] <- 100
# 输出修改后的向量
print(vec)  # [1]  20  30 100   4   5

# 创建一个数据框
df <- data.frame(A = c(1, 2, 3), B = c("a", "b", "c"))

# 子设置值，将第2行第1列的元素修改为10
df[2, 1] <- 10
# 输出修改后的数据框
print(df)
#   A B
# 1 1 a
# 2 10 b
# 3 3 c

# 子设置值，将列名为"B"的列修改为全为"hello"的字符向量
df[["B"]] <- "hello"
# 输出修改后的数据框
print(df)
#    A     B
# 1  1 hello
# 2 10 hello
# 3  3 hello

# 子设置值，根据逻辑条件将第一列大于2的行的第二列修改为"world"
df[df$A > 2, "B"] <- "world"
# 输出修改后的数据框
print(df)
#    A     B
# 1  1 hello
# 2 10 world
# 3  3 world