R編程 - 根據基於100個變量的值創建新變量

Question

我有一組100個變量，從CFM_1到CFM_100。每個變量都可以取1,2,3或4中的任何值。我想創建一個名爲TEMP的新變量，如果任何CFM_1到CFM_100變量的值爲1或2，那麼它將取值1。請幫助我解決此

Answer 1

我的例子有點愚蠢，因爲隨機變量在這個矩陣的單個位置生成1或2的概率是1/2。對於矩陣的每一列，執行十次這樣的操作，並且對於任何給定的行，您的臨時變量將爲TRUE的概率小於1％。無論如何，在這裏。

df <- data.frame(replicate(5, sample(1:4, 10, replace = TRUE))) 
names(df) <- paste("CFM", 1:ncol(df), sep = "_") 

您的數據幀看起來像這樣

df 
    CFM_1 CFM_2 CFM_3 CFM_4 CFM_5 
1  2  2  1  4  4 
2  2  2  1  3  4 
3  2  1  1  3  3 
4  1  2  3  3  2 
5  3  4  2  4  4 
6  3  4  4  2  2 
7  3  1  3  2  2 
8  1  2  4  1  2 
9  3  2  1  3  2 
10  1  3  1  4  3 

假設現在，你已經在你的數據幀的其他變量，你想排除。我們將使用cbind將這些列預加入並附加到您的數據框中，如下所示。

df <- cbind(replicate(3,sample(1:4, 10, replace = T)), 
     df, 
     replicate(3,sample(1:4, 10, replace = T))) 
names(df)[1:3]<- paste0("Var",1:3) 
names(df)[9:11] <- paste0("Var", 9:11) 

現在你的DF看起來像這樣

df 
    Var1 Var2 Var3 CFM_1 CFM_2 CFM_3 CFM_4 CFM_5 Var9 Var10 Var11 
1  4 1 4  4  1  3  1  3 1  3  1 
2  4 2 3  2  4  3  2  1 2  3  3 
3  4 2 4  4  2  1  1  2 2  3  2 
4  4 4 2  4  4  1  3  2 2  1  2 
5  4 2 1  4  4  4  1  1 2  2  2 
6  1 4 2  3  1  4  4  2 1  3  2 
7  3 2 4  4  2  3  4  3 1  1  1 
8  1 3 3  3  3  2  3  3 2  2  2 
9  3 3 2  1  4  3  4  1 4  2  1 
10 2 1 1  2  1  2  4  1 2  1  1 

您可以通過應用任何功能，數據的行分配值的變量temp每一行中，檢查是否有任何數據是1或2.但首先你需要找出哪些列是你的數據。

您可以使用agrep函數來執行近似字符串匹配。它會告訴你，你的數據幀的名稱有字符他們"CFM"如果你使用

cfm_cols <-agrep("CFM", names(df)) 
cfm_cols 
[1] 4 5 6 7 8 

temp <- apply(df[,cfm_cols], 1, function(x) any(x) %in% c(1,2)) 
temp 
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE 

不如預期，他們都是TRUE。

另一種解決方法，如果您想，就是用dplyr庫這個

library(dplyr) 
df%>% rowwise() %>% select(contains("CFM")) %>% 
    mutate(TEMP = any(.) %in% c(1,2)) 

Answer 2

用更有效的解決方案編輯適當的R代碼，部分被盜/從@ shayaa的答案採購...

第一行這裏只提取你感興趣的列（創建一個臨時數據幀我們將在完成後將其刪除）：

new <- subset(df, select = paste0("CFM_", seq_len(100))) 

df$TEMP <- 1 * (apply(new, 1, min) <= 2) 

rm(new) 

因此，您只需在每個整行中搜索指定的值，並將布爾結果轉換爲數字，並將其放置到原始數據框中。