ifelse grepl() 一次超过 50 行？
ifelse grepl() more than 50 rows at once?
我正在尝试整理一些数据。我尝试将随机字符串分类为数字。
table <- "x count
1 k
2 2k
3 k1e
4 k2e
5 2k1e
6 k2
7 ke
8 k3e
9 1ek
10 ek
11 x2k
12 xk2e
13 xk1e
14 k2e1m
15 xk
16 1mk1e
17 k1m
18 k1e1m
19 1ek1m
20 k2m
21 1mk
22 xk1m
23 k1e2
24 1e
25 x
26 x1m
27 f1m
28 fk
29 f
30 fk1m
31 ff
32 ff2m
33 f2m
34 2m
35 1m
36 2s
37 f2k
38 ffk1m
39 f2k1m
40 kx
41 xxk
42 2k2e
43 k1m2
44 kf1m
45 1k1e
46 1k2e
47 1k1e1m
48 1k1m
49 1k2m
50 1k1d
51 2k1m
52 3k
53 kk
54 2k2m
55 2kk
56 kk1e
57 2kx
58 xk2k
59 x2k2e
60 k1e2m
61 k1mk
62 k3m
63 k2x
64 k1me
65 xk2m
66 1mfl
67 3m
68 fk2m
69 fk1e
70 fk1e1m
71 ffkk
72 xkf1m
73 ffk"
#Create a dataframe with the above table
df <- read.table(text=table, header = TRUE)
df
这是嵌套的 ifelse 语句：
df$new <- ifelse(grepl("k", df$old, ignore.case = T), "1",
ifelse(grepl("2k", df$old, ignore.case = T), "2",
ifelse(grepl("k1e", df$old, ignore.case = T), "1",
ifelse(grepl("k2e", df$old, ignore.case = T), "1",
ifelse(grepl("2k1e", df$old, ignore.case = T), "2",
ifelse(grepl("k2", df$old, ignore.case = T), "2",
ifelse(grepl("ke", df$old, ignore.case = T), "1",
ifelse(grepl("k3e", df$old, ignore.case = T), "1",
ifelse(grepl("1ek", df$old, ignore.case = T), "1",
ifelse(grepl("ek", df$old, ignore.case = T), "1",
ifelse(grepl("x2k", df$old, ignore.case = T), "2",
ifelse(grepl("xk2e", df$old, ignore.case = T), "1",
ifelse(grepl("xk1e", df$old, ignore.case = T), "3",
ifelse(grepl("k2e1m", df$old, ignore.case = T), "1",
ifelse(grepl("xk", df$old, ignore.case = T), "2",
ifelse(grepl("1mk1e", df$old, ignore.case = T), "1",
ifelse(grepl("k1m", df$old, ignore.case = T), "2",
ifelse(grepl("k1e1m", df$old, ignore.case = T), "1",
ifelse(grepl("1ek1m", df$old, ignore.case = T), "2",
ifelse(grepl("k2m", df$old, ignore.case = T), "2",
ifelse(grepl("1mk", df$old, ignore.case = T), "1",
ifelse(grepl("xk1m", df$old, ignore.case = T), "2",
ifelse(grepl("k1e2", df$old, ignore.case = T), "1",
ifelse(grepl("1e", df$old, ignore.case = T), "4",
ifelse(grepl("x", df$old, ignore.case = T), "1",
ifelse(grepl("x1m", df$old, ignore.case = T), "2",
ifelse(grepl("f1m", df$old, ignore.case = T), "1",
ifelse(grepl("fk", df$old, ignore.case = T), "2",
ifelse(grepl("f", df$old, ignore.case = T), "2",
ifelse(grepl("fk1m", df$old, ignore.case = T), "1",
ifelse(grepl("ff", df$old, ignore.case = T), "2",
ifelse(grepl("ff2m", df$old, ignore.case = T), "2",
ifelse(grepl("f2m", df$old, ignore.case = T), "1",
ifelse(grepl("2m", df$old, ignore.case = T), "2",
ifelse(grepl("1m", df$old, ignore.case = T), "2",
ifelse(grepl("2s", df$old, ignore.case = T), "6",
ifelse(grepl("f2k", df$old, ignore.case = T), "2",
ifelse(grepl("ffk1m", df$old, ignore.case = T), "2",
ifelse(grepl("f2k1m", df$old, ignore.case = T), "2",
ifelse(grepl("kx", df$old, ignore.case = T), "1",
ifelse(grepl("xxk", df$old, ignore.case = T), "2",
ifelse(grepl("2k2e", df$old, ignore.case = T), "2",
ifelse(grepl("k1m2", df$old, ignore.case = T), "1",
ifelse(grepl("kf1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1e", df$old, ignore.case = T), "2",
ifelse(grepl("1k2e", df$old, ignore.case = T), "5",
ifelse(grepl("1k1e1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k2m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1d", df$old, ignore.case = T), "1",
ifelse(grepl("2k1m", df$old, ignore.case = T), "2",
ifelse(grepl("3k", df$old, ignore.case = T), "2",
ifelse(grepl("kk", df$old, ignore.case = T), "2",
ifelse(grepl("2k2m", df$old, ignore.case = T), "1",
ifelse(grepl("2kk", df$old, ignore.case = T), "2",
ifelse(grepl("kk1e", df$old, ignore.case = T), "2",
ifelse(grepl("2kx", df$old, ignore.case = T), "4",
ifelse(grepl("xk2k", df$old, ignore.case = T), "2",
ifelse(grepl("x2k2e", df$old, ignore.case = T), "2",
ifelse(grepl("k1e2m", df$old, ignore.case = T), "1",
ifelse(grepl("k1mk", df$old, ignore.case = T), "2",
ifelse(grepl("k3m", df$old, ignore.case = T), "2",
ifelse(grepl("k2x", df$old, ignore.case = T), "1",
ifelse(grepl("k1me", df$old, ignore.case = T), "2",
ifelse(grepl("xk2m", df$old, ignore.case = T), "2",
ifelse(grepl("1m(fkllenfromnestkbove)", df$old, ignore.case = T), "1",
ifelse(grepl("3m", df$old, ignore.case = T), "4",
ifelse(grepl("fk2m", df$old, ignore.case = T), "2",
ifelse(grepl("fk1e", df$old, ignore.case = T), "1",
ifelse(grepl("fk1e1m", df$old, ignore.case = T), "8",
ifelse(grepl("ffkk", df$old, ignore.case = T), "2",
ifelse(grepl("xkf1m", df$old, ignore.case = T), "1",
ifelse(grepl("ffk", df$old, ignore.case = T), "2", "Other"
)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
这会导致错误：
Error: unexpected ')' in "
输出看起来与此类似，但行数更多：
table <- "x count number
1 k 1
2 2k 2
3 k1e 1
4 k2e 1
5 2k1e 2
6 k2 2
7 ke 1
8 k3e 1
9 1ek 1
10 ek 1"
无论我添加或删除多少个括号，此错误仍然存在。我在其他网站上发现了一些讨论帖，人们遇到了这个问题，但没有解决方案。
如有任何建议，我们将不胜感激。
用您的字符串构建一个向量 (refer)，然后用您的数据测试它们
refer <- setNames(c(1:10), c("k","2k","k1e","k2e","2k1e","k2","ke","k3e","1ek","ek"))
refer
k 2k k1e k2e 2k1e k2 ke k3e 1ek ek
1 2 3 4 5 6 7 8 9 10
# your data
da <- data.frame(data=c("2k","2k","k1e","k1e","2k1e","ke","ke","k3e","k3e","k1e","ed","dqw"))
cbind(da, ids=refer[da$data])
data ids
1 2k 2
2 2k 2
3 k1e 3
4 k1e 3
5 2k1e 5
6 ke 7
7 ke 7
8 k3e 8
9 k3e 8
10 k1e 3
11 ed NA
12 dqw NA
我正在尝试整理一些数据。我尝试将随机字符串分类为数字。
table <- "x count
1 k
2 2k
3 k1e
4 k2e
5 2k1e
6 k2
7 ke
8 k3e
9 1ek
10 ek
11 x2k
12 xk2e
13 xk1e
14 k2e1m
15 xk
16 1mk1e
17 k1m
18 k1e1m
19 1ek1m
20 k2m
21 1mk
22 xk1m
23 k1e2
24 1e
25 x
26 x1m
27 f1m
28 fk
29 f
30 fk1m
31 ff
32 ff2m
33 f2m
34 2m
35 1m
36 2s
37 f2k
38 ffk1m
39 f2k1m
40 kx
41 xxk
42 2k2e
43 k1m2
44 kf1m
45 1k1e
46 1k2e
47 1k1e1m
48 1k1m
49 1k2m
50 1k1d
51 2k1m
52 3k
53 kk
54 2k2m
55 2kk
56 kk1e
57 2kx
58 xk2k
59 x2k2e
60 k1e2m
61 k1mk
62 k3m
63 k2x
64 k1me
65 xk2m
66 1mfl
67 3m
68 fk2m
69 fk1e
70 fk1e1m
71 ffkk
72 xkf1m
73 ffk"
#Create a dataframe with the above table
df <- read.table(text=table, header = TRUE)
df
这是嵌套的 ifelse 语句：
df$new <- ifelse(grepl("k", df$old, ignore.case = T), "1",
ifelse(grepl("2k", df$old, ignore.case = T), "2",
ifelse(grepl("k1e", df$old, ignore.case = T), "1",
ifelse(grepl("k2e", df$old, ignore.case = T), "1",
ifelse(grepl("2k1e", df$old, ignore.case = T), "2",
ifelse(grepl("k2", df$old, ignore.case = T), "2",
ifelse(grepl("ke", df$old, ignore.case = T), "1",
ifelse(grepl("k3e", df$old, ignore.case = T), "1",
ifelse(grepl("1ek", df$old, ignore.case = T), "1",
ifelse(grepl("ek", df$old, ignore.case = T), "1",
ifelse(grepl("x2k", df$old, ignore.case = T), "2",
ifelse(grepl("xk2e", df$old, ignore.case = T), "1",
ifelse(grepl("xk1e", df$old, ignore.case = T), "3",
ifelse(grepl("k2e1m", df$old, ignore.case = T), "1",
ifelse(grepl("xk", df$old, ignore.case = T), "2",
ifelse(grepl("1mk1e", df$old, ignore.case = T), "1",
ifelse(grepl("k1m", df$old, ignore.case = T), "2",
ifelse(grepl("k1e1m", df$old, ignore.case = T), "1",
ifelse(grepl("1ek1m", df$old, ignore.case = T), "2",
ifelse(grepl("k2m", df$old, ignore.case = T), "2",
ifelse(grepl("1mk", df$old, ignore.case = T), "1",
ifelse(grepl("xk1m", df$old, ignore.case = T), "2",
ifelse(grepl("k1e2", df$old, ignore.case = T), "1",
ifelse(grepl("1e", df$old, ignore.case = T), "4",
ifelse(grepl("x", df$old, ignore.case = T), "1",
ifelse(grepl("x1m", df$old, ignore.case = T), "2",
ifelse(grepl("f1m", df$old, ignore.case = T), "1",
ifelse(grepl("fk", df$old, ignore.case = T), "2",
ifelse(grepl("f", df$old, ignore.case = T), "2",
ifelse(grepl("fk1m", df$old, ignore.case = T), "1",
ifelse(grepl("ff", df$old, ignore.case = T), "2",
ifelse(grepl("ff2m", df$old, ignore.case = T), "2",
ifelse(grepl("f2m", df$old, ignore.case = T), "1",
ifelse(grepl("2m", df$old, ignore.case = T), "2",
ifelse(grepl("1m", df$old, ignore.case = T), "2",
ifelse(grepl("2s", df$old, ignore.case = T), "6",
ifelse(grepl("f2k", df$old, ignore.case = T), "2",
ifelse(grepl("ffk1m", df$old, ignore.case = T), "2",
ifelse(grepl("f2k1m", df$old, ignore.case = T), "2",
ifelse(grepl("kx", df$old, ignore.case = T), "1",
ifelse(grepl("xxk", df$old, ignore.case = T), "2",
ifelse(grepl("2k2e", df$old, ignore.case = T), "2",
ifelse(grepl("k1m2", df$old, ignore.case = T), "1",
ifelse(grepl("kf1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1e", df$old, ignore.case = T), "2",
ifelse(grepl("1k2e", df$old, ignore.case = T), "5",
ifelse(grepl("1k1e1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1m", df$old, ignore.case = T), "2",
ifelse(grepl("1k2m", df$old, ignore.case = T), "2",
ifelse(grepl("1k1d", df$old, ignore.case = T), "1",
ifelse(grepl("2k1m", df$old, ignore.case = T), "2",
ifelse(grepl("3k", df$old, ignore.case = T), "2",
ifelse(grepl("kk", df$old, ignore.case = T), "2",
ifelse(grepl("2k2m", df$old, ignore.case = T), "1",
ifelse(grepl("2kk", df$old, ignore.case = T), "2",
ifelse(grepl("kk1e", df$old, ignore.case = T), "2",
ifelse(grepl("2kx", df$old, ignore.case = T), "4",
ifelse(grepl("xk2k", df$old, ignore.case = T), "2",
ifelse(grepl("x2k2e", df$old, ignore.case = T), "2",
ifelse(grepl("k1e2m", df$old, ignore.case = T), "1",
ifelse(grepl("k1mk", df$old, ignore.case = T), "2",
ifelse(grepl("k3m", df$old, ignore.case = T), "2",
ifelse(grepl("k2x", df$old, ignore.case = T), "1",
ifelse(grepl("k1me", df$old, ignore.case = T), "2",
ifelse(grepl("xk2m", df$old, ignore.case = T), "2",
ifelse(grepl("1m(fkllenfromnestkbove)", df$old, ignore.case = T), "1",
ifelse(grepl("3m", df$old, ignore.case = T), "4",
ifelse(grepl("fk2m", df$old, ignore.case = T), "2",
ifelse(grepl("fk1e", df$old, ignore.case = T), "1",
ifelse(grepl("fk1e1m", df$old, ignore.case = T), "8",
ifelse(grepl("ffkk", df$old, ignore.case = T), "2",
ifelse(grepl("xkf1m", df$old, ignore.case = T), "1",
ifelse(grepl("ffk", df$old, ignore.case = T), "2", "Other"
)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
这会导致错误：
Error: unexpected ')' in "
输出看起来与此类似，但行数更多：
table <- "x count number
1 k 1
2 2k 2
3 k1e 1
4 k2e 1
5 2k1e 2
6 k2 2
7 ke 1
8 k3e 1
9 1ek 1
10 ek 1"
无论我添加或删除多少个括号，此错误仍然存在。我在其他网站上发现了一些讨论帖，人们遇到了这个问题，但没有解决方案。
如有任何建议，我们将不胜感激。
用您的字符串构建一个向量 (refer)，然后用您的数据测试它们
refer <- setNames(c(1:10), c("k","2k","k1e","k2e","2k1e","k2","ke","k3e","1ek","ek"))
refer
k 2k k1e k2e 2k1e k2 ke k3e 1ek ek
1 2 3 4 5 6 7 8 9 10
# your data
da <- data.frame(data=c("2k","2k","k1e","k1e","2k1e","ke","ke","k3e","k3e","k1e","ed","dqw"))
cbind(da, ids=refer[da$data])
data ids
1 2k 2
2 2k 2
3 k1e 3
4 k1e 3
5 2k1e 5
6 ke 7
7 ke 7
8 k3e 8
9 k3e 8
10 k1e 3
11 ed NA
12 dqw NA