평균

Question

내가 나에게 평균 수를 제공하는 기능을 찾고 있어요

one <- c(9, 23, 43) 
two <- c("this is a new york times article.", "short article.", "he went outside to smoke a cigarette.") 

mydf <- data.frame(one, two) 
mydf 

# one         two 
# 1 9  this is a new york times article. 
# 2 23      short article. 
# 3 43 he went outside to smoke a cigarette. 

R 내 문자 벡터 단어의 평균 개수를 얻으려고 문자 벡터 "2"단어의

library(stringr) 
foo<- str_split(two, " ") # split each element of your vector by the space sign 
sapply(foo,length) # just a quick test: how many words has each element? 
sum(sapply(foo,length))/length(foo) # calculate sum and divide it by the length of your original object 
[1] 5.333333 

Answer 1

또는 여기

mean(sapply(mydf$two,function(x)length(unlist(gregexpr(" ",x)))+1)) 
[1] 5.333333 

Answer 2

해야한다 더 정교한 방법을 사용할 수 있지만 strsplit을 사용하면 공백에서 문자열을 문자 벡터로 분할하고 문자의 길이를 계산할 수 있습니다.

mean(sapply(strsplit(as.character(mydf$two), "[[:space:]]+"), length)) 
# [1] 5.3333 

Answer 3

내가 거기에 확신 :

여기 출력은 5.3333이 (= (7 + 2 + 7)/3)

해들리 위컴의 stringr 패키지 가능성이 가장 쉬운 방법을 제공

Answer 4

gregexpr()는 qdap 패키지 가능성이다 :

library(qdap) 
wc(mydf$two, FALSE)/nrow(mydf) 

## [1] 5.333333 

이것은 과잉이다하지만 당신은 할 수 :

word_stats(mydf$two) 

## all n.sent n.words n.char n.syl n.poly wps cps sps psps cpw spw pspw n.state proDF2 n.hapax n.dis grow.rate prop.dis 
## 1 all  3  16  68 23  3 5.333 22.667 7.667 1 4.250 1.438 .188  3  1  12  2  .750  .125 

그리고,228을열은 문장마다 단어입니다.