如何在R中切换向量中的每两个元素？

# 创建一个示例向量
vector <- c(1, 2, 3, 4, 5, 6)

# 获取向量的长度
length <- length(vector)

# 切换每两个元素的位置
switched_vector <- vector[c(2:(length - 1) %% 2 == 0, 1)]

# 输出结果
print(switched_vector)

# 创建一个示例向量
vector <- c(1, 2, 3, 4, 5, 6)

# 获取向量的长度
length <- length(vector)

# 切换每两个元素的位置
switched_vector <- vector
for (i in 1:(length - 1) %/% 2) {
  temp <- switched_vector[i * 2]
  switched_vector[i * 2] <- switched_vector[i * 2 + 1]
  switched_vector[i * 2 + 1] <- temp
}

# 输出结果
print(switched_vector)