根據前一行的值創建新列

Question

我希望有人能幫助我。

I have a data like this:    
subject  choice 
1    3 
2    3  
3    1  
4    4  
5    3  
6    2  
7    2  
8    3  

現在我想創建一個基於'choice'列值的新列。如果選擇列的值是新的（以前從未發生過），則新列的值將爲'否'，否則，如果該值已經出現在前一行上，則新列的值將爲'Soc' 。新表將如下所示：

subject  choice newcolumn 
    1    3   No 
    2    3   Soc 
    3    1   No 
    4    4   No 
    5    3   Soc 
    6    2   No 
    7    2   Soc 
    8    3   Soc 

有人可以幫我嗎？在此先感謝

Answer 1

還有一堆的方法可以做到這一點，但使用支架子集將教你關於R一些有用的東西：

# Make your example reproducible 
subject <- 1:8 
choice <- c(3, 3, 1, 4, 3, 2, 2, 3) 
d <- data.frame(subject, choice) 

# Create a new column, set all teh values to "No 
d$newColumn <- "No" 
# Set those values for which choice is duplicated to "Soc" 
d$newColumn[duplicated(d$choice)] <- "Soc" 

Answer 2

使用示例數據

DF <- data.frame(subject = 1:8, choice = c(3, 3, 1, 4, 3, 2, 2, 3)) 

我會做

DF <- transform(DF, newcolumn = c("No","Soc")[duplicated(choice) + 1]) 

給

？

subject choice newcolumn 
1  1  3  No 
2  2  3  Soc 
3  3  1  No 
4  4  4  No 
5  5  3  Soc 
6  6  2  No 
7  7  2  Soc 
8  8  3  Soc 

沒有transform()，這將使用duplicated和ifelse是

DF$newcolumn <- c("No","Soc")[duplicated(DF$choice) + 1]) 

Answer 3

另一種選擇：

transform(DF, newcolumn = ifelse(!duplicated(choice),'No','Soc')) 

## subject choice newcolumn 
## 1  1  3  No 
## 2  2  3  Soc 
## 3  3  1  No 
## 4  4  4  No 
## 5  5  3  Soc 
## 6  6  2  No 
## 7  7  2  Soc 
## 8  8  3  Soc