替换R中csv文件中一列中的几个字符

juancda4

我有一个像这样的 csv 文件：

> collar<-read.csv("41361_predicted_by_41365_cluster.csv",header=TRUE,stringsAsFactors = F)
> head(collar)
        observed      predicted probability
1 Moving/Feeding       Standing           1
2       Standing Feeding/Moving           1
3       Standing Feeding/Moving           1
4       Standing Feeding/Moving           1
5       Standing Feeding/Moving           1
6       Standing Feeding/Moving           1

我的问题很简单但有点难以实现，因为我正在学习 R。我只需要在列中进行以下字符替换predicted：

1) 替换Feeding/Moving为Standing

2）替换Moving/Feeding为Feeding/Moving

3）替换Standing为Moving/Feeding

然后我想使用 name 以 csv 格式写入数据"corrected_41361_predicted_by_41365_cluster"。

我正在寻找最紧凑的方式来做到这一点。有什么不同的方式gsub()吗？任何输入表示赞赏！

洪佩尔茨琴

像那样？（我稍微改变了你的样本，包括“移动/喂食”）

library(dplyr)

df %>%
  mutate(predicted = case_when(predicted == 'Feeding/Moving' ~ 'Standing',
                               predicted == 'Moving/Feeding' ~ 'Feeding/Moving',
                               predicted == 'Standing' ~ 'Moving/Feeding',
                               TRUE ~ predicted)) %>%
 write.csv(file = "corrected_41361_predicted_by_41365_cluster.csv")

该文件包含结果：


        observed      predicted probability
1 Moving/Feeding Moving/Feeding           1
2       Standing       Standing           1
3       Standing       Standing           1
4       Standing       Standing           1
5       Standing Feeding/Moving           1
6       Standing       Standing           1

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。