R 需要解决的范围问题

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

我想使用cbind(每个都有10个数字)组合range、mean和sd,并使用range函数计算数据集中每个变量的范围。但是,范围是原子的,输出如下:

在我的输出中,R分隔了范围并生成了20个数字。第1行和第2行应该是我的第一个变量的范围。有人知道如何解决这个问题吗?下面是我生成此输出的代码:

 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