участок изменения переменной со временем, используя ggplot2 в R

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 и наоборот не показывает в сюжете. Я что-то пропустил ?

Плюс, в этом сюжете, кажется, что в момент времени х, переменная типа принимает как type1 и type2 как значения, которое противоречит содержанию Фрейм данных в

Answer 1

Для этого две работы, вы должны использовать 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) 

результат выглядит следующим образом: