簡單單詞定位器功能中的“第1級沒有這樣的索引”語法錯誤

Question

string <- "This is a test"
find_words_2 <- function(x){
  words <- strsplit(x, " ")
  l <- list()
  for (i in 1:length(words)) {
    wrd <- words[[i]]
    l[[wrd]] <- c(l[[wrd]], i)
  }
  return(l)
}
find_words_2(string)

該功能應該創建一個列表，鍵為單詞，而值為單詞的位置。 我得到的錯誤是“在1級沒有這樣的索引”。

Answer 1

   words <-"foo bar baz" 
   find_words_2 <- function(x){
      words <- strsplit(x, " ")
      l <- list()
      for (i in 1:length(words[[1]])) {
        wrd <- words[[1]][i]
        l[[wrd]] <- c(l[[wrd]], i)
      }
      return(l)
    }

這給

$foo
[1] 1

$bar
[1] 2

$baz
[1] 3

Answer 2

添加一個unlist以進行適當的作用域設置，否則您將解析一個長度為1的列表

 find_words_2 <- function(x){
      words <- strsplit(x, " ")
      l <- list()
      for (i in 1:length(unlist(words))) {
        wrd <- unlist(words)[i]
        l[[wrd]] <- c(l[[wrd]], i)
      }
      return(l)
    }


    R> x <- "fake text that I am using"
    R> find_words_2(x)
    $fake
    [1] 1

    $text
    [1] 2

    $that
    [1] 3

    $I
    [1] 4

    $am
    [1] 5

    $using
    [1] 6