r - Rでggplot2を使用して変数の時間変化をプロットする

Question

次のサンプルデータがあります。

my.list <- vector('list',1000)
for(i in 1:1000)
{
    temp <- sample(c("type1","type2"),1)
    my.list[[i]] <- data.frame(time=i,type=temp)
}
df <- do.call('rbind',my.list)

型変数の変化を時間とともにプロットしたい。私は以下を使用しました：

ggplot(df,aes(x=time,y=type)) + geom_line()

このコマンドでは、期待した結果が得られません:

タイプ 1 からタイプ 2 への遷移、およびその逆の遷移がプロットに表示されないことに注意してください。私は何か見落としてますか ？

さらに、このプロットでは、時間 x で、型変数は と の両方type1をtype2データ フレームの内容と矛盾する値として取るようです。

Answer 1

この 2 つの作業では、group引数を使用する必要があります。

ggplot(df,aes(x=time,y=type, group=1)) + geom_line()

ただし、1000 回の観測を使用すると線が非常に密になるため、結果の解釈が難しくなることに注意してください。100 個の観測のみを使用する場合、

set.seed(1)
my.list <- vector('list',100)
for(i in 1:100)
{
  temp <- sample(c("type1","type2"),1)
  my.list[[i]] <- data.frame(time=i,type=temp)
}
df <- do.call('rbind',my.list)

結果は次のようになります。