用于规范在R中的第二个数据帧上应用的一个数据帧的函数
用于规范在R中的第二个数据帧上应用的一个数据帧的函数
提问于 2015-02-23 17:05:07
这是家务活。
我对R.
我有两个数据框架，每个都包含两列数据。我必须找到一个将第一个数据框架标准化为0和方差为1的函数，这两个列都是如此。然后我想在第二个数据帧上应用这个函数。
我试过这样做：
my_scale_test <- function(x,y) {
apply(y, 2, function(x,y) {
(y - mean(x ))/sd(x)
})
}其中x是第一个数据帧，y是要规范化的数据框架。
有人能帮我吗？
编辑：
我现在也试过了，但也没有用：
scale_func <- function(x,y) {
xmean <- mean(x)
xstd <- sd(x)
yout <- y
for (i in 1:length(x[1,]))
yout[,i] <- yout[,i] - xmean[i]
for (i in 1:length(x[1,]))
yout[,i] <- yout[,i]/xsd[i]
invisible(yout)
}编辑2:我为MatLab找到了这个工作函数(我试图在编辑1中翻译它)：
function [ Xout ] = scale( Xbase, Xin )
Xmean = mean(Xbase);
Xstd = std(Xbase);
Xout = Xin;
for i=1:length(Xbase(1,:))
Xout(:,i) = Xout(:,i) - Xmean(i);
end
for i=1:length(Xbase(1,:))
Xout(:,i) = Xout(:,i)/Xstd(i);
end
end有人能帮我翻译一下吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-02-24 09:02:54
既然你是R的新手，让我们来试试一些非常基本的东西。
my_scale_test <- function(x, y) {
y.nrow <- nrow(y)
x.mean <- data.frame(t(apply(x, 2, mean)))
x.sd <- data.frame(t(apply(x, 2, sd)))
# To let x.mean and x.sd have the same dimension as y, let's repeat the rows.
x.mean <- x.mean[rep(1, y.nrow), ]
x.sd <- x.sd[rep(1, y.nrow), ]
(y - x.mean)/x.sd
}要测试，请尝试
set.seed(1)
x <- data.frame(matrix(rnorm(10), nrow = 5))
y <- x
result <- my_scale_test(x, y)
apply(result, 2, mean)
apply(result, 2, sd)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/28686569
复制相关文章
![[C语言]函数栈帧的创建和销毁](https://developer.qcloudimg.com/http-save/yehe-10493031/8f4be5075cb3704262400882206b98cb.png)
相似问题
在R中，将函数应用于数据帧的行并返回数据帧。
应用于数据帧中的列表的r函数
JSON在R中的数据帧上应用
将函数应用于数据帧r的子集
将函数应用于R中的数据帧列表
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
