在R中读取csv时列值的变化

Question

我有一个csv文件，其数据如下：

现在，第三列Transaction具有String元素。 现在，我想将值Dr.更改为（0）和Cr。 （1），同时使用read.csv在R中导入此csv。 这在R中是可行的还是在读取csv时我可以包括在列中进行更改的任何技巧，或者我需要编写一个函数来读取该特定列，然后将其值更改为Dr.（0）和Cr。 （1）

Answer 1

正如@Stephan在他的答案中所示， as.numeric(logical)在这种情况下效果很好（ ifelse也会ifelse ），但是如果您发现自己处于Transaction可以有两个以上值的情况，则可以创建一个命名向量用作映射

x <- c("Dr.", "Cr.", "Er.", "Cr.")
c(Dr.=0, Cr.=1, Er.=2)[x]
#Dr. Cr. Er. Cr. 
#  0   1   2   1

为了使其看起来更像您的示例...

dat <- read.csv("/path/to/file", header=TRUE)
transform(dat, Transaction=c(Dr.=0, Cr.=1)[as.character(Transaction)]) 

---

如果您自己创建类，也可以使用colClasses=参数来执行此操作。

## Sample data
Lines <- "V1,V2
0,Cr.
1,Dr.
2,Cr.
3,Dr.
"

# create a class
setClass("CrDr")
setAs("character", "CrDr", function(from) c(Cr.=1,Dr.=0)[from])
read.csv(text=Lines, colClasses=c("numeric","CrDr"))
#  V1 V2
#1  0  1
#2  1  0
#3  2  1
#4  3  0

Answer 2

您无法在读取数据时执行此操作，但是一旦读取数据，替换就很简单了：

> Transaction <- factor(sample(c("Dr.","Cr."),10,replace=TRUE))
> Transaction
 [1] Dr. Cr. Cr. Dr. Dr. Cr. Dr. Dr. Dr. Dr.
Levels: Cr. Dr.
> Transaction <- as.numeric(Transaction=="Cr.")
> Transaction
 [1] 0 1 1 0 0 1 0 0 0 0