给定条件，将值从一列复制到下一列
我有如下二进制数据：
ID <- c("A", "B", "C", "D", "E", "F")
Q0 <- c(0, 0, 0, 0, 0, 0)
Q1 <- c(0, 1, 0, 0, NA, 1)
Q2 <- c(0, NA, 1, 0, NA, 1)
Q3 <- c(0, NA, NA, 1, NA, 1)
Q4 <- c(0, NA, NA, 1, NA, 1)
dta <- data.frame(ID, Q0, Q1, Q2, Q3, Q4)
如果其中一列中的行为1，则所有后续列也应为1。如果有0或NA，则下一列应保持原样。我编写了以下代码：
dta2 <- dta %>%
mutate(Q2 = case_when(Q1 == 1 ~ 1,
TRUE ~ Q2))
dta3 <- dta2 %>%
mutate(Q3 = case_when(Q2 == 1 ~ 1,
TRUE ~ Q3))
dta4 <- dta3 %>%
mutate(Q4 = case_when(Q3 == 1 ~ 1,
TRUE ~ Q4))
它工作正常，输出看起来像预期的：
ID Q0 Q1 Q2 Q3 Q4
A 0 0 0 0 0
B 0 1 1 1 1
C 0 0 1 1 1
D 0 0 0 1 1
E 0 NA NA NA NA
F 0 1 1 1 1
我的问题是：有没有更优雅的方法？也许使用应用，甚至是for循环？
共有3个答案
通过循环保持简单：
for (i in 3:ncol(dta)) dta[[i]][dta[[i-1]] == 1] <- 1
# ID Q0 Q1 Q2 Q3 Q4
# 1 A 0 0 0 0 0
# 2 B 0 1 1 1 1
# 3 C 0 0 1 1 1
# 4 D 0 0 0 1 1
# 5 E 0 NA NA NA NA
# 6 F 0 1 1 1 1
带有dplyr数据。表灵感来源于尤里：
library(dplyr)
library(data.table)
setDT(dta)
dta[, (names(dta)[-1]) := as.list(cumany(.SD == 1)), by = ID]
我还发现了一个关于旋转的例子：
library(tidyr)
library(dplyr)
dta %>%
pivot_longer(-ID) %>%
group_by(ID) %>%
mutate(value2 = value) %>%
fill(value2) %>%
mutate(value = ifelse(value2 == 0, value, value2)) %>%
select(-value2) %>%
pivot_wider(names_from = name, values_from = value)
ID Q0 Q1 Q2 Q3 Q4
<chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 A 0 0 0 0 0
2 B 0 1 1 1 1
3 C 0 0 1 1 1
4 D 0 0 0 1 1
5 E 0 NA NA NA NA
6 F 0 1 1 1 1
带有na的选项。locf
library(zoo)
i1 <- do.call(pmax, c(dta[-1], na.rm = TRUE))!= 0
dta[-1][i1,] <- t(na.locf(as.data.frame(t(dta[-1][i1,]))))
-输出
> dta
ID Q0 Q1 Q2 Q3 Q4
1 A 0 0 0 0 0
2 B 0 1 1 1 1
3 C 0 0 1 1 1
4 D 0 0 0 1 1
5 E 0 NA NA NA NA
6 F 0 1 1 1 1
-
问题内容： 如何将值从一列复制到另一列？我有： 我希望有： 我应该有哪些mysql查询？ 问题答案： 有关代码的简短答案是： 这是表名，周围是重音符号（又称“-”），因为这是MySQL惯例，用于转义关键字（在这种情况下为关键字）。 请注意，这是非常危险的查询，它将擦除表每行中列中的所有内容，并替换为（无论其值如何） 使用子句将查询限制为仅特定的行集更为常见：
-
问题内容： 这个问题已经被问了很多遍了，而且似乎对其他人也有用，但是，当我从不同的DataFrame复制列（并且长度相同）时，我得到了值。 我需要这样 我尝试了以下方法 我得到以下内容 问题答案： 您的DataFrames的索引是不同的 （相应地，每列 的索引也不同 ），因此，当尝试将一个DataFrame的列分配给另一列时， pandas会尝试对齐索引，但这样做会失败，请插入NaN。 考虑以下示
-
问题内容： 是否可以将SQL中表中的所有记录的数据从A列复制到B列？ 问题答案： 这个怎么样 这将更新每一行。
-
我主要在RPC模式下使用rabbitMq，但我还想将请求和响应消息复制到另一个队列。 最后，我想实现的是，外部消费者可以通过听一个队列来查看所有流量，我们称之为“日志队列”。 复制传入消息是可以的，我只需要使用扇出交换，或者使用与RPC调用使用的路由密钥相同的路由密钥将日志队列绑定到使用过的交换。 但我无法找到通过直接回复功能“扇出”发送的消息的方法。 到目前为止，我了解到响应消息以amqp的形式
-
我目前有一个ArrayList，其中包含“Product”对象，每个对象中包含一个字符串、整数和double。我希望能够使用参数搜索对象，找出与搜索参数匹配的ID（整数值），并将此对象复制到另一个ArrayList中。有没有可能通过迭代器实现这一点，或者有没有更简单的方法？
-
给定以下代码： 和一个jsp： 如何将在下拉列表中选择的值传递回Spring控制器？目前，当我尝试执行此操作时，得到的请求参数无效。