Подсчитайте количество символов первого, второго и третьего слова в строке - PullRequest
Новая
       30

Подсчитайте количество символов первого, второго и третьего слова в строке

0 голосов
/ 26 апреля 2019

Мне нужно понять, разработать код, который может считать количество символов второго и третьего слова в строке.

Я получил этот код, но он работает только для количества символов первогоword.

Теперь мне разрешено использовать Spark SQL или пакет dplyr.

Это то, что я сделал для подсчета символов в первом слове 

INSTR(NAME_NORM_LONG,' ')-1)

Ожидаемыйрезультатом является подсчет символов и отображение результата в новом столбце. 

word="hey I am Scott"

characters_word1 | characters_word2 | characters_word3 

          3               1                   2

Теперь я запускаю этот код для тестирования (пытаюсь найти второе слово): 

test_query<-test_query %>% 
mutate(Total_char=nchar(NAME_NORM_LONG))%>%
mutate(Name_has_numbers=str_detect(NAME_NORM_LONG,"[[:digit:]]"))%>%
mutate(number_words=LENGTH(NAME_NORM_LONG) - LENGTH(REPLACE(NAME_NORM_LONG, ' ', '')) + 1)%>%
mutate(number_chars_w1=INSTR(NAME_NORM_LONG,' ')-1)%>%
mutate(number_chars_w2=substr(NAME_NORM_LONG,number_chars_w1+1,LENGTH(NAME_NORM_LONG)))``` and the result I am having is this one ```test_query
# Source: spark<?> [?? x 7]
   PBIN0 NAME_NORM_LONG Total_char Name_has_numbers number_words number_chars_w1
   <int> <chr>               <int> <lgl>                   <dbl>           <dbl>
1 4.01e8 GM BUILDERS            11 FALSE                       2               2
# … with 1 more variable: number_chars_w2 <chr>
Warning messages:
1: In substr(NAME_NORM_LONG, number_chars_w1, 1) :
  NAs introduced by coercion
2: In substr(NAME_NORM_LONG, number_chars_w1, 1) :
  NAs introduced by coercion
3: In substr(NAME_NORM_LONG, number_chars_w1, 1) :
  NAs introduced by coercion
4: In substr(NAME_NORM_LONG, number_chars_w1, 1) :
  NAs introduced by coercion
5: In substr(NAME_NORM_LONG, number_chars_w1, 1) :
  NAs introduced by coercion```

1 Ответ

1 голос
/ 27 апреля 2019

Как насчет использования str_split()? 

word="hey I am Scott"

word_list = stringr::str_split(word, " ")

n = length(word_list[[1]])
for (i in 1:n){
  first_row = paste0("characters_word", 1:n)
  second_row = sapply(word_list[[1]], nchar)
}

df = data.frame(first_row, second_row)
...