#丢弃票价为空的记录 delet_na <- data[-which(is.na(data$SUM_YR_1) |is.na(data$SUM_YR_2)),] #丢弃票价为0、平均折扣率不为0、总飞行公里数大于0的记录 index <- ((delet_na$SUM_YR_1 == 0 & delet_deletdata = delet_na[-which(index == 1),] #保存清洗后的数据 cleanedfile= deletdata这个代码哪里出错
时间: 2024-03-05 18:48:45 浏览: 30
这个代码有一些语法错误和逻辑错误。可能是因为你在复制代码时发生了一些错误。以下是我找到的错误和修正建议:
1. 在 `delet_na` 变量的最后一个括号中,多了一个 `)`,需要删除。
2. 在 `delet_na` 变量的最后一个括号之后,缺少一个 `|`。
3. 在 `delet_na` 变量和 `deletdata` 变量之间的赋值号 `=` 应该是一个 `-`,因为你想要删除记录。
4. 在 `deletdata` 变量的赋值语句中,变量名不一致,应该改为 `delet_na`。
5. 在 `deletdata` 变量的赋值语句中,多了一个 `delet`,需要删除。
6. 在 `cleanedfile` 变量的赋值语句中,变量名不一致,应该改为 `deletdata`。
修正后的代码如下:
```
#丢弃票价为空的记录
delet_na <- data[-which(is.na(data$SUM_YR_1) | is.na(data$SUM_YR_2)),]
#丢弃票价为0、平均折扣率不为0、总飞行公里数大于0的记录
index <- ((delet_na$SUM_YR_1 == 0 & delet_na$SUM_YR_2 == 0) | delet_na$AVG_DISCOUNT != 0 | delet_na$SEG_KM_SUM == 0)
deletdata <- delet_na[-which(index == TRUE),]
#保存清洗后的数据
cleanedfile <- deletdata
```
希望这可以帮助你解决问题。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)