a <- as.character(readline(" Please input a text: "))
most_repeated_character <- function(x) {
a <- gsub("\\s+", "", a)
lets <- strsplit(a, "")[[1]]
tbl <- sort(table(lets), decreasing=TRUE)
print(paste("most frequently occurring: (", names(tbl)[1], ", ", tbl[[1]], ")"))
print(paste("second most frequently occurring: (", names(tbl)[2], ", ", tbl[[2]],
")"))
}
most_repeated_character(a)
我只想得到重复次数最多的字母,而不是字符。因此,例如,如果我输入“Hello world &&&&",我会得到”l“作为重复次数最多的字母,而不是”&“。
2条答案
按热度按时间li9yvcax1#
对非字母字符使用正则表达式。
非字母字符的正则表达式为
[^a-zA-Z]
。尝试更改:
至:
1l5u6lss2#
另一个可能的错误是,当您输入大写和/或小写单词时,首先必须使用以下函数标准化输入:
tolower()
或toupper()
中的一个。