lyxmoo 回复 第3楼 的 daigazi: 具体这样写 lapply((lapply(strapply("abcd1234asdf", "[a-z]+"),nchar)),sum) [s:11] 不过你可能需要安装一个叫 gsubfn 的包。
lyxmoo 回复 第5楼 的 波波头一头: 简单的方法不好,要用复杂的方法, 如果这样也是可以的 nchar(gsub('[0-9]', '', 'abc1234xyz')) 我无耻地再次用了 ?gsub() 看帮助手册,还强词夺理。 匿了先。
yanlinlin82 我继续来顶data.table包: <br /> library(data.table)<br /> sum(between(charToRaw("abc1234xyz"), charToRaw("a"), charToRaw("z")))<br /> </p>
xuening 也可以用gregexpr这个函数,大写字母也算字母的吧……[s:11] sum(unlist(gregexpr("[A-Za-z]","abc1234xyz",perl=T))>0) </p>