演員字符串列到數字

Question

我的數據集Smarket（從庫ISLR）具有列方向像

Direction  
1 Up  
2 Down  
3 Down  
4 Up  
5 Down  
6 Up 

如何將它轉換爲二進制列像

Direction  
1 0  
2 1  
3 1  
4 0  
5 1  
6 0  

做以下我沒有得到任何東西。我應該做些什麼？

data <- Smarket 
data$Direction <- as.factor(as.numeric(data$Direction))  

Answer 1

df1$binary <- as.integer(df1$Direction == 'Down') 
df1 
# Direction binary 
# 1  Up  0 
# 2  Down  1 
# 3  Down  1 
# 4  Up  0 
# 5  Down  1 
# 6  Up  0 

數據：

df1 <- structure(list(Direction = structure(c(2L, 1L, 1L, 2L, 1L, 2L), 
              .Label = c("Down", "Up"), 
              class = "factor")), 
       .Names = "Direction", class = "data.frame", 
       row.names = c(NA, -6L))