使用自己的数据集计算压力机统计数据在R中产生错误

# 加载数据
pressure_data <- read.csv("path_to_your_data.csv")

# 检查数据类型和缺失值
str(pressure_data)
is.na(pressure_data)

# 清理数据
pressure_data$reading <- as.numeric(pressure_data$reading)
pressure_data <- na.omit(pressure_data)

# 计算统计数据
mean_reading <- mean(pressure_data$reading)
sd_reading <- sd(pressure_data$reading)
max_reading <- max(pressure_data$reading)
min_reading <- min(pressure_data$reading)

# 输出结果
print(paste("均值:", mean_reading))
print(paste("标准差:", sd_reading))
print(paste("最大值:", max_reading))
print(paste("最小值:", min_reading))