Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/algorithm/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 对每个字符进行计数并存储为<;K、 V>;一对_R - Fatal编程技术网

R 对每个字符进行计数并存储为<;K、 V>;一对

R 对每个字符进行计数并存储为<;K、 V>;一对,r,R,如何计算给定字符串中的唯一字符,并将其作为键值对存储在使用基本包的R编程中?这里的键将是不同的字符,值将是字符串中出现的字符 假设输入字符串为“hello”。预期产出将是: h -> 1 e -> 1 l -> 2 o -> 1 R没有任何本机hashmap支持,尽管有一个hashmap包。但是,我们可以很容易地使用此处的列表来模拟哈希功能: lst <- list() for (i in strsplit('hello', '')[[1]]) { lst

如何计算给定字符串中的唯一字符,并将其作为键值对存储在使用基本包的R编程中?这里的键将是不同的字符,值将是字符串中出现的字符

假设输入字符串为
“hello”
。预期产出将是:

h -> 1
e -> 1
l -> 2
o -> 1

R没有任何本机hashmap支持,尽管有一个
hashmap
包。但是,我们可以很容易地使用此处的列表来模拟哈希功能:

lst <- list()
for (i in strsplit('hello', '')[[1]]) {
    lst[[i]] <- ifelse(is.null(lst[[i]]), 1, lst[[i]] + 1)
}

lst
$h
[1] 1

$e
[1] 1

$l
[1] 2

$o
[1] 1

lst我们可以使用
table
在将字符串拆分为字母后计算频率。如果需要,一个简单的
sapply
可以将其转换为列表,即

table(strsplit('hello', ''))
#e h l o 
#1 1 2 1 

#or

sapply(table(strsplit('hello', '')), list)
#$`e`
#[1] 1

#$h
#[1] 1

#$l
#[1] 2

#$o
#[1] 1