r语言计数器

Python011

r语言计数器,第1张

定义函数oddcount，计算给定数列中的奇数的个数

对于上述案例，我们是想告诉r，我们定义了一个名叫 oddcount 函数 function（x）；

该函数的自变量是x，作用是判断函数自变量 x 是不是奇数；

判断依据：n %% 2 == 1；若是，要求计数器 k 加 1 ；

要求返回的是k；

计数（1,3,5） # 可以看到共有3个奇数；

返回值为：3；

第2组数有5个，其中，2是偶数；

返回值：4；

尝试返回偶数的个数，具体过程如下：

好了，我的小伙伴们，今天就先到这儿吧，下期见！O(∩_∩)O哈哈~

其基本思想就是把百分数按照字符处理，首先将“%”与数字分离，然后再将数除以100，就可以化成小数了。下面两种方法的区别一个是将%替换成空格，一个是提取除百分号的数字。

>testdata<-data.frame(v1=c("78%", "65%", "32%"), v2=c("43%", "56%", "23%"))

>testnewdata1<-data.frame(lapply(testdata, function(x) as.numeric(sub("%", "", x))/100) )

>testnewdata1

v1 v2

1 0.78 0.43

2 0.65 0.56

3 0.32 0.23

>library(stringr)

>testnewdata2<-data.frame(lapply(testdata, function(x) as.numeric(str_extract(x,'[0-9.]+'))/100) )

>testnewdata2

v1 v2

1 0.78 0.43

2 0.65 0.56

3 0.32 0.23

替换百分号的思想还可以用下面的代码实现

>testnewdata3<-data.frame(lapply(testdata, function(x) as.numeric(gsub("\\%", "", x))/100))

>testnewdata3

v1 v2

1 0.78 0.43

2 0.65 0.56

3 0.32 0.23

stringr 包中的大部分函数具有统一风格的命名方式，以 str_ 开头，正则表达式也完全适用该包。

字符串拼接函数 str_c ，与R语言自带的 paste 和 paste0 函数具有相同的作用。

字符计数函数 str_count ，计算字符串中指定字符的个数。

字符检查函数 str_detect ，检查字符串中是否包含指定字符，返回逻辑向量。

字符复制函数 str_dup ，将字符向量重复若干次，返回重复后的字符向量。

字符提取函数 str_extract 和 str_extract_all ，对字符串进行提取， str_extract_all 函数返回所有的匹配结果。

字符串格式化函数 str_glue ，用花括号 {} 表示占位符，括号内的变量被替换成全局变量值。

字符串长度函数 str_length ，计算字符串长度。

字符位置提取函数 str_locate 和 str_locate_all ,返回匹配到的字符的位置。

字符匹配函数 str_match 和 str_match_all 与字符提取函数 str_extract 类似，返回匹配到的字符，不同之处在于返回格式。

字符补齐函数 str_pad ，用于在字符串中添加单个字符，可选择添加的位置，在参数 side 中进行设置。

字符删除函数 str_remove 和 str_remove_all ，用于删除字符串中的部分字符。

字符替换函数 str_replace 、 str_replace_all 和 str_replace_na ，用于替换字符串中的部分字符。

字符排序函数 str_sort 和 str_order ，对字符向量进行排序。

字符分割函数 str_split 和 str_split_fixed ，对字符串进行分割。

字符过滤函数 str_sub 和 str_subset ， str_sub 函数通过指定开始和结束位置，过滤出字符串的部分字符串。 str_subset 函数通过匹配模式，过滤出满足模式的字符串。

stringr 包中其他的有用函数，用于常见的字符处理。