使用dplyr mutate自动生成新变量名
我想在使用dplyr时动态创建变量名；不过，我也可以使用非DPLYR解决方案。
例如：
data(iris)
library(dplyr)
iris <- iris %>%
group_by(Species) %>%
mutate(
lag_Sepal.Length = lag(Sepal.Length),
lag_Sepal.Width = lag(Sepal.Width),
lag_Petal.Length = lag(Petal.Length)
) %>%
ungroup
head(iris)
Sepal.Length Sepal.Width Petal.Length Petal.Width Species lag_Sepal.Length lag_Sepal.Width
(dbl) (dbl) (dbl) (dbl) (fctr) (dbl) (dbl)
1 5.1 3.5 1.4 0.2 setosa NA NA
2 4.9 3.0 1.4 0.2 setosa 5.1 3.5
3 4.7 3.2 1.3 0.2 setosa 4.9 3.0
4 4.6 3.1 1.5 0.2 setosa 4.7 3.2
5 5.0 3.6 1.4 0.2 setosa 4.6 3.1
6 5.4 3.9 1.7 0.4 setosa 5.0 3.6
Variables not shown: lag_Petal.Length (dbl)
lagged <- iris %>%
group_by(Species) %>%
mutate_at(
vars(Sepal.Length:Petal.Length),
funs("lag" = lag)) %>%
ungroup
# A tibble: 6 x 8
Sepal.Length Sepal.Width Petal.Length Petal.Width Species Sepal.Length_lag Sepal.Width_lag
<dbl> <dbl> <dbl> <dbl> <fctr> <dbl> <dbl>
1 5.1 3.5 1.4 0.2 setosa NA NA
2 4.9 3.0 1.4 0.2 setosa 5.1 3.5
3 4.7 3.2 1.3 0.2 setosa 4.9 3.0
4 4.6 3.1 1.5 0.2 setosa 4.7 3.2
5 5.0 3.6 1.4 0.2 setosa 4.6 3.1
6 5.4 3.9 1.7 0.4 setosa 5.0 3.6
# ... with 1 more variables: Petal.Length_lag <dbl>
共有1个答案
下面是一个data.table方法。在这种情况下，我选择了带有数字的列。您要做的是预先选择列名并创建新列名。然后，将shift()应用于所选的每个列，其工作原理类似于dplyr包中的lag()和lead()。
library(data.table)
# Crate a df for this demo.
mydf <- iris
# Choose columns that you want to apply lag() and create new colnames.
cols = names(iris)[sapply(iris, is.numeric)]
anscols = paste("lag_", cols, sep = "")
# Apply shift() to each of the chosen columns.
setDT(mydf)[, (anscols) := shift(.SD, 1, type = "lag"),
.SDcols = cols]
Sepal.Length Sepal.Width Petal.Length Petal.Width Species lag_Sepal.Length lag_Sepal.Width
1: 5.1 3.5 1.4 0.2 setosa NA NA
2: 4.9 3.0 1.4 0.2 setosa 5.1 3.5
3: 4.7 3.2 1.3 0.2 setosa 4.9 3.0
4: 4.6 3.1 1.5 0.2 setosa 4.7 3.2
5: 5.0 3.6 1.4 0.2 setosa 4.6 3.1
---
146: 6.7 3.0 5.2 2.3 virginica 6.7 3.3
147: 6.3 2.5 5.0 1.9 virginica 6.7 3.0
148: 6.5 3.0 5.2 2.0 virginica 6.3 2.5
149: 6.2 3.4 5.4 2.3 virginica 6.5 3.0
150: 5.9 3.0 5.1 1.8 virginica 6.2 3.4
lag_Petal.Length lag_Petal.Width
1: NA NA
2: 1.4 0.2
3: 1.4 0.2
4: 1.3 0.2
5: 1.5 0.2
---
146: 5.7 2.5
147: 5.2 2.3
148: 5.0 1.9
149: 5.2 2.0
150: 5.4 2.3
-
问题内容： 如何将两个正则表达式模式构造为一个？ 例如，我有一个长模式，一个小模式，我需要在长模式前面放一个小模式。 这行不通。当我连接字符串时，所有的斜杠都消失了。 问题答案： 您必须使用： 当我连接字符串时，所有的斜杠都消失了。 如果您的模式中有反斜杠以转义特殊的正则表达式字符（如），则必须在字符串中使用两个反斜杠（因为是字符串中的转义字符）：与相同。 因此，您的模式必须变为：
-
问题内容： 我正在尝试在Shell脚本中生成动态var名称，以在循环中如下处理一组具有不同名称的文件： 我期望输出： 但我得到了： 是否可以即时生成var名称？ 问题答案： 您需要利用变量间接： 在Bash手册页的 “参数扩展”下： “如果参数的第一个字符是感叹号（！），则会引入变量间接级别。Bash使用从参数其余部分形成的变量的值作为变量的名称；然后对该变量进行扩展，然后在替换的其余部分中使用v
-
问题内容： 这是我的HTML代码的摘录。 我正在尝试做的事情： 我已经使用上述代码段创建了3个div元素，它们将位于屏幕顶部。每个div元素都将使用css赋予框的形状。一个box（div）可以具有红色作为背景，也可以具有黑色作为背景。 这两种颜色的CSS是： 这是我的控制器的片段： 在此示例中，我将其制作为静态Json，但是在运行时，我计划生成Json代码，以便可以为框动态分配背景色。 我面临 的
-
关于如何自定义这样的值，有什么建议或想法吗？
-
我想自动为我的存储创建一个新变量。 它的工作原理应该是： 如果var_count是例如4，它应该生成一个名为var4的变量。
-
问题内容： 我正在使用$ _SESSION变量通过AJAX发送电子邮件（它们需要在不刷新页面的情况下发送），但是$ _SESSION变量不会自动更新，因此当它更改时，我需要刷新页面以更新变量。 是否可以不刷新而更新$ _SESSION变量？ 这是我用来发送电子邮件的代码： 因此，基本上，如果$ _SESSION变量更改，则需要此AJAX电子邮件来识别它，而无需刷新。 谢谢你的帮助 问题答案： 当您