R-創建新列

Question

我有以下數據框：

X1
House-US
House-FR
FR-FR
US-US
FR-US

我想創建第二列，以便：

X1       X2
House-US House 
House-FR House
FR-FR    Ia
US-US    Ia
FR-US    Ir

如果某行以House開始，則X2等於House，如果某行的左等於右（FR-FR），則X2等於Ia，其他X2等於Ir。

你有解決方案嗎？

Answer 1

這有效：

library(data.table)
setDT(dt)
splitdf <- dt[, X1] %>% strsplit("-") %>% unlist %>% 
  matrix(ncol = 2, byrow = T) %>% data.frame(stringsAsFactors = FALSE)
names(splitdf) <- c("L", "R")
dt$X2 <- ifelse(splitdf[, "L"] == "House", "House", 
                ifelse(splitdf[, "L"] == splitdf[, "R"], "Ia", "Ir"))