r - dplyr - 在R中,如何從long到wide dataframe,在focal column中用逗號分隔多個值

  显示原文与译文双语对照的内容

我有一個電影列表和他們的導演,我想將這些director轉換為虛擬變數(即,如果導演導演導演電影,他們有自己的專欄和a1,如果他們不導演那部電影,那一欄的零),這很棘手,因為有時會有兩位導演的電影,請參閱下例.df是我擁有的數據,df2是,我想要的。


movie <- c("Star Wars V","Jurassic Park","Terminator 2")


budget <- c(100,300,400)


director <- c("George Lucas, Lawrence Kasdan","Steven Spielberg","Steven Spielberg")



df <- data.frame(movie,budget,director)


df



movie <- c("Star Wars V","Jurassic Park","Terminator 2")


budget <- c(100,300,400)


GeorgeLucas <- c(1,0,0)


LawrenceKasdan <- c(1,0,0)


StevenSpielberg <- c(0,1,1)



df2 <- data.frame(movie, budget, GeorgeLucas, LawrenceKasdan, StevenSpielberg)


df2



时间:

我有一個電影列表和他們的導演,我想將這些director轉換為虛擬變數(即,如果導演導演導演電影,他們有自己的專欄和a1,如果他們不導演那部電影,那一欄的零),這很棘手,因為有時會有兩位導演的電影,請參閱下例.df是我擁有的數據,df2是,我想要的。


movie <- c("Star Wars V","Jurassic Park","Terminator 2")


budget <- c(100,300,400)


director <- c("George Lucas, Lawrence Kasdan","Steven Spielberg","Steven Spielberg")



df <- data.frame(movie,budget,director)


df



movie <- c("Star Wars V","Jurassic Park","Terminator 2")


budget <- c(100,300,400)


GeorgeLucas <- c(1,0,0)


LawrenceKasdan <- c(1,0,0)


StevenSpielberg <- c(0,1,1)



df2 <- data.frame(movie, budget, GeorgeLucas, LawrenceKasdan, StevenSpielberg)


df2



...