R 需要解决的范围问题
我想使用cbind(每个都有10个数字)组合range、mean和sd,并使用range函数计算数据集中每个变量的范围。但是,范围是原子的,输出如下: 在我的输出中,R分隔了范围并生成了20个数字。第1行和第2行应该是我的第一个变量的范围。有人知道如何解决这个问题吗?下面是我生成此输出的代码:R 需要解决的范围问题,r,R,我想使用cbind(每个都有10个数字)组合range、mean和sd,并使用range函数计算数据集中每个变量的范围。但是,范围是原子的,输出如下: 在我的输出中,R分隔了范围并生成了20个数字。第1行和第2行应该是我的第一个变量的范围。有人知道如何解决这个问题吗?下面是我生成此输出的代码: range_com <- c() mean_com <- c() sd_com <- c() dyad.realized_subset <- subset(dyad
range_com <- c()
mean_com <- c()
sd_com <- c()
dyad.realized_subset <- subset(dyad.realized, select=c(BAA,BAF,`Data
Science`,`Life Science`,Engineer,`Previous Raised`,`Max Raise`,Age,
Patent,`Committed Amount ($K)`))
range1 <- range(dyad.realized_subset$BAA,na.rm=T)
range2 <- range(dyad.realized_subset$BAF,na.rm=T)
range3 <- range(dyad.realized_subset$`Data Science`,na.rm=T)
range4 <- range(dyad.realized_subset$`Life Science`,na.rm=T)
range5 <- range(dyad.realized_subset$Engineer,na.rm=T)
range6 <- range(dyad.realized_subset$`Previous Raised`,na.rm=T)
range7 <- range(dyad.realized_subset$`Max Raise`,na.rm=T)
range8 <- range(dyad.realized_subset$Age,na.rm=T)
range9 <- range(dyad.realized_subset$Patent,na.rm=T)
range10 <- range(dyad.realized_subset$`Committed Amount ($K)`,na.rm=T)
range_com <-c(range1,range2,range3,range4,range5,range6,range7,range8,range9,range10)
for(i in seq(dyad.realized_subset)){
mean_com[i] <- mean(dyad.realized_subset[[i]], na.rm=T)
sd_com[i] <- sd(dyad.realized_subset[[i]],na.rm=T) }
# Bind and output table ####
desc_dyads <- cbind(range_dyads,mean_dyads,sd_dyads)
range\u com您可以尝试使用sapply
为dyad.subset
中的每一列计算mean
、sd
和range
t(sapply(dyad.realized_subset, function(x) {
setNames(c(mean(x), sd(x), toString(range(x))), c('mean', 'sd', 'range'))
})) -> desc_dyads
desc_dyads
请提供一些可复制的数据。此外,所呈现的代码相当混乱,为您清理它将是乏味的。最后,您的问题与Rstudio IDE无关,请不要标记它。只需编辑我的代码!我们无法从图像复制数据。以易于复制的可复制格式添加。了解。另外,请删除上面的所有
,以便其他人更容易复制您的代码。我只给出了三个变量,因为我只是想解决范围问题。是否有可能不必拆分范围?您希望范围看起来如何?像这样的1-10?你可以这样做,但它将不是一个数字,而是一个字符串。是的!类似于0,1的内容请尝试更新的答案。@QZZhang很高兴得到帮助!点击左边的复选标记即可接受答案。每个帖子只能接受一个答案。参考号-
t(sapply(dyad.realized_subset, function(x) {
setNames(c(mean(x), sd(x), toString(range(x))), c('mean', 'sd', 'range'))
})) -> desc_dyads
desc_dyads