3状態マルコフ連鎖プロットの作成

Question

私は以下の状態のデータフレームを持っています：怒り、落ち着き、疲れ。以下のデータフレームでは、ある状態が別の状態に遷移する個々のケースを示しています。

も「遊び場」と呼ばれ、次のようになりますされる三つの状態のためのマルコフのチェーンプロットをbuidlingされる私が達成したい

pre<-cbind(c(rep("tired",100),rep("angry",100),rep("calm",100))) 
post<-cbind(c(rep("tired",50),rep("angry",70),rep("calm",100),rep("tired",80))) 
df<-cbind(pre,post) 
df<-as.data.frame(df) 
colnames(df)<-c("pre","post") 

：私はRでそれを行うだろうか

？

ありがとうございます！

Answer 1

diagramのplotメソッドを使用して、markovchainパッケージを使用できます。

てみましょう最初のごdf

states<-c("tired","angry","calm") 

probsCase<-function(i,j){ 
    sum(as.character(df$pre)==states[i] & as.character(df$post)==states[j])/sum(as.character(df$pre)==states[i]) 
} 

transitionMatrix<-outer(1:3,1:3,Vectorize(probsCase)) 
colnames(transitionMatrix)<-states 
rownames(transitionMatrix)<-states 

から遷移確率行列を計算今

library(markovchain) 
markovChain <- new("markovchain", states=states, transitionMatrix=transitionMatrix) 
plot(markovChain,package="diagram") 

行列を初期化してプロットするためにmarkovchainを使用EDIT：

あなたはmarkovchainをインストール悩みをお持ちの場合パッケージでは、実際には使用できず、そのままdiagram必要パッケージ、ちょうどtransitionMatrix

library(diagram) 
plotmat(transitionMatrix,relsize=0.7) 

あなたは、あなたの応答のためのplotmat