Tạo một cụm từ mạng với R

Có ai biết gói R hay có cách tạo lưới cụm từ như thế này không?

Tôi hy vọng điều này có ý nghĩa. Tôi đã ném nó cùng nhau, nhưng có vẻ như đó là những gì bạn muốn làm. Tôi đã lấy một số thử nghiệm từ siêu liên kết tiền thưởng ở trên. Nó sẽ hiển thị các từ xuất hiện sau một từ nhất định cũng như tỷ lệ số lần mà các kết quả này xảy ra. Điều này sẽ không làm được gì cho việc trực quan hóa, mặc dù tôi chắc chắn rằng nó sẽ không thể tạo ra. Nó nên làm hầu hết các toán học nền.

library(tau)

#this will load the string
x <- tokenize("Questions must be at least 2 days old to be eligible for a bounty. There can only be 1 active bounty per question at any given time. Users must have at least 75 reputation to offer a bounty, and may only have a maximum of 3 active bounties at any given time. The bounty period lasts 7 days. Bounties must have a minimum duration of at least 1 day. After the bounty ends, there is a grace period of 24 hours to manually award the bounty. If you do not award your bounty within 7 days (plus the grace period), the highest voted answer created after the bounty started with at least 2 upvotes will be awarded half the bounty amount. If there's no answer meeting that criteria, the bounty is not awarded to anyone. If the bounty was started by the question owner, and the question owner accepts an answer during the bounty period, and the bounty expires without an explicit award – we assume the bounty owner liked the answer they accepted and award it the full bounty amount at the time of bounty expiration. In any case, you will always give up the amount of reputation specified in the bounty, so if you start a bounty, be sure to follow up and award your bounty to the best answer! As an additional bonus, bounty awards are immune to the daily reputation cap and community wiki mode.")

#the number of tokens in the string
n <- length(x)

list <- NULL

count <- 1

#this will remove spaces, list is new string with no spaces
for (i in 1:n) {
  if (x[i] != " ") {
    list[count] <- x[i]
    count <- count + 1
  }
}

#the unique words in the string
y <- unique(list)

#number of tokens in the string
n <- length(list)
#number of distinct tokens
m <- length(y)


#assign tokens to values
ind <- NULL
val <- NULL
#make vector of numbers in place of tokens
for (i in 1:m) {
  ind[i] <- i
  for (j in 1:n) {
    if (y[i] == list[j]) {
      val[j] = i
    } 
  }
}


d <- array(0, c(m, m))

#this finds the number of count of the word after the current word
for (i in 1:(n-1)) {
   d[val[i], val[i+1]] <- d[val[i], val[i+1]] + 1
}

#pick a word
word <- 4

#show the word
y[word]
#[1] "at"

#the words that follow
y[which(d[word,] > 0)]
#[1] "least" "any"   "the" 

#the prob of words that follow
d[word,which(d[word,]>0)]/sum(d[word,])
#[1] 0.5714286 0.2857143 0.1428571

Bạn có thể tạo lưới cụm từ với Nhiều mắt , đây là loại nhà "chính thức" của kỹ thuật tạo hình này. Ở đó, bạn có thể tải lên dữ liệu của mình (có thể là một số phần của văn bản), chọn "Cụm từ ngữ" làm kỹ thuật trực quan hóa và có được những gì bạn đang tìm kiếm.

Trên thực tế, hình minh họa của bạn xuất phát từ trang Phrase Net trên Many Eyes .

Bạn có thể sử dụng gói igraphđể tạo và vẽ đồ thị, với quyền kiểm soát tất cả các khía cạnh. Các gói graphvà Rgraphvizlàm việc cùng nhau để xác định và vẽ đồ thị. Cả hai tùy chọn cung cấp rất nhiều kiểm soát. ( graphvizcũng là một gói độc lập, nơi bạn có thể sử dụng tất cả các loại phần mềm để tạo biểu đồ và graphvizhiển thị nó.)

Tất nhiên, bạn cần xử lý dữ liệu của mình thành biểu đồ, thực hiện một số thứ như @darrelkj gợi ý.