输出不包括原始变量名

Question

当我使用 assign 函数然后使用 get 函数将数字分配给变量时，输出不包括原始变量名称。以下是问题的详细信息：

考虑

z=data.frame(x=c(1,2,3))

在数据框中保存名称。

names=names(z)

数据框只包含一个名称。

names[1]

现在我将数据框中第一列的值分配给数据框中的名称。

assign(names[1],z[,1])

问题是当我使用get函数进行一些测试时，输出不包含数据框中的原始名称，

shapiro.test(get(names[1]))

我得到的输出是：

    Shapiro-Wilk normality test

数据：get(names[1])

W = 1，p 值 = 1

Answer 1

data.frame

这将为z 中的每一列创建一个单列数据框

for(nm in names(z)) assign(nm, z[nm])

矢量

或者其中任何一个都将为z中的每一列创建一个向量

for(nm in names(z)) assign(nm, z[[nm]])

list2env(z, .GlobalEnv)

附加

这将在搜索列表中创建一个条目，其中包含z 中每一列的向量，而不会将它们放在全局环境中，因此您现在可以仅引用x。

attach(z)

您可以使用以下方法检查搜索列表：

search()

使用完毕后分离z：

detach("z")

下标

请注意，以上所有内容通常并不代表良好的编程习惯，最好只参考z$x、z[["x"]] 或z["x"]，具体取决于您的需要。

与，在，变换

您可以做的另一件事是使用with、within 或transform。第一个返回一个等于2 * x 的向量，接下来的两个分别返回一个 x 已加倍的数据帧。

with(z, 2 * x)

within(z, x <- 2 * x)
transform(z, x = 2 * x)

shapiro.test

这将在z 的每一列上运行shapiro.test，尽管输出中的data: 行看起来不太好

lapply(z, shapiro.test)

这可以交替用于强制显示更好看的数据线（或者如果您知道z 中只有一列，那么可以写成my.shapiro.test(names(z), z)）。

my.shapiro.test <- function(nm, z) with(z, do.call("shapiro.test", list(as.name(nm))))
lapply(names(z), my.shapiro.test, z)

或者可以使用第一种方法，然后修复数据名称，从而缩短代码，但缺点是它与shapiro.test 返回的内部结构相混淆。 （如果你知道z只有一列，那么它可以写成replace(shapiro.test(z[[1]]), "data.name", names(z))

L <- lapply(z, shapiro.test)
for(nm in names(L)) L[[nm]]$data.name <- nm

与shapiro.test 相关的额外复杂性是由于它使用未经评估的参数版本来确定名称。 R 中的大多数函数都不会这样做（尽管 tidyverse 包是一个明显的例外），因此您不会遇到这样的复杂性。