Question

我正在处理一个名为Clutch的数据框，其中包含有关交易卡游戏中卡的信息。变量之一CMD +可以包含以下值：

"R+1"
"L+1"
"R+2"
"L+2"
0

我想要做的是创建一个新的变量Clutch $ C +，该变量将每个数据点的这些字符串值替换为数字。 R + 1和L + 1替换为0.5，R + 2和L + 2替换为1。0不变。

我该怎么做？抱歉，如果这是一个基本问题，我的R技能目前还不太好，正在努力变得更好。

Answer 1

您可以尝试：

paste0(as.numeric(gsub("\\D", "\\1", x))/2, sub("\\D", "\\1", x))

[1] "0.5+1" "0.5+1" "1+2"   "1+2"

Answer 2

可能不是最漂亮的解决方案，但这应该可行。

C<-rep(0,length(Clutch$CMD))
Clutch<-cbind(Clutch,C)
Clutch$C+[which(Clutch$CMD+=="R+1")]<-0.5
Clutch$C+[which(Clutch$CMD+=="L+1")]<-0.5
Clutch$C+[which(Clutch$CMD+=="R+2")]<-1

Answer 3

这是一种使用以下事实的方法：结果是字符串中数字的一半：

Clutch <- data.frame(`CMD+` = sample(c("R+1", "L+1", "R+2", "L+2", 0), 10, replace = TRUE))

Clutch[["C+"]] <- as.numeric(gsub("[^0-9]", "", Clutch$CMD))/2

Clutch

> Clutch
   CMD.  C+
1   R+1 0.5
2   R+2 1.0
3   R+1 0.5
4   L+1 0.5
5   L+1 0.5
6   R+1 0.5
7   R+1 0.5
8   L+1 0.5
9     0 0.0
10  L+1 0.5

Answer 4

您可以简单地使用gsub

> as.numeric(gsub(".*[+]","",a))/2
[1] 0.5 0.5 1.0 1.0 0.0

如果是data frame。您可以使用此-

> library(data.table)
> dt <- data.frame(CMD = c("R+1", "L+1", "R+2", "L+2", 0))
> setDT(dt)[,CMD:=as.numeric(gsub(".*[+]","",a))/2]
> dt
   CMD
1: 0.5
2: 0.5
3: 1.0
4: 1.0
5: 0.0

Answer 5

另一个想法是使用一个简单的ifelse语句，该语句在字符串中查找1并替换为0.5，而2替换为1，即

#where x is your column,

as.numeric(ifelse(grepl('1', x), 0.5, ifelse(grepl('2', x), 1, x)))
#[1] 0.5 0.5 1.0 1.0 0.0

如何用数字替换特定的字符串？

5 个答案: