基于条件交换Excel表格中place_x与place_y列的值（R实现）

需求：调整Excel表格内特定单元格的位置，现有place_x和place_y两列坐标数据存在错误，需逐行规范数据：当place_x列单元格值大于30时，交换该行place_x与place_y的数值。

待修改的Excel表格示例 #

尝试的代码 #

####### 设置工作路径相关 #####

# 若未安装相关包则安装
install.packages("Rtools") # 注：Rtools通常用于编译R包，若仅使用readxl和openxlsx可无需安装
install.packages("readxl")
install.packages("openxlsx")

# 加载openxlsx包
library(openxlsx)

# 加载readxl包
library(readxl)

# 指定Excel文件路径
data <- read_excel("Example.xlsx")

# 定义条件：place_x大于30
condition <- data$place_x > 30

# 满足条件时交换place_x和place_y的值
temp <- data[condition, "place_x"]
data[condition, "place_x"] <- data[condition, "place_y"]
data[condition, "place_y"] <- temp

# 将结果写入新Excel文件
output_file <- "INVERSE.xlsx"
write.xlsx(data, file = output_file)

期望的最终效果 #

内容的提问来源于stack exchange，提问作者Antoine Beauclaire