英文:
adding new variables to a existing dataframe using for loop
问题
我有一个包括以下变量的数据集：
ada_27、ada_28、ada_29、ada_30，...，ada_38
每个变量的值可能是0、1或NA。
我想使用以下代码创建新变量ada_27_p、ada_28_p，...，ada_38_p（指示变量，表示每个变量是否包含值0或NA）：
dat$ada_@@_p <- ifelse((dat$ada_@@==0 | is.na(dat$ada_@@)),1,0)# @@ 是数字27到38
我需要帮助将这个过程放入for循环函数中，这样我就不需要在R中编写重复的代码。谢谢！
我在将上述函数放入for循环中时遇到了问题，因为我不知道如何在循环中将新创建的变量添加到数据框中。
英文:
I have a dataset which include the following variables:
ada_27, ada_28, ada_29, ada_30,....., ada_38
Each variable may have a value of 0, 1, or NA.
I want to create new variables ada_27_p, ada_28_p,..., ada_38_p (indicator variable whether each variable contains value of 0 or NA) using the following code:
dat$ada_@@_p <- ifelse((dat$ada_@@==0 | is.na(dat$ada_@@)),1,0)# @@ is numbers 27 to 38
I need help with puttin this procedure in for loop function so that I do not need to write repetitive codes in R. Thanks!
I have trouble putting the above function in for loop as I do not know how to add newly created variables to the dataframe in the loop.
答案1
得分: 0
请提供下次的一些数据。我创建了你的数据的一个简单版本。
你要求一个for循环。横跨列的for循环可能会有问题。由于你试图横跨列进行操作，使用across()更容易执行所需的操作。
library(tidyverse)# 你的数据框的简化版本df <- data.frame(ada_1 = sample(v, 10, T), ada_2 = sample(v, 10, T), ada_3 = sample(v , 10, T), ada_4 = sample(v, 10, T))# 它是什么样子dfada_1 ada_2 ada_3 ada_41 1 0 1 02 NA 1 0 NA3 0 NA NA 14 0 0 NA 15 1 NA 0 16 1 NA 0 17 1 1 1 08 1 NA 1 NA9 NA 1 NA NA10 NA NA NA NA# mutate() 在数据框上执行操作。across在列之间工作。# 阅读文档以获取更多细节。df <- df %>% mutate(across( ada_1:ada_4, ~ ifelse(. == 0 | is.na(.), 1, 0), .names="{.col}_p") )dfada_1 ada_2 ada_3 ada_4 ada_1_p ada_2_p ada_3_p ada_4_p1 1 0 1 0 0 1 0 12 NA 1 0 NA 1 0 1 13 0 NA NA 1 1 1 1 04 0 0 NA 1 1 1 1 05 1 NA 0 1 0 1 1 06 1 NA 0 1 0 1 1 07 1 1 1 0 0 0 0 18 1 NA 1 NA 0 1 0 19 NA 1 NA NA 1 0 1 110 NA NA NA NA 1 1 1 1
这是你提供的代码的翻译。
英文:
Please provide some data next time. I created a simple version of your data.
You asked for a for loop. For loops across columns can be problematic. Since you're trying to work across columns, it's even easier to perform your desired operations across the columns with across().
library(tidyverse)# Small version of your dataframedf <- data.frame(ada_1 = sample(v, 10, T), ada_2 = sample(v, 10, T), ada_3 = sample(v , 10, T), ada_4 = sample(v, 10, T))# What it looks likedfada_1 ada_2 ada_3 ada_41 1 0 1 02 NA 1 0 NA3 0 NA NA 14 0 0 NA 15 1 NA 0 16 1 NA 0 17 1 1 1 08 1 NA 1 NA9 NA 1 NA NA10 NA NA NA NA# mutate() performs operations on data frame. across works across columns.# Read the documentation for more details.df <- df %>% mutate(across( ada_1:ada_4, ~ ifelse(. == 0 | is.na(.), 1, 0), .names="{.col}_p") )dfada_1 ada_2 ada_3 ada_4 ada_1_p ada_2_p ada_3_p ada_4_p1 1 0 1 0 0 1 0 12 NA 1 0 NA 1 0 1 13 0 NA NA 1 1 1 1 04 0 0 NA 1 1 1 1 05 1 NA 0 1 0 1 1 06 1 NA 0 1 0 1 1 07 1 1 1 0 0 0 0 18 1 NA 1 NA 0 1 0 19 NA 1 NA NA 1 0 1 110 NA NA NA NA 1 1 1 1
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论