R：更改命名向量中的名称

发布于 2024-10-31 12:45:27 字数 860 浏览 1 评论 0原文

R的命名向量非常方便，但是，我想组合两个包含系数估计值和这些估计值的标准误差的向量，并且两个向量具有相同的名称：

> coefficients_estimated
     y0         Xit  (Intercept) 
    1.1         2.2          3.3 

> ses_estimated
     y0         Xit  (Intercept) 
    .04         .11         .007

如果我知道元素的顺序，这将很容易解决是肯定的，但这在我的脚本中并不能得到保证，所以我不能简单地执行 names(ses_estimated) <- 无论如何。我想做的就是在每个名称的末尾添加“coef”或“se”，为此，我想出了一个我认为相当丑陋的黑客：

names(coefficients_estimated) <- sapply(names(coefficients_estimated),
                                        function(name)return(paste(name,"coef",sep=""))
                                        )
names(ses_estimated) <- sapply(names(ses_estimated),
                               function(name)return(paste(name,"se",sep=""))
                               )

有没有一种理想的方法来做到这一点？还是我必须坚持我所写的内容？

原文

R's named vectors are incredibly handy, however, I want to combine two vectors which contain the estimates of coefficients and the standard errors for those estimates, and both vectors have the same names:

> coefficients_estimated
     y0         Xit  (Intercept) 
    1.1         2.2          3.3 

> ses_estimated
     y0         Xit  (Intercept) 
    .04         .11         .007

This would be easy to solve if I knew what order the elements were in for sure, but this isn't guaranteed in my script, so I can't simply do names(ses_estimated) <- whatever. All I want to do is add either "coef" or "se" to the end of each name, and to do this, I've come up with what I think is a pretty ugly hack:

names(coefficients_estimated) <- sapply(names(coefficients_estimated),
                                        function(name)return(paste(name,"coef",sep=""))
                                        )
names(ses_estimated) <- sapply(names(ses_estimated),
                               function(name)return(paste(name,"se",sep=""))
                               )

Is there an idomatic way to do this? Or am I going to have to stick with what I've written?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

那些过往 2024-11-07 12:45:27

假设您使用 c() 组合向量，我不相信有一种“纯粹”的方法可以做到这一点。

在上面的代码中，您甚至不需要使用 sapply。只需 paste(names(coefficients_estimated), "coef", sep="") 就会得到同样的结果。通过将名称应用于组合向量与单独向量，您还可以变得更简单。

如果这些是数据帧，则 suffixes 参数将正是您想要的。

回复收藏 0 原文

吹泡泡o 2024-11-07 12:45:27

setNames 在这里很有帮助：

# Make fake data for test:
namedData <- function(x) setNames(x, c("y0", "Xit", "(Intercept)"))

coefficients_estimated <- namedData(c(1.1, 2.2, 3.3))
ses_estimated <- namedData(c(.04, .11, .007))

# Do it:
withNameSuffix <- function(obj, suffix) setNames(obj, paste(names(obj), suffix, sep=""))
combined <- c(withNameSuffix(coefficients_estimated, "coef"),
              withNameSuffix(ses_estimated, "se"))

setNames is helpful here:

# Make fake data for test:
namedData <- function(x) setNames(x, c("y0", "Xit", "(Intercept)"))

coefficients_estimated <- namedData(c(1.1, 2.2, 3.3))
ses_estimated <- namedData(c(.04, .11, .007))

# Do it:
withNameSuffix <- function(obj, suffix) setNames(obj, paste(names(obj), suffix, sep=""))
combined <- c(withNameSuffix(coefficients_estimated, "coef"),
              withNameSuffix(ses_estimated, "se"))

回复收藏 0 原文

当爱已成负担 2024-11-07 12:45:27

coef_ses_estimated <- c(coefficients_estimated,ses_estimated)
names(coef_ses_estimated) <- as.vector(outer(names(coefficients_estimated),
                                             c("coef","se"),paste,sep="_"))

coef_ses_estimated <- c(coefficients_estimated,ses_estimated)
names(coef_ses_estimated) <- as.vector(outer(names(coefficients_estimated),
                                             c("coef","se"),paste,sep="_"))

回复收藏 0 原文

~没有更多了~